samedi 21 août 2010

Au pays du Soleil Levant



parc de Hibiya

samedi 7 août 2010

Nikon D90 vs Canon EOS 550D : le MATCH


Je ne vais pas faire durer le suspens très longtemps : j'ai choisi le D90. Et pourtant la lutte a été rude, la lecture de comparatifs longue et attentive, et jusqu'à la dernière seconde j'ai hésité.

Chaque appareil a ses avantages, et devinez quoi... ses inconvénients aussi. Mais bon, ce qui compte c'est de prendre une décision sur ce qui compte vraiment pour soit et - et là je cite les plus grand :
"Je ne sais pas si j'ai fait le bon choix, mais ce qui compte c'est de faire un choix."

Ce qui m'a intéressé sur le D90, c'est sa sensibilité en basse lumière, apparemment bien meilleure que le Canon. Le mode vidéo est nul, mais bon, vaut mieux réussir ses photos que ses films quand on achète un réflexe, non ?

La Poste de la Rue des Lavandières-Sainte-Opportune

Saint Eustache

De l'art ou du cochon

vendredi 12 septembre 2008

Un peu d'Oracle

select object_name, length(procsi_4000) from propdb_000293f_s;
select * from v$version;
select * from nls_database_parameters ;

vendredi 11 juillet 2008

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

vendredi 4 juillet 2008

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