OptionButton

[malinsard]

Bonjour à tous je sais le sujet à été aborder plusieurs fois mais je ne m'en sort pas.
J'ai dans une feuille 2 ObtionButton (obFacture et obDevis).
je souhaiterai un message si aucune des deux options n'est choisie, du style "vous devez cocher Facture ou Devis"
voici le code de mon bouton de commande:
Sub Impression_Facture_Devis()
MakeDirEx ("C:\Factures_Devis\")

If ActiveSheet.obFacture.Value = True Then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Factures_Devis\Facture de" & " " & ActiveSheet.Range("I12").Value & " " & ActiveSheet.Range("I13").Value & " " & Format(ActiveSheet.Range("B18"), "ddmmyyyy")
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Factures_Devis\Devis de" & " " & ActiveSheet.Range("I12").Value & " " & ActiveSheet.Range("I13").Value & " " & Format(ActiveSheet.Range("B18"), "ddmmyyyy")
End If

End Sub
Merci pour votre aide.

 

[phlaurent55]

Bonjour Malinsart,

commence ta procédure comme ceci:

Sub Impression_Facture_Devis()
If ActiveSheet.obFacture.Value = False And ActiveSheet.obDevis.Value = False Then
       Msgbox(“Vous devez cocher au moins une option”)
       Exit Sub
End If
‘  -------------------la suite du code

à+
Philippe