Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel For .... next

For .... next

8 réponses
Avatar
Serge
Bonjour,


Je désire boucler sur mes variables var1, var2 ,..., var5 avec
For i=1 to 5
with var .... ---> Comment écrire cette ligne ??????????
blabla
end with
next

Merci
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
CAP2
Salut,

var & i

doit marcher...

C'est le cas ?

CAP2
Avatar
Une solution est de faire un tableau à une dimension:

MaVar = Array(Var1, var2, var3, var4, var5)
For i = 0 to 4
... MaVar(i)
Next i



-----Message d'origine-----
Bonjour,


Je désire boucler sur mes variables var1, var2 ,...,
var5 avec

For i=1 to 5
with var .... ---> Comment écrire cette
ligne ??????????

blabla
end with
next

Merci


.



Avatar
Serge
non pas bon, erreur d'exécution 424, objet requis.


"CAP2" a écrit dans le message de
news:%
Salut,

var & i

doit marcher...

C'est le cas ?

CAP2




Avatar
isabelle
la variable représente quel objet ?

isabelle


non pas bon, erreur d'exécution 424, objet requis.

"CAP2" a écrit dans le message de
news:%
Salut,

var & i

doit marcher...

C'est le cas ?

CAP2






Avatar
CAP2
Tes variables sont de quel type ?
Et quel code voudrais-tu mettre en place ?

CAP2
Avatar
Serge
Bonjour Isabelle,

Mes variables (Boite1, Boite2, ...) sont du type :
Set Boite1 = Worksheets("Résultats").OLEObjects("ComboBox1")
Merci


"isabelle" a écrit dans le message de
news:
la variable représente quel objet ?

isabelle


non pas bon, erreur d'exécution 424, objet requis.

"CAP2" a écrit dans le message de
news:%
Salut,

var & i

doit marcher...

C'est le cas ?

CAP2








Avatar
Serge
Voici mon code :
Private Sub Workbook_Open()
Set Boite1 = Worksheets("Résultats").OLEObjects("ComboBox1")
Set Boite2 = Worksheets("Résultats").OLEObjects("ComboBox2")
Set Boite3 = Worksheets("Résultats").OLEObjects("ComboBox3")
Set Boite4 = Worksheets("Résultats").OLEObjects("ComboBox4")
Set Boite5 = Worksheets("Résultats").OLEObjects("ComboBox5")

For i = 1 To 5

With Boite(i)
.Object.AddItem "2001"
.Object.AddItem "2002"
.Object.AddItem "2003"
.Object.AddItem "2004"
.Object.AddItem "2005"
.Object.BoundColumn = 0
.Object.ListIndex = 0

End With
Next i
End Sub

Je souhaite initialiser ttes mes listes avec 2001,2001, ...

Merci de ton aide
"CAP2" a écrit dans le message de
news:
Tes variables sont de quel type ?
Et quel code voudrais-tu mettre en place ?

CAP2




Avatar
CAP2
Salut Serge,

je cherche un truc, mais au passage pourquoi ne pas éviter de passer par VBA
en créant des règles de validation sur plusieurs cellules ?

Données/Validation et tu choisis "liste".
En source tu mets 2001;2002;2003;....

Quand tu viens sur une cellule avec ce critère, tu as une déroulante qui
apparaît et tu n'as plus qu'à faire un choix... A toi après de récupérer le
résultat du choix dans ta cellule et d'en faire ce que tu veux...

Ca conviendrait pas ?

CAP2