Bonjour,
dans une base de données, j'ai une feuille où je dois saisir les nouvelles fiches avec des renseignements de type nom, prénom, adresse,..., puis les enregistrer dans la BD à l'aide d'une macro commandée par un bouton.
Les cellules à renseigner sont placées en E6:E17.
Or, je veux que toutes ces cellules soient renseignées (même par un tiret si rien à dire).
Je voudrais inclure dans l'enregistrement de la macro "enregistrer" le fait que s'il y a des cellules vides, l'enregistrement ne peut se faire et qu'une boîte de dialogue le signale.
J'ai essayé d'inclure dans ma macro un bout de code de type :
If Sheets(1).Range("E8").Text = "" Then
MsgBox "Manque les données dans la cellule A8"
Cancel = True
else ma macro
End If
end sub
Sur une cellule (E8 dans l'ex), cela fonctionne mais je ne sais pas comment lui indiquer d'afficher la boîte de dialogue si une ou plusieurs cellules de la plage E9:E17 ne sont pas renseignées.
Quelqu'un peut-il me renseigner ?
dans une base de données, j'ai une feuille où je dois saisir les nouvelles fiches avec des renseignements de type nom, prénom, adresse,..., puis les enregistrer dans la BD à l'aide d'une macro commandée par un bouton.
Les cellules à renseigner sont placées en E6:E17.
Or, je veux que toutes ces cellules soient renseignées (même par un tiret si rien à dire).
Je voudrais inclure dans l'enregistrement de la macro "enregistrer" le fait que s'il y a des cellules vides, l'enregistrement ne peut se faire et qu'une boîte de dialogue le signale.
J'ai essayé d'inclure dans ma macro un bout de code de type :
If Sheets(1).Range("E8").Text = "" Then
MsgBox "Manque les données dans la cellule A8"
Cancel = True
else ma macro
End If
end sub
Sur une cellule (E8 dans l'ex), cela fonctionne mais je ne sais pas comment lui indiquer d'afficher la boîte de dialogue si une ou plusieurs cellules de la plage E9:E17 ne sont pas renseignées.
Quelqu'un peut-il me renseigner ?