VBA / probléme de supresion

Résolu
gabriel -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'aimerai supprimer un mots qui se comporte dans une phrase et surprime la ligne .

j'ai réaliser se code si dessous .

le problème c'est qui me garde les ligne avec c'est mots et me supprimer tout les autre .

je voudrais faire l'inverse

si vous pouvez m'aider .
merci d'avance 
Sub sup()
Dim Cel As Range, Plage As Range
Dim Mot As String
    Set Plage = Range("Y2:Y20")
    
Mot = " toi " 'adapter au mot à rechercher et à supprimer
For Each Cel In Plage

    If Cel Like "*" & Mot & "*" Then
        Plage.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If


Next Cel
End Sub

1 réponse

Réponse 1 / 1
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Car tu fais la suppression sur la variable "Plage" .. et pas sur la cellule en question...

1
gabriel
 
merci pour ta réponse si rapide :) .

je suis débutant je fait au mieux pour comprendre

je doit rajouter " End(xlUp) " si je comprend bien ?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > gabriel
 
bonjour, 
    If Cel Like "*" & Mot & "*" Then
        Cel.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
1
gabriel > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
bonjour ,
merci pour ton aide @yg_be

mais cela me mais un code d'erreur

je comprend pas l'erreur
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > gabriel
 
peut-être 
Cel.EntireRow.Delete
0
gabriel > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
une personne a reussi a m'aider encore merci de votre aide 
Sub sup()
Dim Cel As Range, Plage As Range
Dim Mot As String
    Set Plage = Range("Y2:Y20")

Mot = "11" 'adapter au mot à rechercher et à supprimer
For Each Cel In Plage

    If Cel Like "*" & Mot & "*" Then
        Rows(Cel.Row).Delete
    End If

Next Cel
End Sub
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses
erreur 13 incompatibilité de type VBA excel
monalisach -
monalisach -

2 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses