Si, sinon

Salut à tous,

Je coince sur une procédure... Pouvez-vous m'aider ?

J'ai créé un formulaire automatique pour un questionnaire de satisfaction client.

Ce dernier peut envoyer directement un email avec un PSF en pièce jointe.

En clickant sur le bouton "Envoi", je souhaite faire un contrôle que tout est bien rempli.

J'ai le résultat de ce contrôle dans ma cellule A9

Si cette cellule est égale à 0, une nouvelle macro d'envoi se lance.

Si cette cellule n'est pas égale à 0, je souhaite faire apparaître un message d'avertissement en lançant un userform

Le client pourra annuler l'envoi ou envoyé quand même le formulaire incomplet (deux boutons dispo sur le Userform)...

Je coince sur le SI ... SINON

Voilà mon essai :

Sub Envoi_Email()

Sheets("Formular").Select

If Range("A9") = 0 Then: Call Envoi_PDF

UsF_Caution.Show

End Sub

Il me manque clairement la maitrise en la matière

Merci pour vos lumières.

Cordialement

Willau

bonjour,

une proposition de correction

Sub Envoi_Email()
Sheets("Formular").Select
If Range("A9") = 0 Then
    Call Envoi_PDF
Else
    UsF_Caution.Show
End If
End Sub

Juste parfait !

Merci infiniment