Interdire cellules vides

[friscogreencar]

Bonjour,

Certaines cellules de la feuille doivent être remplies. Je n'ai rien trouvé au niveau des options de cellule(dans la feuille xls), donc je passe par macro.
A l'intérieur de celle qui finalise mon document j'ai tenté :
if [A1].value = "" Then MsgBox "Saisir le Numéro ", vbYesNo
if vbYes then exit sub
????????

Le message s'affiche bien, si je réponds oui, la macro s'arrête et je peux renseigner la cellule. Par contre je ne sais pas comment continuer la macro en répondant Non. D'ailleurs avec l'exemple ci-dessus, même quand la cellule est remplie la macro s'arrête (car elle lit exit sub).

J'ai tenté else, elseif, ... mais tjs des erreurs

Merci pour tous les renseignements que vous pourrez m'apporter

FG

 

[PascalXLD]

Re : Interdire cellules vides

Bonjour

Sans passer par macro tu peux aller dans données > validation

sinon il faut faire

if [A1].value = "" Then rep=MsgBox( "Saisir le Numéro ", vbYesNo)
if rep=vbYes then
exit sub
else
msgbox "toto"
end if

 

[Excel_lent]

Re : Interdire cellules vides

Salut,
essaie cela (ni oui ni non):

Sub info()
  If [A1].Value = "" Then MsgBox "Saisir le Numéro "
  Range("A1").Select 'pour sélectionner la cellule en question
End Sub

@+

 

[friscogreencar]

Re : Interdire cellules vides

Merci Pascal et excel-lent

En utilisant Range ("A1"). select, la macro dans laquelle je mets ces 2 lignes continue, et ne me permets pas de remplir la cellule.

En utilisant la méthode Pascal, après if vbYes la macro s'arrête et je peux remplir la cellule. Par contre si je dis Non (donc après else) je ne veux pas un message, mais que la macro initiale continue.
Que dois-je lui indiquer ?

Merci encore de votre aide

 

[Excel_lent]

Re : Interdire cellules vides

Re,

Si la macro doit s'arrêter après la saisie, intercale Exit sub, sinon remplace mon code par celui-ci :

Sub info()
Do
  If [A1].Value = "" Then [A1] = InputBox("Saisir le Numéro ", "")
Loop While [A1] = ""
MsgBox "C'est fait"
End Sub

@+

 

[PascalXLD]

Re : Interdire cellules vides

Re

Tu as plusieurs possibilités

Soit tu inclues ton test dans ta macro initiale et là il n'y a pas de problèmes
Soit tu joues avec une variable que tu fais de cette macro vers l'initial
soit tu crées une fonction

 

[friscogreencar]

Re : Interdire cellules vides

Merci Messieurs

Grâce à vos conseils, tout est OK

Ayant plusieurs cellules, ma macro est un peu longue, mais elle fonctionne

Par contre je ne sais pas, sur ce forum, indiquer que mon pb est résolu.

Encore merci

 

[PascalXLD]

Re : Interdire cellules vides

RE

Ton petit merci final nous l'indique que ton prob est resolu .

Bonne journée