Boucle dernière cellule d'une colonne

Bonjour ,

j'ai une boucle sur une macro mais je voudrai qu'elle s'arrête à la dernière cellule non vide de la colonne B de l'onglet (total) ,

j'ai essayé avec cette formule mais ca ne fonctionne pas elle affiche un message d'erreur à la fin de la macro,

Merci pour votre aide,

Cdt,

Bonjour Barth, bonjour le forum,

95 messages ici et tu te permets d'envoyer une "capture d'écran" alors que le site offre la possibilité d'envoyer le code formaté et même un fichier Excel.

T'as essayé sur les forums PhotoChope ? T'auras peut-être une réponse... Sinon :

Dim O As Worksheet
Dim DEST As Range
Dim LI As Integer

Set O = Worksheets("Total")
'pour une cellule
Set DEST = O.Cells(Application.Rows.Count, "B").End(xlUp)

'pour la ligne
LI = O.Cells(Application.Rows.Count, "B").End(xlUp).Row

utilise plutôt

imax = sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row 

Cela va te donner la dernière ligne de ton tableau si il y a aucune donnée en dessous de ton tableau sino utilise

Do While sheets("Feuil1").cells(NumLigne, Numéro de colonne de ton tableau).value <> ""

NumLigne = NumLigne + 1
Loop

imax = NumLigne - 1

Les numéros de ligne et de colonnes ainsi que les noms de feuilles sont à adapter

Bonjour et merci pour vos réponses ,

je mets ce post en résolu vous m'avez été d'une grande aide,

CDt,