Bonjour,

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    For compteur = 4 To jmax
        If Sheets("Outil").Cells(compteur, 18).Value = 0 Then
            Rows(compteur).Delete
               j = 3
                jmax = 1
 
                While Sheets("Outil").Cells(j, 1).Value <> ""
                     j = j + 1
                     jmax = j
                Wend
 
                jmax = jmax - 1
                compteur = 4
 
        End If
    Next
Le problème c'est quelle tourne en continue.
Exemple concret. Mon jmax, après la dernière suppression de ligne est jmax = 50. Pourquoi mon compteur va jusque 51.

Je ne comprends absolument pas.

Je vous remercie d'avance pour vos réponses