Discussion :

[foparis]

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 :

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
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.