VBA: besoin de supprimer des caractères dans une cellule

Bonjour,

J'ai un script de Vba, dans lequel j'extrait des valeurs d'une chaîne de caractère.

Seulement mes caractères obtenus contiennent des crochets que j'aimerai pouvoir supprimer.

Pourriez vous SVP m'aider?

Merci d'avance,

TontonKunta

Bonsoir

tontonKunta a écrit :

J'ai un script de Vba

Pas vu !!!!

A tester sinon

Sub SepareContenu()
  With Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row) ' Les données en colonne A
    ' Remplacement des "[" par rien
   .Replace what:="[", replacement:="", lookat:=xlPart
    ' Remplacement des "]" par rien
   .Replace what:="]", replacement:="", lookat:=xlPart
    ' conversion dans les colonnes à partir de la colonne B
   .TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:=False, _
            FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
    End With
End Sub

Bonsoir à tous,

ou bien :

Dim c As Range
For Each c In [A2:C4]
    c = Replace(Replace(c, "[", ""), "]", "")
Next c

eric

Bonjour,

Merci à tous... Ça fonctionne parfaitement.

Next time