Verifier cellules vides avant lancement macro (envoie mail avec piece jointe)

shawn77 · 13 Mars 2013

Bonjour

je suis en train de travailler sur un fichier avec des cellules à completer obligatoirement.
J'ai créé un bouton d'envoie par mail du fichier excel actuel, mais je voudrais que ces cellules ne soient pas vides avant de cliquer sur ce bouton.

Comment creer cette macro qui va verifier si les cellules sont vides quand on clic sur le bouton du formulaire ?
Si cellules vides = message d'info et le mail n'est pas envoyé
si cellules complétées : le message (incluant le fichier excel) est envoyé.

merci pour votre aide

Orodreth · 13 Mars 2013

Re : Verifier cellules vides avant lancement macro (envoie mail avec piece jointe)

Bonjour,

Un petit fichier parle beaucoup plus.

M'enfin pour l'histoire, je présume que tu parles de VBA.
En admettant qu'il s'agisse de la cellule A1 de la Feuil1:

Code:

      Dim EnvoiPossible as Boolean
      EnvoiPossible = true 'Par défaut, on peut envoyer

      'On teste s'il y a une valeur
      If Sheets("Feuil1").Range("A1").value = "" then
            'S'il n'y en a pas, on refuse l'envoi
            EnvoiPossible = False
      End If

      ....
      ....
      
      If EnvoiPossible Then
           'On envoie le mail ici
      End if

Cordialement,
Orodreth

shawn77 · 13 Mars 2013

Re : Verifier cellules vides avant lancement macro (envoie mail avec piece jointe)

oups désolé , je viens de mettre le fichier à l'instant.

shawn77 · 13 Mars 2013

Re : Verifier cellules vides avant lancement macro (envoie mail avec piece jointe)

je n'arrive pas avec ta macro

une idée?

merci

Verifier cellules vides avant lancement macro (envoie mail avec piece jointe)

shawn77

Guest

Pièces jointes

Orodreth

XLDnaute Impliqué

shawn77

Guest

shawn77

Guest

Discussions similaires

Verifier cellules vides avant lancement macro (envoie mail avec piece jointe)

shawn77

Guest

Pièces jointes

Orodreth

XLDnaute Impliqué

shawn77

Guest

shawn77

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency