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

[unparia]

Bonjour Philippe Tulliez
Il ne souhaite pas quitter la boucle
Le "Continue For" que l'on voyait dans son premier message est en réalité un bout de code VB.Net où une telle instruction :
- ne nécessite pas la clause Else qui figurait dans son code
- passe directement à l'itération suivante de la boucle en ignorant les instructions qui suivent ce Continue For (une espèce de Goto déguisé)

Pour ce qui est maintenant de son nouveau code :
cette partie :

Code :

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

1
2
3
4
j = 1
While Not IsEmpty(Cells(j, 12))
        j = j + 1
 Wend

est maladroite (une boucle à recommencer systématiquement) et serait à remplacer par :

Code :

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

j = range("L" & rows.count).end(xlup).row

encore que : je ne suis pas du tout certain de ce qu'il veuille vraiment mettre ses résultats à la suite les uns des autres en colonne L, quelle que soit la ligne d'occurrence trouvée (à quoi pourraient être utiles des "S" mis en colonne L qui ne seraient pas en regard des "Name" trouvés en colonne C ?)
Et quand bien même ces résultats (ses "S") seraient à mettre réellement à la suite les uns des autres, sa variable j serait à remplacer par un simple compteur incrémenté de 1 unité (une variable statique ferait l'affaire).

Voilà la/les raison(s) pour laquelle/lesquelles je lui demandais de commenter ses lignes de code ou de montrer l'algo qu'il voulait mettre en code. Cela aurait permis d'y voir clair.

Pour le reste : il est certain que (s'il veut utiliser VBA) ses boucles doivent être utilement remplacées par l'utilisation de la méthode Range.Find

Amitiés.

[Philippe Tulliez]

Bonjour Unparia,
Je ne connais pas le VB.NET sauf de nom et évidemment le Continue For ne pouvait pas m'interpeller.
Je n'ai pas analysé non plus son code et n'ai simplement répondu suite à sa phrase qui contenait "sous une condition" et "sans continuer la boucle" que j'ai traduit par "en quittant la boucle" d'où Exit For.
Beau dimanche
Philippe