A voir également:
- Then goto
- If then goto - Meilleures réponses
- Visual basic goto - Meilleures réponses
- Vba if then else plusieurs instructions - Conseils pratiques - Visual Basic / VB.NET
- ASM : Boucle if/then/else - CodeS SourceS - Guide
- Delphi / Pascal : Comparer les instructions case of, if then et if then else - CodeS SourceS - Guide
- Aide pour If Then à un débutant ✓ - Forum - Visual Basic 6
- If Then ✓ - Forum - Visual Basic 6
11 réponses
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
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
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
Goto envoie vers une étiquette (de code), par vers une ligne, déjà !
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 #
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
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
"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
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
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
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
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
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
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
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
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