Supprimer valeur avec criteres

[cg1980]

bonjour,

dans feuil1 j'aimerais selectionner toute la ligne 1 et supprimer les valeurs qui ne contiennent pas "CORP". (sans supprimer la colonne uniqumement le contenu de la cellule)

merci

 

[Vilain]

Re : Supprimer valeur avec criteres

Bonjour,

Comment veux tu faire ça ?
vba ?

a plus

 

[TempusFugit]

Re : Supprimer valeur avec criteres

Bonjour

Une solution par macro

Sub macro()
Dim c As Range
For Each c In Range("A1").CurrentRegion
If c.Text Like "*Corp*" Then
c = Empty
End If
Next c
End Sub

 

[cg1980]

Re : Supprimer valeur avec criteres

oui, par macro effectivement. merci pour le code. mais en fait je voulais conserver les données contenant corp et suprimmer les cellules qui ne contiennent pas le terme "corp"

 

[TempusFugit]

Re : Supprimer valeur avec criteres

Désolé


Essaye avec cet ajout

Sub macro()
Dim c As Range
For Each c In Range("A1").CurrentRegion
If Not c.Text Like "*Corp*" Then
c = Empty
End If
Next c
End Sub