Bonsoir à tous
Je n'y connais rien en boucle et je voudrais que la macro suivante s'execute en boucle :
Lorsqu'elle ne trouve plus de' @ la boucle s'arrête.
Si quelqun connait la solution merci d'avance
@+
Je n'y connais rien en boucle et je voudrais que la macro suivante s'execute en boucle :
Code:
Sub Supprimer_RTF2()
' Supprimer @
Dim Plage As Range
Cells.FindNext(After:=ActiveCell).Activate
Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:='@', FieldInfo:=Array(Array(1, 9), Array(2, 2))
End Sub
Lorsqu'elle ne trouve plus de' @ la boucle s'arrête.
Si quelqun connait la solution merci d'avance
@+