Forcer la saisie d'une cellule dans excel [Résolu]

Signaler
Messages postés
12
Date d'inscription
mardi 26 décembre 2006
Statut
Membre
Dernière intervention
13 juillet 2007
-
Messages postés
174
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
15 février 2007
-
Bonjour à toutes et à tous.

Une bonne âme pourrait elle me dire comment forcer la saisie dans une cellule excel afin de pouvoir ensuite lancer une macro, en cas de non saise de cette cellule, un message d'erreur doit apparaitre afin de rappeler que la saisie de telle ou telle cellule est obligatoire.
 
Je vous remercie par avance de l'aide que vous m'apporterez

Cordialement

Stephane

4 réponses

Messages postés
174
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
15 février 2007
2
Bonjour

pourquoi ne pas faire un test au tout debut de la Macro pour vérifier si la cellule a bien été remplie ?
Messages postés
12
Date d'inscription
mardi 26 décembre 2006
Statut
Membre
Dernière intervention
13 juillet 2007

Oui effectivement mais je ne sais pas comment faire.........

Si quelqu'un pouvait me donner la solution.....
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

tu peux faire un truc de ce genre là :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Sheets(1).Range("A1").Text =  "" Then
        MsgBox "Manque les données dans la cellule A1"
        Cancel = True
    End If
End Sub

~ <small> Mortalino ~ Colorisation automatique </small>

(à placer dans le Module ThisWorkBook)

@++

<hr width ="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Messages postés
174
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
15 février 2007
2
voila :)

mettez ca au debut de votre macro

---------------------

Sub Macro 1

    If Sheets(1).Range("A1").Text = "" Then
        MsgBox "Manque les données dans la cellule A1"
    Else 

'##########

   le code de votre Macro [...]

'##########

    End If

end sub