Recherche et suppression text entre crochet

[lostheroe]

Bonjour,

Je voudrais faire une macro pour rechercher et supprimer tout les textes entre crochet dans l'ensemble de la feuille active.

Cordialement

 

[Modeste]

Re : Recherche et suppression text entre crochet

Bonjour lostheroe,

Sans certitude que ça fonctionnera à tous les coups, peut-être:

Sub suppression()
For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants)
    c = c.Replace("[*]", "")
Next c
End Sub

 

[gilbert_RGI]

Re : Recherche et suppression text entre crochet

Bonjour,

Ne pas confondre crochets et parenthèses

sinon comme ceci

Sub suppression()

If InStr(ActiveCell.Value, "[") <> 0 Then _
    ActiveCell.Value = Trim(Split(ActiveCell.Value, "[")(0))
End Sub

 

[job75]

Re : Recherche et suppression text entre crochet

Bonsoir tout le monde,

C'est simplement l'utilisation de la commande Excel :

Sub suppression()
Cells.Replace "[*]", "", xlPart
End Sub

A+

 

[job75]

Re : Recherche et suppression text entre crochet

Message annulé.

 

[Modeste geedee]

Re : Recherche et suppression text entre crochet

Bonsour®

Message annulé.

pourtant c'est que dit l'enregistreur ...

Sub Macro1()
    Selection.Replace What:="[*]", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[job75]

Re : Recherche et suppression text entre crochet

Re,

J'ai annulé le post #5 parce que j'essayais de mettre un espace devant le texte "[*]" du post #4.

Mais les crochets sont considérés comme des balises et le programme XLD supprime l'espace...

A+

 

[laurent950]

Re : Recherche et suppression text entre crochet

Bonsoir,

La formule vba est la suivante

Sub suppression()
MsgBox Cells(2, 2)

MsgBox Split(Split(Cells(2, 2), "[")(0) & Split(Cells(2, 2), "[")(1), "]")(0)

'exemple en ligne 4 colonne B le resultat de la ligne 2 colonne 2 :

Cells(4, 2) = Split(Split(Cells(2, 2), "[")(0) & Split(Cells(2, 2), "[")(1), "]")(0)

End Sub

Laurent

 

[job75]

Re : Recherche et suppression text entre crochet

Bonsoir laurent950,

Je voudrais faire une macro pour rechercher et supprimer tout les textes entre crochet dans l'ensemble de la feuille active.

Bonne nuit.

 

[laurent950]

Re : Recherche et suppression text entre crochet

Bonsoir Job75,

Il faut en faire une boucle avec une condition que j'ai pas fais en faite.

en une ligne : l'idée était là

Sub Suppression()
If Selection.SpecialCells(xlCellTypeConstants, 2) Like "*" & "[[]*[]]" & "*" Then
Selection.SpecialCells(xlCellTypeConstants, 2) = Split(Split(Selection.SpecialCells(xlCellTypeConstants, 2), "[")(0) & Split(Selection.SpecialCells(xlCellTypeConstants, 2), "[")(1), "]")(0)
End If
End Sub

Laurent

 

[Modeste geedee]

Re : Recherche et suppression text entre crochet

Bonsour®

Re,

J'ai annulé le post #5 parce que j'essayais de mettre un espace devant le texte "[*]" du post #4.

Mais les crochets sont considérés comme des balises et le programme XLD supprime l'espace...

A+

heu .... ??? un vieux routier comme toi ????

 

[laurent950]

Re : Recherche et suppression text entre crochet

Bonsoir

aprés test sa fonctionne impec

Sub Suppression()
Dim ws As Worksheet
Set ws = Worksheets(ActiveSheet.Name)

Dim cel As Range
Set cel = Selection.SpecialCells(xlCellTypeConstants, 2)

'cel.Select

For Each cel In cel
    'cel.Select
    If cel Like "*" & "[[]*[]]" & "*" Then
        cel = Split(Split(cel, "[")(0) & Split(cel, "[")(1), "]")(0)
    ElseIf cel Like "*" & "[[]" & "*" Then
        cel = Split(cel, "[")(0) & Split(cel, "[")(1)
    ElseIf cel Like "*" & "[]]" & "*" Then
        cel = Split(cel, "]")(0)
    End If
Next cel

Set ws = Nothing
Set cel = Nothing

End Sub

laurent

 

[job75]

Re : Recherche et suppression text entre crochet

Bonjour le fil, le forum,

En complément de mon post #4, si l'on veut aussi supprimer l'espace situé avant ou après :

Sub suppression()
Dim t$
t = "[*]"
Cells.Replace " " & t, "", xlPart
Cells.Replace t & " ", ""
Cells.Replace t, ""
End Sub

Bonne journée.

 

[lostheroe]

Re : Recherche et suppression text entre crochet

Merci a tous.

La solution de modest marche très bien.

Cordialement