VBA / probléme de supresion

Résolu

gabriel -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention - 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

Afficher la suite

1 réponse

Réponse 1 / 1
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 832

Bonjour,

Car tu fais la suppression sur la variable "Plage" .. et pas sur la cellule en question...
1
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
2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > gabriel
  
  bonjour,
  If Cel Like "*" & Mot & "*" Then Cel.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End If
  
  1
3. gabriel > yg_be Messages postés 23437 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
4. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > gabriel
  
  peut-être
  Cel.EntireRow.Delete
  
  0
5. gabriel > yg_be Messages postés 23437 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

VBA / probléme de supresion

1 réponse

Discussions similaires

Newsletters