For Next avec choix des valeurs pour le For

Re : For Next avec choix des valeurs pour le For

Bonjour,

Je sais pas si c est bien ca que j ai compris.

Re : For Next avec choix des valeurs pour le For

Bonjour LaBraise,

je pense que SelectCase répondrait mieux à ton problème

à+
Philippe
.

Re : For Next avec choix des valeurs pour le For

Merci pour vos réponses.

Je pensais utiliser un truc comme ça...



Je vous tiens au courant. 😀

Re : For Next avec choix des valeurs pour le For

bonjour

tu peux gagner une variable :

Dim m
For Each m In Array("Janvier", "Mars", "Août", "Décembre")
MsgBox m
Next m

Cliquez pour agrandir...

salut

Re : For Next avec choix des valeurs pour le For

Merci à tous pour votre aide... 😀

ci-joint ma version finale.

For Each NumColonne In Array(9, 10, 11, 12, 13, 20, 21)
C_RC = NumColonne - 5
Select Case NumColonne
Case 9: NumIndex = 2
Case 10 To 13: NumIndex = NumColonne - 5
Case 20: NumIndex = 11
Case 21: NumIndex = 10
End Select
Cells(C_NBLignesClients, NumColonne).Select
ActiveCell.FormulaR1C1 = _
"=IF(VLOOKUP(RC[-" & C_RC & "],'" & C_FileMappClients & "'!C_PlageClients,1,1)=RC[-" & C_RC & "],VLOOKUP(RC[-" & C_RC & "],'" & C_FileMappClients & "'!C_PlageClients," & NumIndex & ",1),""_SUPP_"")"
Selection.AutoFill Destination:=Range(Cells(C_NBLignesClients, NumColonne), Cells(C_NBLignes, NumColonne))
Range(Cells(C_NBLignesClients, NumColonne), Cells(C_NBLignes, NumColonne)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next NumColonne


😛