if then gotoRésolu

Question

Hi!

je ne comprends pas pourquoi les quelques lignes qui suivent ne marchent pas.... la ligne FIN existe bien, je n'ai pas de message d'erreur mais même si la Cellule "B7" est vide il y a execution des lignes avant FIN....

Worksheets("Rapport").Activate
Range("B7").Select
If IsEmpty(ActiveCell.Value) Then GoTo FIN

merci 
 Cib

colincib · Accepted Answer

bon j'y suis arrivé, avec if..then..else..End if...


mais je vérifie que la cellule est vide avec :

If Worksheets("Rapport").Range("B7").Value <> ""

le "IsEmpty" était la source du pb... (pourquoi je ne sais pas?)

merci à tous! 

Cib

jmfmarques · Answer

Goto envoie vers une étiquette (de code), par vers une ligne, déjà !

cs_casy · Answer

Essaye peut-etre avec IsEmpty(ActiveCell), je pense que c'est la cellule qui doit etre vide et non pas sa valeur.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

colincib · Answer

ok désolée pour le vocabulaire, suis débutante, si ça peut m'excuser...

"etiquette", en pratique j'ai 

Sub xxxx()

Worksheets("Rapport").Activate
Range("B7").Select
If IsEmpty(ActiveCell.Value) Then GoTo FIN

....plein de lignes de code...

FIN:
....plein de lignes de code...

end sub

J'ai déjà utilisé cette fonction sans pb, je pense que c'est mon if isempty qui pose pb??

a++
Cib

colincib · Answer

Casy

J'ai tenté IsEmpty(ActiveCell), mais pareil, je tombe sur une erreur dans les lignes avant FIN (ce qui est normal, B7 est vide!)
 Cib

colincib · Answer

mais tu y es c'est bien la cellule qui doit etre vide et non pas sa valeur....

 Cib

NHenry · Answer

Bonjour


Un conseil, évite le GOTO : 

Sub xxxx()


Worksheets("Rapport").Activate

Range("B7").Select

If IsEmpty(ActiveCell.Value) Then GoTo FIN


....plein de lignes de code...


FIN:

....plein de lignes de code...


end sub


Devient

Sub xxxx()


Worksheets("Rapport").Activate

Range("B7").Select

If not(IsEmpty(ActiveCell.Value)) Then 


....plein de lignes de code...


end if

....plein de lignes de code...


end sub


C'est plus propre et c'est plus facile pour debugger.

Il est plus facile de batiser quelqu'un que de la convertir.(surtout en programmation)
VB (6, A excel, .NET), C++, C#.Net
Mon site

colincib · Answer

NHenry,

ok, j'ai essayé, maintenant c'est l'effet contraire, que B7 soit vide ou non sont exécutées les lignes après le end if....

 Cib

Renfield · Answer

normal ... de l'algorithmique de base If...Then ... Else .... End If ...

If not(IsEmpty(ActiveCell.Value)) Then 

....plein de lignes de code...
ELSE
....plein de lignes de code...
end if

Renfield
Admin CodeS-SourceS- MVP Visual Basic

colincib · Answer

effectivement...

malgré tout ça ne marche pas...

:-(

Cib

cs_MPi · Answer

Et pourquoi ne pas mettre 
If Range("B7") = "" then    ("" ou vbNullString...)

MPi

if then goto

11 réponses

Votre réponse