Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel CHECKBOX, last (but not least) question

CHECKBOX, last (but not least) question

2 réponses
Avatar
ed
Bonjour et pardon pour cette cascade de questions...
J'ai 4 checkbox, une par année...
Je voudrais par la formule if, else, (ou autre...) récupérer l'info dans une
cellule
ex... si checkbox 1 et checkbox 2 sont true, alors le texte à mettre dans la
cellule sera... "bonjour"
si checkbox 2 et 3 sont true, alors le texte sera "bonsoir"... etc pour
chaque hypothese (16)
GROS GROS MERCI
ed
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Pour tes 4 checkboxes :

Private Sub CheckBox1_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

Private Sub CheckBox2_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

Private Sub CheckBox3_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

Private Sub CheckBox4_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

et dans un module :

Sub Calcul(cb1, cb2, cb3, cb4)
Dim Ctr As Integer, Tabl(15) As String
Ctr = 0
Tabl(0) = "aucun checkbox coché"
Tabl(1) = "checkbox1 coché"
Tabl(2) = "checkbox2 coché"
Tabl(3) = "checkboxs 1 et 2 cochés"
Tabl(4) = "checkbox4 coché"
'*** etc.
If cb1.Value = True Then Ctr = 1
If cb2.Value = True Then Ctr = Ctr + 2
If cb3.Value = True Then Ctr = Ctr + 4
If cb4.Value = True Then Ctr = Ctr + 8
[A1] = Tabl(Ctr)
End Sub

à compléter pour les valeurs 5 à 15.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour et pardon pour cette cascade de questions...
J'ai 4 checkbox, une par année...
Je voudrais par la formule if, else, (ou autre...) récupérer l'info dans
une
cellule
ex... si checkbox 1 et checkbox 2 sont true, alors le texte à mettre dans
la
cellule sera... "bonjour"
si checkbox 2 et 3 sont true, alors le texte sera "bonsoir"... etc pour
chaque hypothese (16)
GROS GROS MERCI
ed


Avatar
ed
UN ENOOOOORME MERCI.
J'étais vraiment pas sur la piste... Là j'avoue que je suis impressionné.
Super Daniel ! Je teste tout ça...
ed


Bonjour.
Pour tes 4 checkboxes :

Private Sub CheckBox1_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

Private Sub CheckBox2_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

Private Sub CheckBox3_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

Private Sub CheckBox4_Click()
Calcul CheckBox1, CheckBox2, CheckBox3, CheckBox4
End Sub

et dans un module :

Sub Calcul(cb1, cb2, cb3, cb4)
Dim Ctr As Integer, Tabl(15) As String
Ctr = 0
Tabl(0) = "aucun checkbox coché"
Tabl(1) = "checkbox1 coché"
Tabl(2) = "checkbox2 coché"
Tabl(3) = "checkboxs 1 et 2 cochés"
Tabl(4) = "checkbox4 coché"
'*** etc.
If cb1.Value = True Then Ctr = 1
If cb2.Value = True Then Ctr = Ctr + 2
If cb3.Value = True Then Ctr = Ctr + 4
If cb4.Value = True Then Ctr = Ctr + 8
[A1] = Tabl(Ctr)
End Sub

à compléter pour les valeurs 5 à 15.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour et pardon pour cette cascade de questions...
J'ai 4 checkbox, une par année...
Je voudrais par la formule if, else, (ou autre...) récupérer l'info dans
une
cellule
ex... si checkbox 1 et checkbox 2 sont true, alors le texte à mettre dans
la
cellule sera... "bonjour"
si checkbox 2 et 3 sont true, alors le texte sera "bonsoir"... etc pour
chaque hypothese (16)
GROS GROS MERCI
ed