Expression régulière

([0-9]{2}\_)

iPhone sous firmware v2.0

Pour faire une capture d'écran sur un iPhone sous firmware v2.0, il suffit d'appuyer sur le bouton central et le bouton du haut.

Trier le contenu d'une cellule

Voilà une macro super utile, fortement inspirée de ce forum.

Sub TriCellule()
Dim I As Integer
Dim J As Integer, K As Byte
Dim Cible As String, val As String
Dim Tableau() As String

Dim aRng As Range
Dim aCell As Range

Set aRng = Selection

Dim resultat As String

For Each aCell In aRng

I = 0
J = 0
K = 0
Cible = aCell.Value & Chr(10)
val = ""
ReDim Preserve Tableau(0)

resultat = ""


For I = 1 To Len(Cible) 'extraire donnees
J = InStr(I, Cible, Chr(10))

K = K + 1
ReDim Preserve Tableau(K - 1)
Tableau(K - 1) = LTrim(Mid(Cible, I, J - I))
I = I + Len(Mid(Cible, I, J - I))
Next

For I = LBound(Tableau) To UBound(Tableau) 'trier
J = I
For K = J + 1 To UBound(Tableau)
If Tableau(K) <= Tableau(J) Then J = K Next K If I <> J Then
val = Tableau(J): Tableau(J) = Tableau(I): Tableau(I) = val
End If
Next I


For I = 1 To UBound(Tableau) + 1
resultat = resultat & Tableau(I - 1) & Chr(10)
Next

resultat = Left(resultat, Len(resultat) - 1)


'MsgBox resultat, , "Resultat du tri alphabetique "
aCell.Value = resultat

Next aCell

End Sub

Utiliser la fonction VLOOKUP (RECHERCHEV) dans une macro

Application.WorksheetFunction.VLookup(d(I - 1), Range("TABLE_POP"), 2, False)

Attention : la 1ère colonne de TABLE_POP doit être Texte

Séparer une chaîne de caractère en fonction d'un séparateur en VB

Function Split(machaine As String, sep As String) As String()
Dim I As Integer
Dim J As Integer, K As Byte
Dim chaineTemp As String
Dim Tableau() As String

I = 0
J = 0
K = 0
chaineTemp = machaine & sep

ReDim Preserve Tableau(0)


For I = 1 To Len(chaineTemp)
J = InStr(I, chaineTemp, sep)

K = K + 1
ReDim Preserve Tableau(K - 1)
Tableau(K - 1) = LTrim(Mid(chaineTemp, I, J - I))
I = I + Len(Mid(chaineTemp, I, J - I))
Next

Split = Tableau

End Function

FullSync

Fullsync permet de synchroniser deux répertoires.

Le paramètre d'exclusion :

(.*~.*|.+\.(tmp))

permet d'ignorer tous les fichiers commençant par ~ ou finissant par .tmp, en gros, tous les fichiers temporaires Office.

Pour en savoir + sur les expressions régulières : http://fr.wikipedia.org/wiki/Expressions_rationnelles

Les CARaFes : nouvelle troupe d'improvisation théâtrale !

Une troupe d'improvisation théâtrale vient de naître à Paris : Les CARaFes !

• Visiter le site des CARaFes
• Contacter les CARaFes par mail

Première représentation le 19 AOût 2005, au Libertalia (+ d'infos sur leur site).

Canon IXUS 400 (ou autre APN) comme Webcam

J'ai le IXUS 400. C'est un très bon appareil, mais malheureusement il n'a pas de fonction Webcam. Pourtant il peut fournir un flux vidéo en USB, comme le montre le programme Remote Shooting, fourni par CANON. Donc techniquement, ça doit être possible.

Je me suis donc mis à googler à tout va... J'ai trouvé de tout :
Des forums (français) qui disent que ce n'est pas possible, des forums (allemands) qui donnent comme solution d'utiliser une carte d'acquisition, et un forum (hollandais) qui fourni un "workaround" tout à fait sympatique que je me permets de reprendre ici.


Marche à suivre

1. Télécharger softcam de Luminositi et l'installer.
2. Connecter le IXUS à votre ordinateur par le port USB, l'allumer en postion "je veux voir mes photos".
3. Lancer Remote Shooting(*) et afficher la vidéo (en cliquant sur l'icone "Ouvrir l'écran de visée" : ).
   
4. Lancer softcam avec la configuration suivante : Dans 'Options', sélectionner 'SoftCam Screen Capture' comme 'Default Live Video Source' Puis dans la fenetre de Softcam, passer en 'Live'. Placer le cadre marron de softcam sur la vidéo de Remote Shooting.

Vous devriez arriver à ça :

Et voilà, le tour est joué. Maintenant, il ne reste plus qu'à lancer votre logiciel de visio !

Petite Explication

Softcam "filme" la zone de l'écran où est affichée la vidéo de votre IXUS. Il se comporte comme une caméra virtuelle que vous pourrez alors utiliser dans votre logiciel de visio préféré !

Bien sûr, softcam peut bien sûr servir à faire tout un tas de choses (enregistrer des vidéos de votre bureau pour faire des présentations, partager votre bureau en visio, ...), mais je vous les laisse découvrir tout seul!

Pour conclure, je dirai que cette solution n'est pas techniquement très satisfaisante... elle tient plus du bricolage que d'autre chose. Mais elle a le mérite de fonctionner, et de m'avoir fait découvrir un logiciel très pratique !

---

(*) Pour lancer Remote Shooting :
Dans ZoomBrowser EX (sur le CD fourni avec le IXUS 400), "Appareil & Carte Mémoire", puis "Remote Shooting...".

La montée qui descend

Vu à la TELE

Pour mon 1er post, je vais parler d'une curiosité locale : La montée qui descend.

C'est une route, pas loin de Savigny-lès-Beaune. Quand on s'y arrête en voiture, on a l'impression d'être dans une montée. Mais au point mort, la voiture avance... Sensation garantie !!!

Voici une photo, mais ça ne rend pas grand chose. Le mieux, c'est de s'y rendre :

Depuis Beaune, aller à Savigny. Une fois rentré dans le village, suivre la direction de la déchetterie. Sortir du village, passer 2 grands virages (le 1er à gauche, le second à droite), puis avant le tunnel qui passe sous l'autoroute, prendre la 1ere à droite. C'est sur ce chemin qui longe l'autoroute que ce trouve notre curiosité. Mais on est alors dans le mauvais sens. Il faut donc faire environ 200m pour trouver un endroit ou faire demi tour (à hauteur des panneaux d'autoroute qui indiquent Auxerre...). La "montée qui descend" se trouve juste après la grande descente du chemin. Pour se repérer, aidez vous de la photo !
Vous n'avez plus qu'à vous arrêter, frein à main serré. En regardant la route, on se dit que ça monte. Pourtant, en désserrant le frein à main, la voiture avance !


N'hésitez pas à demander aux autochtones en cas de besoin, ils sauront sûrement vous indiquer le chemin !

Emmanuel