extraire chiffre d'une date de naissance en vba

[thespeedy20]

Bonjour,


je souhaiterais extraire du 10/03/2010 (A1); le premier chiffre(1) et le placer en E10, le deuxième(0) en F10, le troisième(0) en G10, le quatrième(3) en H10....


Et ceci en vba si cela est possible


Merci d'avance pour l'aide apportée


Oli

 

[youky(BJ)]

Re : extraire chiffre d'une date de naissance en vba

Salut bien,
Voici qlq lignes de code

Private Sub CommandButton1_Click()
[E10] = Left([A1], 1)
[F10] = Mid([A1], 2, 1)
[G10] = Mid([A1], 4, 1)
[H10] = Mid([A1], 5, 1)
End Sub

Bruno

 

[Efgé]

Re : extraire chiffre d'une date de naissance en vba

Bonjour thespeedy20, Bonjour Bruno,
Juste pour le plaisir...

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]Dim[/COLOR] Carac(), Cols()
Carac = Array(1, 2, 4, 5): Cols = Array(5, 6, 7, 8)
[COLOR=blue]For[/COLOR] i = [COLOR=blue]LBound[/COLOR](Carac) [COLOR=blue]To UBound[/COLOR](Carac)
    Cells(10, Cols(i)) = Mid(Cells(1, 1), Carac(i), 1)
[COLOR=blue]Next[/COLOR] i
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[thespeedy20]

Re : extraire chiffre d'une date de naissance en vba

Re,

Merci Bruno, merci Efgé.

Vos deux solutions fonctionnent...Génial

Oli