Remplir derniere ligne non vide

Bonjour le Forum

Je voudrais mettre le chiffre 9 sur toute la dernière ligne non vide

Je voudrais procéder comme suit mais je sais que c'est pas juste . Pouvez vous m'aider ?

Ls = Range("A" & Rows.Count).End(xlUp).Row + 1

For Each cel In Range(("A:G") & Ls)

cel.formula= 9

Next cel

Bonjour,

je te propose cette correction:

Ls = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Ls,"G" & Ls) = 9

Tu me diras si ça fonctionne, par contre, tu fais Ls avec row + 1, ce qui fait que tu n'écris pas sur la dernière ligne non vide, mais sur la première ligne vide qui se trouve à la suite de ton tableau de données, je ne sais pas si c'est voulu...

Bonjour,

j'avais a peu prés la même chose que Ausecour

Sub test()
Ls = Range("A65000").End(xlUp).Row + 1
Range(Cells(Ls, 1), Cells(Ls, 7)).Value = 9
End Sub

Ok Merci à vous deux

Je suis ravi

Re