XL 2016 Appel à un module à l’aide d’un string

[juberrebi]

Bonjour,

J’ai créé un formulaire dans lequel on peut choisir les feuilles parmi lesquelles ont souhaite tirer aléatoirement une case. Il est donc au préalable nécessaire de choisir une feuille au hasard parmi celles sélectionnées.

J’ai donc procédé de la façon suivante:
1) J’ai créé 4 checkboxes: checkbox1, checkbox2, ... Qui sont associées aux 4 onglets de mon fichier et qu’on peut donc cocher ou non.
2) je tire un numéro entre 1 et 4 au hasard.
Et je souhaite alors vérifier si la feuille associée à ce numéro a été cochée.
Pour cela, j’aurais voulu faire quelque chose de la forme :
If « checkbox » & nombre_aleatoire =True Then ...

Mais bien sûr avec le format texte de mon « checkbox », mon bouton n’est pas reconnu 🙁

Auriez-vous une solution ? 🙂

Par avance merci 🙂

 

[Hasco]

Bonjour,

J'ai déjà fait quelque chose comme ça aujourd'hui, voir dans cette discussion la pièce jointe du post #4 et la fonction VBA getFeuilles() comment sont gérés les checkbox de formulaire.

Bonne soirée

 

[juberrebi]

Bonjour Roblochon,

Je teste cela demain (fichier sur mon espace de travail), mais avec votre exemple cela semble parfaitement fonctionner !
Je vous tiens au courant,
Merci et bonne soirée 🙂

 

[juberrebi]

Bonjour à tous,
Roblochon, je n'ai pas réussi à faire marcher ta méthode car dans le code que j'avais extrait de ton fichier :

Sheets("informations").Shapes("Checkbox" & idx).OLEFormat.Object

Seulement je n'avais pas d'équivalent au Sheets, puisque je travaillais sur un questionnaire.

J'ai néanmoins trouvé une solution et la voici

Controls("CheckBox" & x).Value = False

Merci beaucoup pour votre temps !

 

[Hasco]

bonjour,
...arf🙂
D'où la nécessité de joindre un fichier exemple dès la demande. Dans cette dernière vous parliez de feuilles et de checkBox, j'en ai déduit qu'il s'agissait de controles de formulaire.

Dans la discussion dont je vous ai communiqué le lien, c'était l'inverse......

Bon journée