VBA jump

Question

Bonjour,
Je voudrais savoir comment on effectue la fonction "jump" sous VBA

voici mon exemple qui ne marche pas :
......
b =  i
 Lbl 1 
If Range("F" & b).Value  = "Préventif" Then
Feuil2B = Range("B" & b).Value
Feuil2C = Range("C" & b).Value
Feuil2D = Range("D" & b).Value
End If
Sheets("MP").Select
For j = 1 To 100
If IsEmpty(Sheets("MP").Range("B" & j)) And IsEmpty(Sheets("MP").Range("C" & j)) And IsEmpty(Sheets("MP").Range("D" & j)) Then
Sheets("MP").Range("B" & j).Value = Feuil2B
Sheets("MP").Range("C" & j).Value = Feuil2C
Sheets("MP").Range("D" & j).Value = Feuil2D
b = i + 1
jump Lb1
End If
Next
.....
c'est une partie de mon programme : il n'accepte pas mon LB1...
Pouvez vous m'aider ?
merci

cs_Frederic45 · Answer

Bonjour à tous
Bonjour vbist

Que cherches tu avec le "b" ? Qu'y a t il avant : b=i ?

Es tu dans une boucle For i ? dans un while...wend ?

Frédéric

NHenry · Answer

Bonjour

Literralement : GOTO
Mais il est fortement déconseillé (voire completement impopulaire) de l'utilise, préfère plutot une gestion avec Exit... par exemple.

Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site

vbist · Answer

Oui je suis dans une boulce for mais c'est pas ca le pb.
b=i, tu ne peux pas comprendre, ca serai long à expliquer.


Donc c'est un goto à la place de jump ?


Et je met quoi à lapalce de Lb1 ? car il me le refuse, je veux faire un goto vers LB1

merci

NHenry · Answer

Bonjour

Les libelle de ligne en VB c'est :
Libelle:
ou
10 
(note : un espace derrière le nombre)
A mettre en début de ligne.

Balèse la personne qui a pensé au pansement à penser (ou à panser, pensée).
VB (6, .NET1&2), C++, C#.Net1
Mon site

pile_poil · Answer

en VB ton lbl1 doit s'écrire 
lbl1:
pas d'espace dans le libellé et surtout les deux points derriere

et naturellement le goto c'est sous la forme 
goto lbl1

VBA jump

5 réponses

Votre réponse

Discussions similaires