msgbox option button non validé

[fr832]

Bonjour,
j'ai un userform avec un dtpicker et deux optionbuttion

les optionbutton appel des macros, cela fonctionne ,
je voudrais juste rajoutez un msgbox si l'un des deux optionbutton n'est pas validé

Par avance merci et bonne fin de dimanche

Private Sub Image1_Click()

'si sélection optionbuttonHK
If OptionButtonHK = True Then
    Call remplir_feuille_de_tir_HK
Else
End If

'range les dates dans les feuilles de tir
Range("E15").Value = Me.DTPicker1

'ferme l'userform
Unload Me

'si sélection optionbuttonHK
If OptionButtonFAMAS = True Then
    Call remplir_feuille_de_tir_FAMAS
Else
End If

'range les dates dans les feuilles de tir
Range("E15").Value = Me.DTPicker1

'ferme l'userform
Unload Me

End Sub

😕

 

[systmd]

Re : msgbox option button non validé

Bonsoir,

Si j'ai bien compris

Private Sub Image1_Click()

If (optionbuttonHK = False) And (optionbuttonFAMAS = False) Then
   MsgBox "Faire une une sélection auparavant"
   Exit Sub
   End If
   
'si sélection optionbuttonHK
If optionbuttonHK = True Then
.......

 

[fr832]

Re : msgbox option button non validé

bonsoir systmd c'est tout a fait ce que je cherché mes amitiés🙂