Identifier une partie d'une cellule

[VBAnoob]

Bonjour à tous,

J'ai besoin de votre aide car je débute en VBA et je ne sais pas comment identifier une partie d'une cellule en vue de supprimer la ligne sur laquelle elle est.

J'ai créé cette macro que j'aimerais complétée :

Sub abis_Suppression_Autres_Societes()
Sheets("X").Select
For i = 10000 To 2 Step -1
If Cells(i, 8) = "SOCIETE" Or Cells(i, 8) = "" Then
Else
Cells(i, 1).EntireRow.Delete
End If
Next
End Sub

Et j'aimerais en fait qu'elle me supprime également les lignes où (i, 8) contient *SOC*
Mais SOC vient en bout d'une chaine de caractère !!

J'ai regardé les sujets déjà postés mais je n'arrive pas à intégrer les solutions proposées à ma macro :s

Merci d'avance pour votre aide.

 

[roro69]

Re : Identifier une partie d'une cellule

Bonjour a voir

Sub abis_Suppression_Autres_Societes()
Sheets("X").Select
For i = 10000 To 2 Step -1
If Cells(i, 8) = "SOCIETE" Or Cells(i, 8) = "" Or Cells(i, 8) Like "*SOC*" Then

Cells(i, 1).EntireRow.Delete
End If
Next
End Sub

A++

 

[VBAnoob]

Re : Identifier une partie d'une cellule

Super Merci, ça fonctionne nickel

A++

 

[Staple1600]

Re : Identifier une partie d'une cellule

Bonsoir à tous

• Pourquoi une macro ?
Le filtre automatique peut le faire à la mimine ?

• Pourquoi une boucle dans la macro?
Le filtre automatique peut le faire sans (mais dans la macro )

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 16/12/2011 par l'agrafe around the corner
With ActiveSheet
 .Range("H1").Resize(.[H65536].End(xlUp).Row).AutoFilter Field:=1, Criteria1:="=*SOC*", Operator:=xlAnd
.[_FilterDataBase].Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
End With
End Sub

Deux solutions pour le prix d'une
Vive la SOCIETE de consommation

 

[roro69]

Re : Identifier une partie d'une cellule

Bonsoir
Grande forme ce soir Staple1600 ; présents dans tous les fils avec d'exellentes réponses qui nous permettes d'apprendre encore plus........
................
Je préfèrent comme çà.................§!!!!!!!
A++

 

[Staple1600]

Re : Identifier une partie d'une cellule

Bonsoir roro69

Si je devais être présent dans tous fils, sortez la camisole.

Je réponds juste où on me dit de répondre.

 

[VBAnoob]

Re : Identifier une partie d'une cellule

@Staple1600 : Je n'ai pas le fichier concerné sous la main pour tester ta proposition mais dès demain je te fais un retour.
Bonne soirée et sans rancunes

 

[VBAnoob]

Re : Identifier une partie d'une cellule

J'ai testé dans mon fichier mais la macro ne fonctionne pas :s
Et je ne commprends pas à quoi correspond H65536 ?