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.

[diude54]

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 :

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