Macro, si rien dans cette cellule alors exit sub

[ninanani]

Bonjour.

Je rencontre un probleme assez basique et je n arrive vraiment pas a trouver mon erreur, qui, je suis sur est evidente.

Sub Enchainement()
If Sheets("Simple Invoice").Range("B17") Is Nothing Then Exit Sub
Call save
End Sub

Voila ma macro.
Si il n y a rien en B17 de la feuille "Simple Invoice", alors ferme la macro. En revanche s il y a quelque chose, continue.

Seulement, dans les deux cas (qu il y est quelque chose ou non en B17), il me continue la macro.

Voili voilo... Un jeu d enfant pour vous je pense... Merci

PS: j ai teste avec le .value, apres la cellule, mais ca m affiche un message d erreur.

 

[Guest]

Re : Macro, si rien dans cette cellule alors exit sub

Bonjour,

Si la cellule est vide

If isempty(Sheets("Simple Invoice").Range("B17")) Then Exit Sub

Ou, s'il y a une formule dans la cellule

If Sheets("Simple Invoice").Range("B17").Text="" then Exit Sub

A+

 

[ninanani]

Re : Macro, si rien dans cette cellule alors exit sub

Re Hasco.

Merci pour ta reponse efficasse et pour ta rapidite. C est genial!

 

[vbacrumble]

Re : Macro, si rien dans cette cellule alors exit sub

Bonjour


Pour suivre Hasco

Sub macro()
If IsEmpty(Sheets(1).Range("A1")) Or Range("A1").HasFormula Then Exit Sub
MsgBox "test"
End Sub

A+

 

[ninanani]

Re : Macro, si rien dans cette cellule alors exit sub

VBA crumble,

Merci pour cette combinaison des deux.

 

[Guest]

Re : Macro, si rien dans cette cellule alors exit sub

Re le fil,

Avec:

If IsEmpty(Sheets(1).Range("A1")) Or Range("A1").HasFormula

Si la formule retourne un résultat qui n'est pas une chaine vide ("") la macro sera sautée.....?!

Si tu veux une combinaison des deux se serait plutôt:

If IsEmpty(Sheets(1).Range("A1")) Or Sheets(1).Range("A1").Text=""

Mais cela est inutile puisque .Text="" sur une cellule retourne Vrai si la cellule est vide ou contient une chaine vide.

A+

 

[vbacrumble]

Re : Macro, si rien dans cette cellule alors exit sub

Re


Merci pour ces explications Hasco.

J'aurai du me douter qu'il y aurait un hic.

A+

 

[Guest]

Re : Macro, si rien dans cette cellule alors exit sub

Re,

Il n'y avait pas forcément de Hic, tout dépend de ce que veut notre ami.
Tester si une cellule est vide
Tester si une cellule est vide ou contient une chaine vide
Tester si une cellule est vide ou contient une formule, avec n'importe quel résultat.
ou tester si une cellule est vide ou contient une formule qui renvoie une chaine vide.

Lui seul le sait

A+

 

[ninanani]

Re : Macro, si rien dans cette cellule alors exit sub

Re

Je souhaitais tout simplement tester si une cellule etait vide.
Mais merci pour tous ces details et ces precisions, ils me seront toujours utiles