supprime cellule conteant "-" en décalant cellule vers le haut

[JANO]

Re-bonsoir le forum,

Pouvez vous me dire ce qui cloche.

Merci


Sub nettoie_()
Columns("b:b").Select
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c Like "-" Or c Like "-" Then c.Delete
Next
End Sub

 

[DoubleZero]

Re : supprime cellule conteant "-" en décalant cellule vers le haut

Bonjour, JANO, le Forum,

Peut-être ainsi :

Option Explicit
Sub Supprimer_si()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("b:b")
        If c.Value Like "*-*" Then c.Delete
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[JANO]

Re : supprime cellule conteant "-" en décalant cellule vers le haut

merci double zéro
cela fonction, mais par contre il m'en supprime 1 seul dans la colonne.
il faut que je relance la macro autant de fois qu'il y a de "*-*"
encore merci de ton aide

 

[DoubleZero]

Re : supprime cellule conteant "-" en décalant cellule vers le haut

Re-bonjour,

Peut-être, alors, comme suit :

Option Explicit
Sub Supprimer_si()
    On Error Resume Next
    With Range("b:b")
        .Replace What:="*-*", Replacement:="", LookAt:=xlWhole
        .SpecialCells(xlCellTypeBlanks).Delete
    End With
End Sub

A bientôt 🙂

 

[JANO]

Re : supprime cellule conteant "-" en décalant cellule vers le haut

Re-bonjour Double Zéro,
cela fonction correctement, merci infiniment.
Bonne fin de soirée