Discussion :

[YassineBa]

Bonjour tout le monde, j'aime bien que vous me disiez comment passer à l'instruction suivante dans la boucle For Each dans le code suivant :

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
Sub Ex()
  For i = 2 To 16
    If Cells(i, 3).Value = "Name" Then
      For Each C In Columns(12).Cells
        If Not IsEmpty(Cells(l, 12)) Then
            Continue For ' c'est ici qu'il y a une erreur de compilation 
        Else
            C.Interior.Color = RGB(218, 150, 148)
            C.Borders.LineStyle = xlDouble
            C.Value = "S"
        End If
      Exit For
      Next C
    End If
  Next i
End Sub

Merci beaucoup pour votre aide

[unparia]

Bonjour
Tu cherches quoi ? A traduire en code un algorithme ?

Remplace donc "continue For" par rien (supprime cette ligne)

Cet algo est-il d'ailleurs le tien ? Si oui : montre donc l'algo (car sa traduction est probablement plus simple que ce que tu as fait).

[YassineBa]

Merci de votre réponse unpparia
Normalement je suis pas un programmeur mais j’essaie d'apprendre, et c 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
 
Sub Ex()
For i = 2 To 16
If Cells(i, 3).Value = "Name" Then
For Each C In Columns(12).Cells
If Not IsEmpty(Cells(l, 12)) Then
Continue For ' c'est ici qu'il y a une erreur de compilation 
Else
C.Interior.Color = RGB(218, 150, 148)
C.Borders.LineStyle = xlDouble
C.Value = "S"
End If
Exit For
Next C
End If
Next i
End Sub

ce que je voulais faire, c'est de détecter le mot Name dans la colonne 3 ,qui contient plusieurs autres mots, puis écrire Name dans la colonne 12 comme suit :
le premier mot Name s’écrira dans la première cellule de la colonne 12, puis le deuxième mot Name de la colonne 3 s'écrira dans la 2emme cellule de la colonne 12 et ainsi de suite

[unparia]

As-tu lu mon message précédent ? D'où "sors-tu" cette ligne d'instruction ?

Code :

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

Continue For

qui ne voudrait dire quelque-chose en VB que si Continue était une procédure (laquelle ?) et que For était un paramètre à lui passer
Cette ligne est, je le vois bien, une ligne copiée/collée d'un algorithme. Je t'ai demandé de le montrer, cet algorithme.

Commence par commenter (dire ce que tu penses que cela fait) chaque ligne de ce que tu as écrit. Ce sera un vrai premier pas, puisque tu "essayes de comprendre".

[YassineBa]

huuumm tu vois bien que c'est du copier/coller d'un algorithme,très bien t'es un génis . mais pour moi c'est faux car j'ai écris ce truc moi meme en pensant qu'en vba il existe une instruction pour passer à l'autre itération sous une condition sans continuer la boucle, bref voila la solution que j'arrive à l'écrire (moi meme sans du copier/coller car c simple et j'en ai pas besoin )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Ex()
  For i = 2 To 16
    If Cells(i, 3).Value = "Nam" Then
        j = 1
        While Not IsEmpty(Cells(j, 12))
        j = j + 1
        Wend
            Cells(j, 12).Interior.Color = RGB(218, 150, 148)
            Cells(j, 12).Borders.LineStyle = xlDouble
            Cells(j, 12).Value = "S"
    End If
  Next i
End Sub

[Philippe Tulliez]

Bonjour,

en pensant qu'en vba il existe une instruction pour passer à l'autre itération sous une condition sans continuer la boucle

L'instruction Exit For fait cela