Discussion :

[bobie]

Bonjour à tous,
j'ai crée un programme ou j'ai 26 checkbox, lorsque je click sur la checkbox1 celui çi copie une feuille A et l'insère dans une autre feuille Bilan. Chaque check box correspond a une feuille et lorsque je click sur plusieurs checkbox toute mes feuilles sont copié sur ma feuille bilan les unes à la suite des autres.
Voila je voudrais que lorsque je click sur plusieurs checkbox le nom des feuilles sur lequelle j'ai clické s'insèrent dans mon entete sans avoir a déclaré tout les tests possible.
Voila mon programme pour le moment :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If CheckBox1 = True Then
Range("A1").Formula = "Visite A"
End If

je voulais savoir s'il y était possible d'utilisé un test multiple plutot qu'un test simple qui m'oblige a déclaré tout les cas possibles.
si quelqu'un à une idée et peut m'aider se serait sympas
merçi

[Swiper]

J'ai une petite idée que je n'ai pas testé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 1 to 26 
 
If CheckBox & i = True Then
Range("A1").Formula = "Visite A"
End If
 
Next

J'ai un doute sur CheckBox & i mais dis moi ce que ca fait.

[LeForestier]

éventuellement mettre dans le "Caption" de tes checkBox le nom que tu doit avoir, ou bien dans le Tag.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If CheckBox1 = True Then
     Range("A1").text = CheckBox1.name
'    ou
     Range("A1").text = CheckBox1.tag
End If

ça répondra peut-être à ta question.
A+

[bobie]

merçi pour vos réponses,
en faite ce que je voudrais c'est lorsque je click sur plusieurs checkbox le nom de chacune des check box apparaissent dans ma case A1
sans avoir a faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If CheckBox1,CheckBox2,CheckBox3 = True Then
Range("A1").Formula = "Visite A+B+C"
End If

je cherche une formule qui automatiquement fasse tout sans que j'ai à écrire tous les cas possible (sachant que pour 26 feuilles je doit ecrire tous les cas imaginables )

[Guidhy]

Bonjour, je ne sais pas si cela peut t'aider, mais j'ai eu un problème un peu dans le même style (je crois) et Plateforme3 est venu à mon secours :

Multiples checkbox

Bonne journée

[bobie]

Merçi beaucoup pour ta réponse
bonne journée

[alsimbad]

pour ajouter a une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
a = "montexte"
msgbox a
cells ("a1") = a
a = a & " mon autre texte "
msgbox a
cells ("a1") = a