Saisie obligatoir lancer macro apres controle

wrap food · 25 Décembre 2014

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 · 25 Décembre 2014

Re : Saisie obligatoir lancer macro apres controle

Bonjour warp,

essaie ceci:

Code:

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 · 25 Décembre 2014

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 · 25 Décembre 2014

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

Code:

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

à+
Philippe

Saisie obligatoir lancer macro apres controle

wrap food

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

wrap food

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Discussions similaires

Saisie obligatoir lancer macro apres controle

wrap food

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

wrap food

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Discussions similaires

Privacy & Transparency

Privacy & Transparency