Sujet Précédent Sujet Suivant

VBA / probléme de supresion

Résolu/Fermé
gabriel - 2 juin 2022 à 11:36
yg_be Messages postés 23235 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 septembre 2024 - 2 juin 2022 à 16:30
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 38241 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 septembre 2024 4 689
2 juin 2022 à 11:49
Bonjour,

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

1
gabriel
Modifié le 2 juin 2022 à 11:55
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 23235 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 septembre 2024 1 538 > gabriel
2 juin 2022 à 12:37
bonjour, 
    If Cel Like "*" & Mot & "*" Then
        Cel.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
1
gabriel > yg_be Messages postés 23235 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 septembre 2024
Modifié le 2 juin 2022 à 14:10
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 23235 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 septembre 2024 1 538 > gabriel
2 juin 2022 à 14:52
peut-être 
Cel.EntireRow.Delete
0
gabriel > yg_be Messages postés 23235 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 30 septembre 2024
2 juin 2022 à 15:02
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

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

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

5 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses