Dernière ligne - colonne

[batmanrob]

Bonjour à tous,

j'ai un début de macro vba comme suit

For Each cel In Range("B7:Z19")

J'aimerais bien remplacer le Z19 par l'indice de la dernière cellule garnie (ligne - colonne) afin de gagner du temps (ne pas balayer toute la zone si la dernière cellule remplie est F8)

Merci de votre aide

 

[Hervé]

Re : Dernière ligne - colonne

bonjour

une solution possible parmis d'autres :

Dim c As Range
Dim cell As Range

Set c = ActiveSheet.UsedRange
Set c = c(c.Rows.Count, c.Columns.Count)
For Each cell In Range("b7", c)

salut