Saisie obligatoir lancer macro apres controle

[wrap food]

Bonjour
J'ai crée le code ci-dessous

mais je suis bloquer pour la suite ...

Je voudrais que si toutes les cellules sont bien remplis, je puisse lancer une macro.

mais j'ai toujours le massage qui s'affiche même si toutes les cellules sont remplis.

pourriez vous m'aider

par avance merci



Sub saisie_obligatoire()
Dim Message As String
If Range("G7").Value = "" Then Message = Message & "-Prescripteur" & vbLf
If Range("G8").Value = "" Then Message = Message & "-Demandeur" & vbLf
If Range("G11").Value = "" Then Message = Message & "-Objet de la réunion" & vbLf
If Range("F12").Value = "" Then Message = Message & "-Centre de coût" & vbLf
If Range("M12").Value = "" Then Message = Message & "-N° APL" & vbLf
If Range("D14").Value = "" Then Message = Message & "-Date prestation" & vbLf
'If Range("E15").Value = "" Then Message = Message & "-Batiment" & vbLf
If Range("K15").Value = "" Then Message = Message & "-Salle" & vbLf
If Range("K15").Value = "" Then Message = Message & "-Heure de la prestation"
Call MsgBox("Une ou des cellules obligatoires ne sont pas remplies :" & vbLf & Message, vbExclamation)

 

[phlaurent55]

Re : Saisie obligatoir lancer macro apres controle

Bonjour warp,

essaie ceci:

Sub saisie_obligatoire()
Dim Message As String

Message = ""

If Range("G7").Value = "" Then Message = Message & "-Prescripteur" & vbLf
If Range("G8").Value = "" Then Message = Message & "-Demandeur" & vbLf
If Range("G11").Value = "" Then Message = Message & "-Objet de la réunion" & vbLf
If Range("F12").Value = "" Then Message = Message & "-Centre de coût" & vbLf
If Range("M12").Value = "" Then Message = Message & "-N° APL" & vbLf
If Range("D14").Value = "" Then Message = Message & "-Date prestation" & vbLf
'If Range("E15").Value = "" Then Message = Message & "-Batiment" & vbLf
If Range("K15").Value = "" Then Message = Message & "-Salle" & vbLf
If Range("K15").Value = "" Then Message = Message & "-Heure de la prestation"

If Message <> "" Then
    Call MsgBox("Une ou des cellules obligatoires ne sont pas remplies :" & vbLf & Message, vbExclamation)
End If

End Sub

à+
Philippe

 

[wrap food]

Re : Saisie obligatoir lancer macro apres controle

Merci phlaurent55

Juste encore une petite question

Comment faire pour revenir à la feuille si les cellules ne sont pas remplie.

Avec la modification, si je fais "OK" ca lance la macro.

auriez-vous la solution ..

désolé

 

[phlaurent55]

Re : Saisie obligatoir lancer macro apres controle

Re,

dans le cas où cette procédure serait appelée par un bouton se trouvant sur un UserForm, il y a lieu de modifier comme ceci pour clore l'USF et revenir sur la feuille

If Message <> "" Then
    Call MsgBox("Une ou des cellules obligatoires ne sont pas remplies :" & vbLf & Message, vbExclamation)
UserForm1.Hide
Exit Sub
End If

à+
Philippe