GOTO

[carriere]

Cette procédure supprime bien la parenthèse ouvrante mais, je voudrais remplacer mon goto par l'équivalent de ce que l'on appelle en C un "break".
Or j'ai vu que cela était refusé... Je ne veux supprimer que 1 parenthèse ouvrante !! D'ou mon break pour laisser en l'état les autres parenthèses...
COmment remplacer ce goto quine fonctionne pas...

Sub Com()

Dim lg As Variant
Dim Var, cpt As Long
Dim chaine, ch As String

Rep: For Var = 6 To Cells(65536, 11).End(xlUp).Row

lg = Len(Cells(Var, 11))

For cpt = 1 To lg

If Mid(Cells(Var, 11).Value, cpt, 1) = "(" Then

vrai_chaine = Left(Cells(Var, 11).Value, cpt - 1) & Right(Cells(Var, 11).Value, lg - cpt)
Cells(Var, 12).Value = vrai_chaine

GoTo Rep
End If


Next cpt
Next Var
End Sub

 

[Yeahou]

Bonjour carriere, le forum

Au vu de ton code une instruction exit for à la place de goto rep devrait suffire. Cette instruction permet de sortir d'une boucle for et redonnera le controle à la boucle for var.

Cordialement, A+

 

[Munchkin]

Salut Crriere

à la place de GOTO rep

je metterais cpt = lg

Ca te conviens?
Munchkin

 

[Munchkin]

Salut Crriere

à la place de GOTO rep

je metterais cpt = lg

Ca te conviens?
Munchkin

 

[jon]

bonjour

exit for pour sortir de la boucle
exit sub pour sortir de la procédure
end pour finir toute exécution

 

[sousou]

Bonjour


Si je comprend, tu veux sortir de la boucle avant la fin du for next.

Exit for devrait pouvoir t'aider.