Re : boucle for each x avec case
Bonjour,
voici le code modifié (Il faut enlever le texte sous le tableau) :
Sub test()
For Each X In Sheets("BD").Range(Sheets("BD").Range("D2"), Sheets("BD").Range("D65536").End(xlUp))
With Sheets("effectif")
Select Case X
Case "EVJP"
.Range("A21").End(xlUp).Offset(1, 1) = X.Offset(0, 1)
.Range("A21").End(xlUp).Offset(1, 0) = X.Offset(0, -2) & " " & X.Offset(0, -1)
Case "EVD"
.Range("A39").End(xlUp).Offset(1, 1) = X.Offset(0, 1)
.Range("A39").End(xlUp).Offset(1, 0) = X.Offset(0, -2) & " " & X.Offset(0, -1)
Case "REST"
.Range("G39").End(xlUp).Offset(1, 1) = X.Offset(0, 1)
.Range("G39").End(xlUp).Offset(1, 0) = X.Offset(0, -2) & " " & X.Offset(0, -1)
End Select
End With
Next
End Sub
Tu n'as plus qu'à rajouter des "Case" en fonction des autres critères.
NB - Pour ce genre de questio, tu peux reprendre le Post d'origine, c'est plus facile pour le suivi ...