Dernière ligne

Bonjour les Excelnautes,

Je me retourne aujourd'hui vers vous pour soumettre une préoccupation.

J’écris une macro qui permet de remplir toutes les cellules vides par un mot bien spécifique et jusque la, tout marche bien sauf que mon code n'est pas capable trouver la dernière cellule vide.

Pour mieux comprendre, je joins un fichier a cette demande un fichier avec deux exemples.

Merci pour votre aide.

Bonjour,

utilise CurrentRegion

Sub cellblank()

Dim Cel As Range
Set Ma_Plage = Range("E4").CurrentRegion
For Each Cel In Ma_Plage
If Cel.Value = "" Then Cel.Value = "YES"
Next Cel

End Sub

Si tu souhaites distinguer les colonnes, fais un test sur le numéro de colonne en plus !

Merci Steelson de ta réponse.

Ta solution fonctionne effectivement pour le fichier que j'ai envoyé mais lorsque j'essaie de l’étendre a un autre tableau, toutes les cellules sont remplis alors que je souhaite juste remplir les cellules vides de la colonne F.

en gros, je voudrais que le code remplisse les cellules vides de la colonne F du genre ("F4:F") sachant que la dernière cellule est vide.

Le code ne doit pas être statique parce que le tableau peut changer.

Merci encore.

Bonjour à tous,

Ajout d'une condition au code de Steelson ...

Sub cellblank_B()
Dim Cel As Range

    Set ma_plage = Range("E4").CurrentRegion
    For Each Cel In ma_plage
        If Cel.Value = "" And Cel.Column = 6 Then Cel.Value = "YES"
    Next Cel
End Sub

ric

Bonjour ric,

Merci beaucoup pour cette réponse, c'est bien ce que je voulais.

Merci aussi Steelson.