For Next avec choix des valeurs pour le For

[La braise]

Bonjour à Tous,

je vous soumets mon pbm qui risque de vous sembler fort simple... 😕

Je cherche à écrire à la place de :

For variable = 10 to 21

un truc qui ressemblerait à ça :

For variable = (10,12,17,18,20,21)

pour que ma variable ne prenne que ces valeurs pour faire la boucle.

Est-ce possible? Je pense que oui...

D'avance merci pour votre aide toujours aussi efficace! 😀

 

[suistrop]

Re : For Next avec choix des valeurs pour le For

Bonjour,

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

Sub toto()
tab_t = Array(10, 20, 30, 40, 50)
For i = LBound(tab_t) To UBound(tab_t)
y = tab_t(i)
Next i
End Sub

 

[phlaurent55]

Re : For Next avec choix des valeurs pour le For

Bonjour LaBraise,

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

à+
Philippe
.

 

[La braise]

Re : For Next avec choix des valeurs pour le For

Merci pour vos réponses.

Je pensais utiliser un truc comme ça...

Dim mois As Variant, m As Variant
mois = Array("Janvier", "Mars", "Août", "Décembre")
For Each m In mois
code
Next m​

Je vous tiens au courant. 😀

 

[Hervé]

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

salut

 

[La braise]

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


😛