Discussion :

[guismoman60]

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

[Marc-L]

Bonjour, bonjour !

La valeur de fin est figée lors de l'appel de la boucle, modifier une variable ne change pas cette valeur !

Logique à revoir …

[guismoman60]

D'accord, j'ai pas trop compris ta réponse lol. As tu une solution?

[Marc-L]

Ligne n°1 : la valeur de la variable jmax de la fin de boucle est figée, B-A-BA des boucles, lire donc l'aide VBA …

Lors de suppression de lignes, il faut boucler de la dernière ligne en remontant à la première, question de pure logique !

Si un code ne fonctionne pas, c'est quasiment toujours à cause d'une erreur de conception,
inutile donc de perdre du temps à le traduire !

Mieux vaut donc laisser le demandeur exposer clairement sa problématique …


_________________________________________________________________________________________________
Un problème sans solution est un problème mal posé. (Albert Einstein)

[MarcelG]

Bonjour le Forum,

Je prends la discussion en cours.

Comme l'indique Marc-L, le prolème réside dans la logique des actions.

En effet, tes numéros de ligne se répètent.
Si tu supprimes la ligne 52, alors la ligne 53 devient 52, etc...

C(est la raison pour aquelle, lorsqu'il y a suppression, il faut boucler non pas de la valeur minimale à la valeur maximale,
mais l'inverse, soit de la valeur minimale à la valeur maximale
Autrement dit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For compteur = jmax to 4

Ce processus te servira à épurer ton code.

Bonne journée.

[guismoman60]

Merci pour vos réponse ça marche...