Discussion :

[lionhigh]

Bonjour et bon lundi,

Comme le sujet l'indique en très codifié, je cherche a faire une boucle for avec la structure suivante et je demande aux vbatistes expérimentés si c'est possible.

Code :

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

1
2
3
4
5
6
For x = 0 To x = 10
    If Cells(x, "A") = "" Then
          Next x
    Else
          Action
Next x

Lorsque j'exécute le code, le message d'erreur Next sans for apparaît.
Il y a t'il une syntaxe pour passer au prochain x avant la fin de la boucle ?
Ou dois-je développer mon If afin qu'il incrémente x jusqu'a à ce que Cells(1, "A") = "" soit faux ?

Merci

[JackOuYA]

Bonjour,

Il ne faut qu'un seul next par for, mais déjà pose toi la question :

As quoi sert ma boucle For x.... si je ne me sert pas de la valeur x ...?

[lionhigh]

J'avais mal copié mon code.

Cells(1, "A") est en fait Cells(x, "A")
Voici le code complet, mais je crois que j'ai trouvé la solution...
Il marche lorsque la colonne A est entièrement remplie. Mais à ce moment la, nombreDeDettes a également une valeur plus grande ;-)

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
For x = 2 To nombreDeDettes
        Sheets("MACAAT39").Select
        ligne = 1
 
        If (Cells(x, "S") = "" Or Cells(x, "A") = "") Then
 
        ElseIf (Len(Cells(x, "A")) <> 0 And Asc(Cells(x, "S")) = 67) Then
            Rows(x & ":" & x).Select
            Selection.Cut
            Sheets("Compensés").Select
            Do
                If Cells(ligne, "A") <> "" Then
                    ligne = ligne + 1
                Else
                    Rows(ligne & ":" & ligne).Select
                    ActiveSheet.Paste
                    Exit Do
                End If
            Loop While ligne <= x
        Else
        End If
    Next x

[JackOuYA]

Complétement illisible ton code sans balises de code ,


Si je comprends bien tu ne veux rien faire si Cells(x,A) = "" ..?


un truc du genre

Code :

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

1
2
3
4
5
6
 
For x = ...
  If Cells(X,A) <> "" Then
        '.... ton code ici...
  End if
Next x

[lionhigh]

Exactement, je ne veux rien faire dans ce cas.
Seul les lignes ou la colonne A est remplie m'intéressent.
Le problème s'est résolu tout seul.
Quand j'ai un problème avec un code, c'est comme X-Files : la réponse est ailleurs
XD
Merci :-)