Probleme avec code sur: for each et select case

Bonjour,

A priori manque un endif, mauvais placement du end select.

Essayer avec ca SVP, devrait marcher :

Sub couleurGagnant()
supcouleur

'rechercher le classement de chaque joueur
For classement = 1 To 5
'decaller à droite la recherche dans les résultats
For n = 1 To 5
'toutes les cellules du tableau
For Each cell In Sheets('tabpoule').Range('c4:c6,g4:g6')
If cell = Cells(3, 17 + n) And Cells(3, 17 + n).Offset(12, 0) = classement _
Then Select Case classement
Case 1
MsgBox '1'
Case 2
MsgBox '2'
Case 3
MsgBox '3'
Case 4
MsgBox '4'
Case 5
MsgBox '5'
End Select
End If
Next
Next n
Next classement
End Sub

essaye ca
Sub couleurGagnant()

'rechercher le classement de chaque joueur
For classement = 1 To 5
'decaller à droite la recherche dans les résultats
For n = 1 To 5
'toutes les cellules du tableau
For Each cell In Sheets('tabpoule').Range('c4:c6,g4:g6')
If cell = Cells(3, 17 + n) And Cells(3, 17 + n).Offset(12, 0) = classement Then
Select Case classement
Case 1
MsgBox '1'
Case 2
MsgBox '2'
Case 3
MsgBox '3'
Case 4
MsgBox '4'
Case 5
MsgBox '5'
End Select
End If
Next cell
Next n
Next classement

End Sub

Salut vinc26 et 21ch181,

Juste un tip de développeur: utilise l'incrémentation de ton code afin de le rendre le plus lisible possible et éviter ce genre d'erreur du type:

Là tu vois bien l'imbrication des If...Then, Select...Case. Ceci étant valable pour les For...Next, Do...Loop, etc.

Bonne fin de journée

Merci à vous deux

La propositon de vinc26 marche tres bien et avec le cours derriere c'est au top

merci

Salut

un autre peit conseil de programeur (de base):

des que tu écris un if , ecris le endif qui suit et remonte achever ta ligne de if , idem pour while select case etc....

2 eme chose cherche sur le net apres INDENT97 écris par un, mvp anglophone et tu sauras remettre ton code en 'escalier' automatiquement comme le conseille Mr Excel ...


Patrick
si tu trouves pas, je te file, il est 'free'