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 je reformule ma demande : boucle sur des checkbox

je reformule ma demande : boucle sur des checkbox

4 réponses
Avatar
S'Ju
voilà ce que j'ai actuellement dans mon code :
des formulaires avec des cases à cocher (checkbox1 à 30, ou 1 à 95)

i = 2
UserForm4.CheckBox1.Caption = Worksheets("table").Range("A" + Trim(Str$(i)))
i = i + 1
UserForm4.CheckBox2.Caption = Worksheets("table").Range("A" + Trim(Str$(i)))
i = i + 1
UserForm4.CheckBox3.Caption = Worksheets("table").Range("A" + Trim(Str$(i)))
i = i + 1
etc....

En effet, le libellé de mes boutons est en colonne A de ma "table" et j'ai 5
tables différentes, avec des libellés un peu différents.

Ne serait-il pas plus simple de faire une boucle ?
Le pb c'est que je ne trouve pas comment.


Après je voudrais récupérer les résultats dans une boucle de 1 à 30 ou de 1
à 95


Merci d'avance

S'Ju
Signaler un problème avec ce contenu

4 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
ru-th
Salut

pas testé
with userform4
for i=1 to 30
.controls("CheckBox" & i).caption=Worksheets("table").Range("A" +
Trim(Str$(i)))
next i
end with

a+
rural thierry
"S'Ju" a écrit dans le message de news:
40150da2$0$7165$
voilà ce que j'ai actuellement dans mon code :
des formulaires avec des cases à cocher (checkbox1 à 30, ou 1 à 95)

i = 2
UserForm4.CheckBox1.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
UserForm4.CheckBox2.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
UserForm4.CheckBox3.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
etc....

En effet, le libellé de mes boutons est en colonne A de ma "table" et j'ai
5

tables différentes, avec des libellés un peu différents.

Ne serait-il pas plus simple de faire une boucle ?
Le pb c'est que je ne trouve pas comment.


Après je voudrais récupérer les résultats dans une boucle de 1 à 30 ou de
1

à 95


Merci d'avance

S'Ju




Avatar
S'Ju
J'essaye tout de suite

Merci

S'Ju

"ru-th" a écrit dans le message de
news:
Salut

pas testé
with userform4
for i=1 to 30
.controls("CheckBox" & i).caption=Worksheets("table").Range("A" +
Trim(Str$(i)))
next i
end with

a+
rural thierry
"S'Ju" a écrit dans le message de news:
40150da2$0$7165$
voilà ce que j'ai actuellement dans mon code :
des formulaires avec des cases à cocher (checkbox1 à 30, ou 1 à 95)

i = 2
UserForm4.CheckBox1.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
UserForm4.CheckBox2.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
UserForm4.CheckBox3.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
etc....

En effet, le libellé de mes boutons est en colonne A de ma "table" et
j'ai


5
tables différentes, avec des libellés un peu différents.

Ne serait-il pas plus simple de faire une boucle ?
Le pb c'est que je ne trouve pas comment.


Après je voudrais récupérer les résultats dans une boucle de 1 à 30 ou
de


1
à 95


Merci d'avance

S'Ju








Avatar
S'Ju
Ca fonctionne, merci beaucoup.

S'Ju
quelle économie de code je vais faire !!


"ru-th" a écrit dans le message de
news:
Salut

pas testé
with userform4
for i=1 to 30
.controls("CheckBox" & i).caption=Worksheets("table").Range("A" +
Trim(Str$(i)))
next i
end with

a+
rural thierry
"S'Ju" a écrit dans le message de news:
40150da2$0$7165$
voilà ce que j'ai actuellement dans mon code :
des formulaires avec des cases à cocher (checkbox1 à 30, ou 1 à 95)

i = 2
UserForm4.CheckBox1.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
UserForm4.CheckBox2.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
UserForm4.CheckBox3.Caption = Worksheets("table").Range("A" +
Trim(Str$(i)))

i = i + 1
etc....

En effet, le libellé de mes boutons est en colonne A de ma "table" et
j'ai


5
tables différentes, avec des libellés un peu différents.

Ne serait-il pas plus simple de faire une boucle ?
Le pb c'est que je ne trouve pas comment.


Après je voudrais récupérer les résultats dans une boucle de 1 à 30 ou
de


1
à 95


Merci d'avance

S'Ju








Avatar
Chris Michel
C'est génial ce truc! Merci Rural Thierry!


-----Message d'origine-----
Salut

pas testé
with userform4
for i=1 to 30
..controls("CheckBox" & i).caption=Worksheets
("table").Range("A" +

Trim(Str$(i)))
next i
end with

a+
rural thierry
"S'Ju" a écrit dans le
message de news:

40150da2$0$7165$
voilà ce que j'ai actuellement dans mon code :
des formulaires avec des cases à cocher (checkbox1 à
30, ou 1 à 95)



i = 2
UserForm4.CheckBox1.Caption = Worksheets("table").Range
("A" +


Trim(Str$(i)))
i = i + 1
UserForm4.CheckBox2.Caption = Worksheets("table").Range
("A" +


Trim(Str$(i)))
i = i + 1
UserForm4.CheckBox3.Caption = Worksheets("table").Range
("A" +


Trim(Str$(i)))
i = i + 1
etc....

En effet, le libellé de mes boutons est en colonne A de
ma "table" et j'ai


5
tables différentes, avec des libellés un peu différents.

Ne serait-il pas plus simple de faire une boucle ?
Le pb c'est que je ne trouve pas comment.


Après je voudrais récupérer les résultats dans une
boucle de 1 à 30 ou de


1
à 95


Merci d'avance

S'Ju





.