Bonjour
j ai ecris cette macro
mais cela ne fonctionne pas
Sub remplir2()
Dim cel As Range, DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For Each cel In Sheets("Feuil1").Range("H2" & DernLigne)
If cel.Value = "" Then cel.Value = "01/01/1900"
Next cel
End Sub
Mais cela ne fonctionne Pas
Merci de me corriger ce que je ne comprends pas
j ai ecris cette macro
mais cela ne fonctionne pas
Sub remplir2()
Dim cel As Range, DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For Each cel In Sheets("Feuil1").Range("H2" & DernLigne)
If cel.Value = "" Then cel.Value = "01/01/1900"
Next cel
End Sub
Mais cela ne fonctionne Pas
Merci de me corriger ce que je ne comprends pas