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 Userform avec cases à cocher

Userform avec cases à cocher

3 réponses
Avatar
Vince
Bonjour
Je souhaite créer un userform avec 5 cases à cocher
Ex 1er case à cocher : alpha
2ème Béta, 3ème Charly, 4ème Delta 5ème Echo
Je souhaite que si par exemple je coche les cases à cocher 3, 4, et 5
que viennent s'inscrire espacés d'un point virgule dans une même cellule :
Charly; Delta; Echo.
Merci beaucoup
Vince
Signaler un problème avec ce contenu

3 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
Pascal Engelmajer
Salut,
'les checkbox chk1, chk2,..., chk5 sont dans une frame frmChk dans un
userform usr
Option Explicit
Private Sub chk1_Click()
action
End Sub
Private Sub chk2_Click()
action
End Sub
Private Sub chk3_Click()
action
End Sub
Private Sub chk4_Click()
action
End Sub
Private Sub chk5_Click()
action
End Sub
Sub action()
Dim ctrl As Control
Dim txt As String
txt = ""
With usr.frmChk
For Each ctrl In .Controls
If ctrl.Value Then txt = txt & ctrl.Caption & "; "
Next ctrl
End With
Range("A1") = Left(txt, Len(txt) - 2)
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Vince" a écrit dans le message de news:

Bonjour
Je souhaite créer un userform avec 5 cases à cocher
Ex 1er case à cocher : alpha
2ème Béta, 3ème Charly, 4ème Delta 5ème Echo
Je souhaite que si par exemple je coche les cases à cocher 3, 4, et 5
que viennent s'inscrire espacés d'un point virgule dans une même cellule :
Charly; Delta; Echo.
Merci beaucoup
Vince




Avatar
Vince
Désolé Pascal, malgré mes tests cela ne fonctionne pas
Vince

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
'les checkbox chk1, chk2,..., chk5 sont dans une frame frmChk dans un
userform usr
Option Explicit
Private Sub chk1_Click()
action
End Sub
Private Sub chk2_Click()
action
End Sub
Private Sub chk3_Click()
action
End Sub
Private Sub chk4_Click()
action
End Sub
Private Sub chk5_Click()
action
End Sub
Sub action()
Dim ctrl As Control
Dim txt As String
txt = ""
With usr.frmChk
For Each ctrl In .Controls
If ctrl.Value Then txt = txt & ctrl.Caption & "; "
Next ctrl
End With
Range("A1") = Left(txt, Len(txt) - 2)
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Vince" a écrit dans le message de news:

Bonjour
Je souhaite créer un userform avec 5 cases à cocher
Ex 1er case à cocher : alpha
2ème Béta, 3ème Charly, 4ème Delta 5ème Echo
Je souhaite que si par exemple je coche les cases à cocher 3, 4, et 5
que viennent s'inscrire espacés d'un point virgule dans une même cellule
:


Charly; Delta; Echo.
Merci beaucoup
Vince








Avatar
Pascal Engelmajer
Salut,
va voir la...
http://www.ilyapa.net/baseExcel/chkVince.xls
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Vince" a écrit dans le message de news:

Désolé Pascal, malgré mes tests cela ne fonctionne pas
Vince

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
'les checkbox chk1, chk2,..., chk5 sont dans une frame frmChk dans un
userform usr
Option Explicit
Private Sub chk1_Click()
action
End Sub
Private Sub chk2_Click()
action
End Sub
Private Sub chk3_Click()
action
End Sub
Private Sub chk4_Click()
action
End Sub
Private Sub chk5_Click()
action
End Sub
Sub action()
Dim ctrl As Control
Dim txt As String
txt = ""
With usr.frmChk
For Each ctrl In .Controls
If ctrl.Value Then txt = txt & ctrl.Caption & "; "
Next ctrl
End With
Range("A1") = Left(txt, Len(txt) - 2)
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Vince" a écrit dans le message de news:

Bonjour
Je souhaite créer un userform avec 5 cases à cocher
Ex 1er case à cocher : alpha
2ème Béta, 3ème Charly, 4ème Delta 5ème Echo
Je souhaite que si par exemple je coche les cases à cocher 3, 4, et 5
que viennent s'inscrire espacés d'un point virgule dans une même
cellule



:
Charly; Delta; Echo.
Merci beaucoup
Vince