Boucle et Range pour application foot

Bonjour,

Je rencontre un problème avec mon code.
Je dispose d'un classeur avec 2 feuilles.
Une feuille Résultat et une feuille Equipes.
Les Résultats sont présentés de la sorte :
Colonne 2 : Equipe Recevante ( ex : Bordeaux); Colonne 3 : un tiret (-) ; Colonne 4 : equipe qui
joue à l'extérieur ( ex : Lens)
Je souhaiterai retrouver dans ma feuille Equipe l'ensemble des equipes (Colonne 2 et 4)
mais il ne prend en compte que les equipes qui sont en colonne 4.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Resultat_Equip()   Dim i As Integer Dim j As Integer   Dim wEquipe As Worksheet Dim wResultat As Worksheet Dim NomEquipe As String   Set wEquipe = ActiveWorkbook.Worksheets("equipes") Set wResultat = ActiveWorkbook.Worksheets("resultat") wEquipe.Activate wEquipe.Range("A2:I1000").Clear For i = 2 To 100 For j = 2 To 4 Step 2   NomEquipe = wResultat.Cells(i, j).Value   wEquipe.Cells(i, 1).Value = NomEquipe   Next j Next i   End Sub

---

Pouvez-vous me dire comment faire apparaitre l'ensemble des équipes ?

Merci.

Voila j'ai fait une modif et ça marche
Quand tu veux voir ce que fait ton code tu fait F8 et tu déroules ton code ligne par ligne pour voir ou ça coince

Quand tu poste ton code sur le forum met les balises code pour que ce soit plus lisible (bouton #)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Resultat_Equip()   Dim i As Integer Dim j As Integer, l As Integer   Dim wEquipe As Worksheet Dim wResultat As Worksheet Dim NomEquipe As String   Set wEquipe = ActiveWorkbook.Worksheets("equipes") Set wResultat = ActiveWorkbook.Worksheets("resultat") wEquipe.Activate wEquipe.Range("A2:I1000").Clear l = 2 For i = 2 To 100 For j = 2 To 4 Step 2 NomEquipe = wResultat.Cells(i, j).Value wEquipe.Cells(l, 1).Value = NomEquipe l = l + 1 Next j Next i   End Sub

---