Comment utilisé un test multiple ?

Version imprimable

06/08/2007, 10h43
bobie

Comment utilisé un test multiple ?
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:

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
06/08/2007, 11h06
Swiper
J'ai une petite idée que je n'ai pas testé.
Code:

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.
06/08/2007, 11h08
LeForestier
éventuellement mettre dans le "Caption" de tes checkBox le nom que tu doit avoir, ou bien dans le Tag.
Code:

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+
06/08/2007, 11h31
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:

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 :cry: )
06/08/2007, 12h29
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 :P :

Multiples checkbox

Bonne journée ;)
06/08/2007, 13h32
bobie

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

pour ajouter a une variable

Code:

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

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:

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