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

[bobie]

bonjour à tous,
j'aurais besoin d'un peu d'aide car Guidhy ma donné ce programme qui va certainment résoudre mon problème seulement j'ai beaucoup de mal à l'adapter à mon programme car je suis débutant sur VBA. je voudrais qu'en fonction des checkbox coché le nom associé a celle çi (a,b,c,d....) soit inscrit dans ma case A1 de ma feuille. voilà le programme de Guidhy :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Private Sub CommandButton3_Click()
 
Dim Ligne As Integer
Const Premiere_Col = 3
Dim Test As Boolean
 
Set choix(1) = CheckBox1
Set choix(2) = CheckBox2
Set choix(3) = CheckBox3
Set choix(4) = CheckBox4
Set choix(5) = CheckBox5
Set choix(6) = CheckBox6
Set choix(7) = CheckBox7
Set choix(8) = CheckBox8
Set choix(9) = CheckBox9
Set choix(10) = CheckBox10
Set choix(11) = CheckBox11
Set choix(12) = CheckBox12
Set choix(13) = CheckBox13
Set choix(14) = CheckBox14
Set choix(15) = CheckBox15
Set choix(16) = CheckBox16
Set choix(17) = CheckBox17
Set choix(18) = CheckBox18
Set choix(19) = CheckBox19
Set choix(20) = CheckBox20
Set choix(21) = CheckBox21
Set choix(22) = CheckBox22
Set choix(23) = CheckBox23
Set choix(24) = CheckBox24
 
Dim c As String
c = 0
 
Do
    Test = True
    For i = Premiere_Col To Premiere_Col + 23
        If LCase(Cells(Ligne, i)) <> "oui" And choix(i + 1 - Premiere_Col).Value = True Then
            Test = False
            Exit For
        End If
    Next
    If Test = True Then
'ici je voudrais mettre le résultat dans la case A1
End If
    Ligne = Ligne + 1
Loop While Not IsEmpty(Cells(2, Ligne)) 'boucle tant que la colonne Nom est pleine
End Sub
 
Ne pas oublier dans un autre module :
 
Public choix(24)

si quelqu'un sait comment faire se serait vraiment sympas car je suis débutant et je n'ai aucune idée de comment faire.
merçi d'avance