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