Sur un userform l'usager doit choisir entre 13 boutons d'option.
Comment mettre un message d'avertissement en cliquant sur le bouton OK
s'il omet d'en choisir un ?
Au lieu de...
If OptionButton1 =3D False and OptionButton2 =3D False and
etc....OptionButton 13 =3D False Then
msg =3D "SVP veuillez choisir une t=E2che"
dialogstyle =3D vbOKOnly + vbCritical
Title =3D "Invalid data"
reponse =3D MsgBox(msg, dialogstyle, Title)
Cancel =3D True
Exit Sub
End If
Et comme cela m'arrive souvent, j'aimerais bien avoir un petit
raccourci....
Dans la m=EAme veine, afin de raccourcir le code, et selon le bouton
d'option choisi...=E9crire
If OptionButton1 =3D True Then Activecell.Offsett(0,
1).Value =3D OptionButton1.Caption
En fait =E9crire en une ligne que Activecell.Offsett(0, 1).Value=3D le
"caption" de l'optionbutton qui est true...parmi les 13
optionbutton.....
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
Youky
Bonsoir Denys, Avec ce code tu vois lesquels sont cochés ou si aucun n'est coché Youky
For Each c In ActiveSheet.OLEObjects If c.Name Like "CheckBox*" Then If ActiveSheet.OLEObjects(c.Name).Object.Value = True Then MsgBox c.Name n = n + 1 End If End If Next If n = 0 Then MsgBox "Rien de coché"
Bonsoir Denys,
Avec ce code tu vois lesquels sont cochés ou si aucun n'est coché
Youky
For Each c In ActiveSheet.OLEObjects
If c.Name Like "CheckBox*" Then
If ActiveSheet.OLEObjects(c.Name).Object.Value = True Then
MsgBox c.Name
n = n + 1
End If
End If
Next
If n = 0 Then MsgBox "Rien de coché"
Bonsoir Denys, Avec ce code tu vois lesquels sont cochés ou si aucun n'est coché Youky
For Each c In ActiveSheet.OLEObjects If c.Name Like "CheckBox*" Then If ActiveSheet.OLEObjects(c.Name).Object.Value = True Then MsgBox c.Name n = n + 1 End If End If Next If n = 0 Then MsgBox "Rien de coché"
LSteph
Bonsoir, Créer des petits groupes qd il, y a plusieurs choix avec des OptionButtons 2 ou3 par groupe Ok mais pour un seul choix tu aurais aussi une solution assez simple avec une Listbox.
http://cjoint.com/?lgxxegcBW1
Private Sub ListBox1_Click() ActiveCell.Offset(0, 1) = ListBox1 End Sub
Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 26 ListBox1.AddItem "choix" & i Next End Sub
'lSteph
Bonjour à tous,
Sur un userform l'usager doit choisir entre 13 boutons d'option. Comment mettre un message d'avertissement en cliquant sur le bouton OK s'il omet d'en choisir un ?
Au lieu de...
If OptionButton1 = False and OptionButton2 = False and etc....OptionButton 13 = False Then msg = "SVP veuillez choisir une tâche" dialogstyle = vbOKOnly + vbCritical Title = "Invalid data" reponse = MsgBox(msg, dialogstyle, Title) Cancel = True Exit Sub End If
Et comme cela m'arrive souvent, j'aimerais bien avoir un petit raccourci....
Dans la même veine, afin de raccourcir le code, et selon le bouton d'option choisi...écrire
If OptionButton1 = True Then Activecell.Offsett(0, 1).Value = OptionButton1.Caption
En fait écrire en une ligne que Activecell.Offsett(0, 1).Value= le "caption" de l'optionbutton qui est true...parmi les 13 optionbutton.....
J'espère que c'est suffisamment explicite..
Merci pour votre temps
Denys
Bonsoir,
Créer des petits groupes qd il, y a plusieurs choix avec des
OptionButtons 2 ou3 par groupe Ok mais pour un seul choix
tu aurais aussi une solution assez simple avec une Listbox.
http://cjoint.com/?lgxxegcBW1
Private Sub ListBox1_Click()
ActiveCell.Offset(0, 1) = ListBox1
End Sub
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 26
ListBox1.AddItem "choix" & i
Next
End Sub
'lSteph
Bonjour à tous,
Sur un userform l'usager doit choisir entre 13 boutons d'option.
Comment mettre un message d'avertissement en cliquant sur le bouton OK
s'il omet d'en choisir un ?
Au lieu de...
If OptionButton1 = False and OptionButton2 = False and
etc....OptionButton 13 = False Then
msg = "SVP veuillez choisir une tâche"
dialogstyle = vbOKOnly + vbCritical
Title = "Invalid data"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
Exit Sub
End If
Et comme cela m'arrive souvent, j'aimerais bien avoir un petit
raccourci....
Dans la même veine, afin de raccourcir le code, et selon le bouton
d'option choisi...écrire
If OptionButton1 = True Then Activecell.Offsett(0,
1).Value = OptionButton1.Caption
En fait écrire en une ligne que Activecell.Offsett(0, 1).Value= le
"caption" de l'optionbutton qui est true...parmi les 13
optionbutton.....
Bonsoir, Créer des petits groupes qd il, y a plusieurs choix avec des OptionButtons 2 ou3 par groupe Ok mais pour un seul choix tu aurais aussi une solution assez simple avec une Listbox.
http://cjoint.com/?lgxxegcBW1
Private Sub ListBox1_Click() ActiveCell.Offset(0, 1) = ListBox1 End Sub
Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 26 ListBox1.AddItem "choix" & i Next End Sub
'lSteph
Bonjour à tous,
Sur un userform l'usager doit choisir entre 13 boutons d'option. Comment mettre un message d'avertissement en cliquant sur le bouton OK s'il omet d'en choisir un ?
Au lieu de...
If OptionButton1 = False and OptionButton2 = False and etc....OptionButton 13 = False Then msg = "SVP veuillez choisir une tâche" dialogstyle = vbOKOnly + vbCritical Title = "Invalid data" reponse = MsgBox(msg, dialogstyle, Title) Cancel = True Exit Sub End If
Et comme cela m'arrive souvent, j'aimerais bien avoir un petit raccourci....
Dans la même veine, afin de raccourcir le code, et selon le bouton d'option choisi...écrire
If OptionButton1 = True Then Activecell.Offsett(0, 1).Value = OptionButton1.Caption
En fait écrire en une ligne que Activecell.Offsett(0, 1).Value= le "caption" de l'optionbutton qui est true...parmi les 13 optionbutton.....
J'espère que c'est suffisamment explicite..
Merci pour votre temps
Denys
Denys
Bonsoir Youky et LSteph,
Merci beaucoup pour votre temps... LSteph, je retiens ta proposition car elle me sera très utile maintenant et dans le futur....
Bonne soirée
Denys
Bonsoir Youky et LSteph,
Merci beaucoup pour votre temps... LSteph, je retiens ta proposition
car elle me sera très utile maintenant et dans le futur....
