XL 2016 valeur par defaut si vide

[reve24]

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

 

[Papou-net]

Bonjour reve24,

Tu ne dis pas ce qui ne fonctionne pas, alors peut-être en corrigeant comme ceci:

Sub remplir2()
Dim cel As Range, DernLigne As Long

DernLigne = Range("H" & Rows.Count).End(xlUp).Row
For Each cel In Sheets("Feuil1").Range("H2:H" & DernLigne)
If cel.Value = "" Then cel.Value = "01/01/1900"
Next cel
End Sub

Cordialement.

 

[reve24]

Bonjour Papou-Net

OK, cela ne fonctionnait pas , maintenant cela fonctionne jusqu a la dernière ligne
Seulement je souhaite que cela soit sur la dernière ligne de la colonne AA

remplir la colonne HH si cellule de cette colonne vide jusqu a la derniere ligne de la colonne AA

Merci pour ton aide

 

[reve24]

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:H" & DernLigne)
If cel.Value = "" Then cel.Value = "01/01/1900"
Next cel
End Sub

Thank you pour ton aide j ai eu la lumiere avec moi grace a toi