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 Word ? recuperer ds 1 tableau avec for..next checkbox indicées

? recuperer ds 1 tableau avec for..next checkbox indicées

5 réponses
Avatar
chris
Bonjour à tous,

1 userform contient 20 checkbox. : CheckBox1; CheckBox2 etc.)
Est-il possible de recuperer directement dans une boucle toutes les valeurs
grace à un indice

quelque chose comme .....

For n = 0 to 19
varCheckBox(n)= UserForm1.CheckBox(n)
Next n

Merci d'avance
--
Ne pas utiliser la fonction: "Répondre à l'expéditeur"
L'adresse a été volontairement modifiée (spam)
écrire à: cchris.col@free.fr avec un seul 'c' au début
Signaler un problème avec ce contenu

5 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
Anacoluthe
Bonjour !

'chris' nous a écrit ...
1 userform contient 20 checkbox. : CheckBox1; CheckBox2 etc.)
Est-il possible de recuperer directement dans une boucle toutes les valeurs
grace à un indice
quelque chose comme .....
For n = 0 to 19
varCheckBox(n)= UserForm1.CheckBox(n)
Next n


Le plus proche de votre syntaxe serait quelque chose comme

For n = 1 to 19
varCheckBox(n)= UserForm1.Controls("CheckBox" & n).Value
Next n

Mais plus élégant serait d'énumérer les contrôles et d'en sortir
ceux dont le type est (TypeOf is) MSForms.CheckBox ce qui
permettrait de s'affranchir des noms CheckBox1 CheckBox2
car rien n'interdit d'appeler une Checkbox CasAcocherBingo :-)

Anacoluthe
« Il manque une case à l'oncle Tom »
- Maxime Le FORESTIER

Avatar
Geo

For n = 1 to 19
varCheckBox(n)= UserForm1.Controls("CheckBox" & n).Value
Next n

Mais plus élégant serait d'énumérer les contrôles et d'en sortir
ceux dont le type est (TypeOf is) MSForms.CheckBox ce qui
permettrait de s'affranchir des noms CheckBox1 CheckBox2
car rien n'interdit d'appeler une Checkbox CasAcocherBingo :-)

Anacoluthe
« Il manque une case à l'oncle Tom »


C'est d'ailleurs pour cela qu'il a arrêté la boucle à 19
(pour 20 cases).
mdr

--
A+

Avatar
chris
ça marche pas mais merci quand même


"Geo" a écrit dans le message de news:


For n = 1 to 19
varCheckBox(n)= UserForm1.Controls("CheckBox" & n).Value
Next n

Mais plus élégant serait d'énumérer les contrôles et d'en sortir
ceux dont le type est (TypeOf is) MSForms.CheckBox ce qui
permettrait de s'affranchir des noms CheckBox1 CheckBox2
car rien n'interdit d'appeler une Checkbox CasAcocherBingo :-)

Anacoluthe
« Il manque une case à l'oncle Tom »


C'est d'ailleurs pour cela qu'il a arrêté la boucle à 19
(pour 20 cases).
mdr

--
A+





Avatar
Anacoluthe
Bonjour !

'chris' nous a écrit ...
ça marche pas mais merci quand même


Qu'est-ce qui ne marche pas ???????
Avez-vous bien défini votre tableau et votre UserForm contient-elle
bien CheckBox1 CheckBox2 ... CheckBox19 ? Si oui, ça marche.

Anacoluthe
« Ca marche toujours lorsqu'on sait ce qu'on fait. »
- Richard BACH

Avatar
Geo

ça marche pas mais merci quand même


Tu ne pourrais pas être plus explicite ?
Qu'est-ce que tu as fait et qu'est-ce que ça donne ?


--
A+