Utilisateur_X
XLDnaute Occasionnel
Bonjour
J'avais un problème avec le format des dates.Suite à une extraction que je fait les date étais parfois sur la forme dd/mm/yyyy et parfois mm/dd/yyyy et parfois en anglais expl:12/AUG/2020. Pour rendre tout sur la même forme j'ai utiliser la macro suivante qui fonctionne très bien
Sub modifDate()
Dim F1 As Range
Dim i As Integer
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set F1 = ActiveSheet.Range("A2:A" & DernLigne)
For i = 1 To F1.Rows.Count
F1(i, 3).Value = Format(F1(i, 3).Value, "dd/mm/yyyy")
Next i
Selection.NumberFormat = "dd/mm/yyyy"
Range("A1").Select
End Sub
Sauf que je veut appliquer cette macro sur des colonnes que je sélectionne. EXPL: je vais sélectionner une colonne H ou I ou autre et je veut appliquer cette macro dessus.
Est il possible ?
Merci à vous
J'avais un problème avec le format des dates.Suite à une extraction que je fait les date étais parfois sur la forme dd/mm/yyyy et parfois mm/dd/yyyy et parfois en anglais expl:12/AUG/2020. Pour rendre tout sur la même forme j'ai utiliser la macro suivante qui fonctionne très bien
Sub modifDate()
Dim F1 As Range
Dim i As Integer
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set F1 = ActiveSheet.Range("A2:A" & DernLigne)
For i = 1 To F1.Rows.Count
F1(i, 3).Value = Format(F1(i, 3).Value, "dd/mm/yyyy")
Next i
Selection.NumberFormat = "dd/mm/yyyy"
Range("A1").Select
End Sub
Sauf que je veut appliquer cette macro sur des colonnes que je sélectionne. EXPL: je vais sélectionner une colonne H ou I ou autre et je veut appliquer cette macro dessus.
Est il possible ?
Merci à vous
