parc de Hibiya
Shooting in Paris
Un peu de tout, beaucoup de rien.
samedi 21 août 2010
mercredi 18 août 2010
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 ?
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 ;
select * from v$version;
select * from nls_database_parameters ;
jeudi 17 juillet 2008
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
Inscription à :
Articles (Atom)