Macro et conditions

[frusciantefan]

Bonjour bonjour, je reviens vous déranger pour un petit probleme


Toujours sur mon dossier avec mes formulaires, j'ai mis en place une petite macro d'impression sans pretention.
Or je me rend compte que certaine personne imprime les formulaires en question, AVANT MEME de l'avoir rempli ce qui n'est pas le but... Bien qu'ayant positionner un onglet "instructions", peu de gens la lisent...

Je voudrais donc faire en sorte d'intégrer une condition dans la macro qui dit : si telle plage de cellule pour la feuille 1 n'est pas renseigné alors: "merci de compléter le formulaire avant l'impression" ==> si le formulaire n'est pas rempli : l'impression est bloquée lorsqu'on clique sur le bouton.

Dans l'exemple joint :

Si C7 = vide alors : message d'erreur quand on essaye de cliquer sur le bouton "impression"

Si C7 = renseignée : l'impression se fait normalement.

Merci pour votre aide!

FF

 

[tototiti2008]

Re : Macro et conditions

Bonjour,

à mettre dans le code de Thisworkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Sheets("feuil1").Range("C7").Value = "" Then
        MsgBox "Impossible d'imprimer si C7 est vide"
        Cancel = True
    End If
End Sub

 

[frusciantefan]

Re : Macro et conditions

Merci toto

Si je veux faire une condition sur plusieurs cellules, comment adapter le code?

Dans mon fichier excel, je copie colle donc 3 formulaires différents, et les cellules ne se trouvent pas a la même place.
Je suis donc obliger d'adapter le code pour chaque type de formulaire et donc définir une plage de cellule pour chaque type de formulaire.

Je ne sais pas comment m'y prendre...

 

[tototiti2008]

Re : Macro et conditions

Re,


Si par exemple ni C7, ni C8 ne doivent être vides

If Sheets("feuil1").Range("C7").Value = "" Or Sheets("feuil1").Range("C8").Value = "" Then