Bonjour à tous,
J'ai des listes de jours au format texte dans un tableau excel, bien sur j'ai mis le format de cellule en Date mais sans succès, excel s'entête à reconnaitre les valeur comme texte
Voilà ce que contiennent les colonnes (des jours fériés)
Mardi 1 Janvier 2013
Lundi 1 Avril 2013
Mercredi 1 Mai 2013
Mercredi 8 Mai 2013
Jeudi 9 Mai 2013
Lundi 20 Mai 2013
Dimanche 14 Juillet 2013
Jeudi 15 Août 2013
Vendredi 1 Novembre 2013
Lundi 11 Novembre 2013
Mercredi 25 Décembre 2013
Je me suis dis qu'avec VBA j'allais pouvoir traiter ça rapidement
Voici mon code
J'obtiens incompatibilité de type à (CDate(D))
Au début j'étais parti avec cette syntaxe plus simple mais avec le même résultat au même endroit
D’après l'aide ma syntaxe est bonne , alors qu'ai-je dont encore fait de mal ?
Merci pour votre aide toujours précieuse
Didier
J'ai des listes de jours au format texte dans un tableau excel, bien sur j'ai mis le format de cellule en Date mais sans succès, excel s'entête à reconnaitre les valeur comme texte
Voilà ce que contiennent les colonnes (des jours fériés)
Mardi 1 Janvier 2013
Lundi 1 Avril 2013
Mercredi 1 Mai 2013
Mercredi 8 Mai 2013
Jeudi 9 Mai 2013
Lundi 20 Mai 2013
Dimanche 14 Juillet 2013
Jeudi 15 Août 2013
Vendredi 1 Novembre 2013
Lundi 11 Novembre 2013
Mercredi 25 Décembre 2013
Je me suis dis qu'avec VBA j'allais pouvoir traiter ça rapidement
Voici mon code
Code:
Sub dateconvertir()
Dim x As Long, y As Long
Dim D As Variant
With Sheets("Feuil1")
For x = 2 To 12
For y = 3 To 15
D = Cells(x, y).Value
Cells(x, y).Value = CDate(D)
Next y
Next x
End With
End Sub
Au début j'étais parti avec cette syntaxe plus simple mais avec le même résultat au même endroit
Code:
Sub dateconvertir()
Dim x As Long, y As Long
With Sheets("Feuil1")
For x = 2 To 12
For y = 3 To 20
Cells(x, y) = CDate(Cells(x, y))
Next y
Next x
End With
End Sub
D’après l'aide ma syntaxe est bonne , alors qu'ai-je dont encore fait de mal ?
Merci pour votre aide toujours précieuse
Didier