[VBA-E]Case A Cocher

Hello tout le monde !

j'ai une question a vous poser :

j'aimerais que dans une variable soit stocker plusieurs informations concernant les cases à cochés qui sont cochées... je m'explik si j'y arrive

EXEMPLE :

Code:

---

1 2	Dim SelectionCase As Variant

---

dans selectioncase, il y aurait le caption de mes cases à cocher si elles sont cochées

Code:

---

1 2 3 4

If case1 = true then // si case1 est coché selectioncase = case1.caption //alors la variable prend la valeur de case1 end if

---

mais par contre, si j'ai 8 cases à cocher qui sont cochées, alors dans ce cas la valeur de ma variable selectioncase serait le Caption des cases à cocher

Code:

---

1 2	selectioncase = case1.caption & case2.caption & case3.caption

---

je ne sais pas du tout si c'est possible ou s'il y a un autre moyen de parvenir a cette idée (si je me suis exprimé assez clairement)

Merci d'avance et a bientot

Salut,

Tu peux essayer ça, en appelant la procédure SPCheckBox avec un bouton "valider" par exemple ou bien lorsque tu fermes la userform en utilisant l'évènement QueryClose

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

Private Sub SPCheckBox()   SPSelectionCase CheckBox1.Caption, CheckBox1.Value   SPSelectionCase CheckBox2.Caption, CheckBox2.Value   SPSelectionCase CheckBox3.Caption, CheckBox3.Value   SPSelectionCase CheckBox4.Caption, CheckBox4.Value   'Etc....   End Sub   Private Sub SPSelectionCase(locStrChk As String, locBooChk as Boolean)   If Not locBooChk Then Exit Sub   If selectioncase = "" Then selectioncase = locStrChk Else selectioncase = selectioncase + " - " + locStrChk End If   End Sub

---

Merci pour ta réponse ! mais c'est quoi un Sub SPCheckBox ?
comment l'utiliser ? je suis novice en VBA...8-)

C'est juste le nom de la fonction que j'ai fait pour te montrer ce que tu voulais faire : )

donc dans cette fonction, tu met autant de ligne

Code:

---

SPSelectionCase CheckBox1.Caption, CheckBox1.Value

---

que tu as de checkBox (en remplaçant à chaque fois par le nom de la CheckBox)

ensuite,
si tu as un bouton "valider" sur ta userform, tu met :

Code:

---

1 2 3 4 5 6 7

Private Sub cmdValider_Click() 'cmdValider = nom du bouton   SPCheckBox   Unload UserForm   End Sub

---

et à la sortie tu auras ta variable selectioncase remplit

enfaite j'ai essayé et a la fin, la variable reste tout de meme vide, j'ai essayé d'afficher le contenu de la variable dans un msgbox !! jte montre le code :

Code:

---

1 2 3

Public Sub Confiramtion_Click() SPCheckBox MsgBox (selectioncase)

---

c'est ce que g marqué !

++

Pourrais-tu mettre tout ton code stp ?

ça serait plus simple pour trouver d'où vient le problème merci ;)

ok alors le voici :

ca c'est ce que tu m'a donné toi :

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

Private Sub SPCheckBox()   SPSelectionCase CheckBox1.Caption, CheckBox1.Value   SPSelectionCase CheckBox2.Caption, CheckBox2.Value   SPSelectionCase CheckBox3.Caption, CheckBox3.Value   SPSelectionCase CheckBox4.Caption, CheckBox4.Value   'Etc....   End Sub   Private Sub SPSelectionCase(locStrChk As String, locBooChk As Boolean)   If Not locBooChk Then Exit Sub     If selectioncase = "" Then selectioncase = locStrChk Else selectioncase = selectioncase + " - " + locStrChk End If   End Sub

---

ensuite mon bouton d'envoi c'est ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Sub Confiramtion_Click() SPCheckBox   MsgBox (selectioncase)   Cellule(1, 1) = CorpsDeclarations.ExpediteurNom.Text Cellule(1, 2) = CorpsDeclarations.ExpediteurPrenom.Text Cellule(1, 3) = CorpsDeclarations.DateJour & " / " & CorpsDeclarations.DateMois & " / " & CorpsDeclarations.DateAnnee Cellule(1, 5) = CorpsDeclarations.Supplement.Text Cellule(1, 4) = selectioncase Cellule(1, 6) = CorpsDeclarations.HeureArret_H & " H " & CorpsDeclarations.HeureArret_M.Text Cellule(1, 7) = CorpsDeclarations.HeureReprise_H & " H " & CorpsDeclarations.HeureReprise_M.Text Cellule(1, 8) = CorpsDeclarations.TotalHeure_H & " H " & CorpsDeclarations.TotalHeure_M.Text Cellule(1, 9) = CorpsDeclarations.RaisonPanne.Text Cellule(1, 10) = CorpsDeclarations.ReparationsReglages.Text   Load CorpsOutlook CorpsOutlook.Show   End Sub

---

j'ai mis ton code en dessus du mien !

ok

alors, il te faut remplacer les CheckBox1.value, CheckBox1.caption, Chekbox2 etc... par les noms de tes checkbox

c'est à dire, celles que tu as sur ta userform

elle s'appellent justement Checkbox1, etc...

tu sais pas d'ou ca pourait venir ?

vérifie le nom de ton bouton de commande "confirmation", puisque dans ta procédure tu l'as appelé confiramtion.... peut être que sur ta userform il est écrit correctement

sinon, déclares bien ta variable SelectionCase en tant que variable globale au module. c'est à dire que tu la mets tout en haut du module, avant les procédures

Code:

---

Private SelectionCase As String

---

et sinon, essaye en pas à pas de voir sur quelle ligne exactement ça plante...

super gars !!

merci beaucoup ! jte redis kan c'est ok !

bonne soirée

Ciao, c'est ok ca fonctionne !

Thanks