Discussion :

[vivi4561]

Bonjour,
J'ai un petit soucis en vba avec 2 boucles for.

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To TextBox1
 
    For j = 3 To dernierevaleur
        If Range("A" & j).Value <> ListBox2.List(ListBox2.ListIndex) Then
            Next j
        Else
            Range("F" & j).Value = 1
            Next i
        End If

TextBox 1 et ListBox1 sont des données d'une UserForm.

Il m'est impossible de compiler et me sors comme message d'erreur :
Impossible de compiler: Next sans for et me met en gras la ligne Next j

Savez vous d'où viens le problème ?

[jfontaine]

Bonjour,

Je n'ai pas testé, mais ça devrait être quelque chose comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For i = 1 To TextBox1
 
    For j = 3 To dernierevaleur
        If Range("A" & j).Value = ListBox2.List(ListBox2.ListIndex) Then
            Range("F" & j).Value = 1
            j=dernierevaleur
        end if
     Next j
 
Next i

[vivi4561]

RE,
ça marche déjà bcp mieux.
Merci bcp.

ça ne fait pas encore ce que j'attend mais en tout cas il n'y a plus d'erreur de codage.
Merci

[vivi4561]

Je vois d'où viens le problème.

La boucle For met tjs un 1 dans la meme case jusqu'à ce que i = TextBox1.
Enfait il faudrait qu'il garde en mémoire qu'il a déjà mis un 1 dans une des cases et qu'il l'ignore ensuite ....

[vivi4561]

C'est bon problème résolu.

J'ai rajouté une nouvelle variable et tout marche.Merci pour ton aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
n = 0
For i = 1 To TextBox1
    j = 0
    For j = 3 To dernierevaleur
        If Range("A" & j + n).Value = ListBox2.List(ListBox2.ListIndex) Then
            Range("F" & j + n).Value = 1
            n = j - 2
            j = dernierevaleur
 
        End If
     Next j
 
Next i

[jfontaine]

Dans ce cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For i = 1 To TextBox1
 
    For j = 3 To dernierevaleur
        If Range("A" & j).Value = ListBox2.List(ListBox2.ListIndex) Then
            if Range("F" & j).Value <> 1 then
                Range("F" & j).Value = 1
                 j=dernierevaleur
             end if
        end if
     Next j
 
Next i

[vivi4561]

Merci bcp.

C'est bcp mieux écrit .