Convertir une date jjmmaaaa en jj/mm/aaaa

Bonjour

Private Sub Worksheet_Change(ByVal Target As Range)  
Dim i As Byte  

'délimite la zone d'action  
If Intersect(Target, Range("A2:A21")) Is Nothing Then: Exit Sub  

'désactive les événements  
Application.EnableEvents = False  

'boucle sur la zone  
For i = 2 To 21  
If Len(Range("A" & i)) = 8 Then
Range("A" & i) = DateSerial(Right(Range("A" & i), 4), Left(Right(Range("A" & i), 6), 2), Left(Range("A" & i), 2)) 
end if 
Next i  


Application.EnableEvents = True  
End Sub

explications: 1/woookshhetts_change se déclenche lorsque tu changes la valeur et c'est ce que tu cherches à faire ! (12092010 en 12/09/2010)
enableevents= false désactive tous les événements et résoud ce problème

2/ j'ai réduis la zone d'action: si dans ta feuille tu as un texte ou un nombre de longueur 8 , tu vas planter ou tu auras une transformation en date!

3/ on aurait pu laisser "madate" mais je ne savais pas si madate est à l'origine en chiffres ou texte
remet là si tu sais le type d'origine


nota: valable qu'à partir de l'année 1900

Bonjour,

Merci pour ton aide

Je pense bien avoir fait tout comme il faut, mais non rien ne se passe.

Je suppose que c'est à cause des autres codes comme je l'ai expliqué plus bas. Car du coup j'ai ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Byte

'délimite la zone d'action
If Intersect(Target, Range("I2:I21")) Is Nothing Then: Exit Sub

'désactive les événements
Application.EnableEvents = False

'boucle sur la zone
For i = 2 To 21
If Len(Range("I" & i)) < 8 Then Exit Sub
Range("I" & i) = DateSerial(Right(Range("I" & i), 4), Left(Right(Range("I" & i), 6), 2), Left(Range("I" & i), 2))
Next i

Application.EnableEvents = True


If Not Intersect(Target, [R2:R2]) Is Nothing Then
Demande_correction1
End If

If Range("U2").Value = "Oui" Then
Envoi_fichier
Fin
End If

End Sub


Laure

j'avais modifié mon code:

If Len(Range("A" & i)) = 8 Then
Range("A" & i) = DateSerial(Right(Range("A" & i), 4), Left(Right(Range("A" & i), 6), 2), Left(Range("A" & i), 2))
end if

mais je ne comprend la fin à partir de
If Not Intersect(Target, [R2:R2]) Is Nothing Then

Re,

Encore merci de m'aider !

Oui j'ajoute ton code ci-dessous au milieu du mien (le reste à partir de
If Not Intersect(Target, [R2:R2]) Is Nothing Then correspond au code déjà présent sur la feuille)

For i = 2 To 21
If Len(Range("A" & i)) = 8 Then
Range("A" & i) = DateSerial(Right(Range("A" & i), 4), Left(Right(Range("A" & i), 6), 2), Left(Range("A" & i), 2))
End If
Next i

Application.EnableEvents = True


mais rien ne se passe quand je tape 17062010 , j'ai tjrs 17062010

Laure