Discussion :

[AliochaBada]

Salut, je debute severement en VBA et j'ai un souci maintenant avec une boucle DO....LOOP WHILE. J'ai fait des recherches, j'ai essayé differentes structures de boucles (IF..Then ; WHILE...Wend....), mais rien ne marche.

Objectif de la boucle :
En gros la boucle doit étudier la somme de deux cellules de chaque ligne,
supprimer la ligne entière si resultat =0
et passer à la ligne suivante si resultat différent de 0
Elle doit continuer jusqu'à ce que la premiere cellule de la ligne soit vide
Quand il rencontre cette cellule, il doit charger le N° de la ligne

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
17
18
[Private Sub CommandButton1_Click()
 
Dim ligne As Integer
Dim ligneVar As Integer
 
ligne = 7
 
Do
    If Cells(ligne, 3) + Cells(ligne, 4) = 0 Then
    Rows(ligne).Delete
    ligne = ligne - 1
    Else
    ligne = ligne + 1
Loop While Cells(ligne, 1) <> ""
 
ligne = ligneVar
 
End Sub

Le message d'erreur à l'execution m'etonne, car la syntaxe me parait ok ; il me dit : "Erreur de compilation : boucle sans DO"....

Quelqu'un pourrait m'aider à comprendre mon erreur?

MErci , merci

[plegat]

Salut,

Il te manque le ENDIF du IF... THEN... ELSE... ENDIF

Fais gaffe en déclarant ligne en INTEGER, ça va te planter une erreur dès la ligne 256...

Et pour finir, la ligne

Code :

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

ligne = ligneVar

n'est pas dans le bon sens

de plus, je ne sais pas trop ce que tu vas faire de lignevar ensuite, mais j'espère que tu en feras quelque chose...

[conconbrr]

Déjà un premier truc il te manque un endif :

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
17
18
19
20
Private Sub CommandButton1_Click()

Dim ligne As Integer
Dim ligneVar As Integer

ligne = 7

Do
    If Cells(ligne, 3) + Cells(ligne, 4) = 0 Then
       Rows(ligne).Delete
       ligne = ligne - 1
    Else
       ligne = ligne + 1
    endif
Loop While Cells(ligne, 1) <> ""

ligne = ligneVar

End Sub

[conconbrr]

Ton lignevar à la fin tu lui as pas donné de valeur, à quoi il sert??

[SfJ5Rpw8]

...
Fais gaffe en déclarant ligne en INTEGER, ça va te planter une erreur dès la ligne 256......

ne pas confondre integer et byte

[AliochaBada]

Arggh mais bien sur, le End If.... je vous jure je me suis relu avant de poster

Ca marche nickel maintenant

Bon si mon LigneVar as Integer risque de poser probleme, je vais le déclarer en Variant alors.
Oui je vais en faire quelque chose de ce LigneVar ; c'est justement pour recuperer cette valeur que j'ai du changer ma boucle initialement en IF.END IF (si si il y était parce que je ne voyais pas comment rajouter une une condition alternative avec IF.End If.

Encore merci pour votre aide ; c'est gentil de pas laisser tomber les pov' newbies qui ont découvert sur le tard le VBA.

[plegat]

ne pas confondre integer et byte

Argh!
Non, j'ai confondu lignes et colonnes!
32767 pour la limitation. En tous cas, avec un integer, ça plante avant la fin de la feuille. Donc faire attention (et passer en Long plutôt qu'en Integer)

[AliochaBada]

J'ai un probleme avec cette boucle rencontré avec une deuxieme serie de données :la différence je crois est que dès les premières lignes, la condition 1 est remplie et du coup la commande ligne-1 enlève des lignes qui ne font pas partie du bloc données, mais comment dire du cadre.

Est ce que quelqu'un pourrait me confirmer que pour ce type de boucle il faut indiquer une limite basse, par exemple en rajoutant le 2eme IF ou est ce que je suis à côté de la plaque?

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
17
18
19
20
21
22
'Supprime les lignes dont les carriage et ancillary costs sont à 0

Sheets("ImportFOURN").Activate

Dim ligne As Integer
Dim ligneVar As Long

ligne = 7

Do
    If Cells(ligne, 3) + Cells(ligne, 4) = 0 Then
    Rows(ligne).Delete
        If ligne > 7 Then
        ligne = ligne - 1
        Else: ligne = 7
        End If
    Else
    ligne = ligne + 1
    End If
Loop While Cells(ligne, 1) <> ""

End Sub

[jmfmarques]

Ce genre de gymnatique, qui aboutit finalement à gérer des lignes qui ont changé de numéro du fait de la suppression d'une ou de plusieurs lignes, conduit souvent à des gestions acrobatiques.

Pour éviter de telles situations, on fait en général l'inverse : on part de la dernière ligne à traiter et on remonte vers la première. De cette façon, aucune des lignes à traiter ne change de numéro en cours de route.

Bonne journée.

[AliochaBada]

Erf, oui, je comprends la logique. Merci pour la réponse.

Dans mon cas, ca va être plus dur, car ma selection est variable ; autant ma premiere ligne est toujours au meme endroit, autant la derniere est localisée de maniere différente à chaque occurence.

J'ai vu un truc avec xlendup qui pourra peut etre m'aider à démarrer la boucle par la denriere ligne.

Je vais voir ca, merci encore.

[conconbrr]

tu peux utiliser ce genre de chose :

Code :

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

worksheets("Feuille").range(worksheets(Feuille).range("Debut").address & ":" & worksheets("Feuille").range("Debut").end(xldown).address).select

Où Feuille est le nom de ta page et Debut le nom de ta première cellule.

Si tu veux te déplacer entre les cellules tu peux également utiliser la syntaxe

Code :

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

offset(i,j)

où i est le nombre de lignes de décalage et j le nb de colonnes.

ex:

Code :

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

worksheets("Feuille").range("Debut").offset(1,0).select

sélectionnera la case juste en dessous de Debut

[AliochaBada]

tu peux utiliser ce genre de chose :

Code :

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

worksheets("Feuille").range(worksheets(Feuille).range("Debut").address & ":" & worksheets("Feuille").range("Debut").end(xldown).address).select

Où Feuille est le nom de ta page et Debut le nom de ta première cellule.

Hey, merci Conconbrr, je testerai ca demain soir Ton code m'a donné sinon une autre idée pour commencer la boucle par les dernieres lignes.

Je pourrai définir le nombre de lignes à traiter grace au code permettant de stocker dans une variable le nombre de lignes de la selection :

Code :

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

1
2
3
4
'Selection des données à examiner
ActiveSheet.Range("A5:G5").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
nlignes = Selection.Rows.Count

Cette variable indiquerai alors dans ma boucle la ligne de fin à partir de laquelle démarrer, pour remonter vers la premiere.

Ca donnerait alors ca :

Code :

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

1
2
3
4
5
6
7
'Boucle de suppression des lignes dont C+D=0
Do
    If Cells(nlignes, 3) + Cells(nlignes, 4) = 0 Then
    Rows(nlignes).Delete
    Else: nlignes = nlignes-1
    End If
Loop While nlignes > 6

Enfin je vais tester les différentes methodes, merci encore