B batmanrob XLDnaute Nouveau 12 Septembre 2006 #1 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
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é XLDnaute Barbatruc 12 Septembre 2006 #2 Re : Dernière ligne - colonne bonjour une solution possible parmis d'autres : Code: 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 Vote positif 0 Vote négatif
Re : Dernière ligne - colonne bonjour une solution possible parmis d'autres : Code: 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