VBA / probléme de supresion
Résolu
gabriel
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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
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
A voir également:
- VBA / probléme de supresion
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
je suis débutant je fait au mieux pour comprendre
je doit rajouter " End(xlUp) " si je comprend bien ?
If Cel Like "*" & Mot & "*" Then Cel.SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Ifmerci pour ton aide @yg_be
mais cela me mais un code d'erreur
je comprend pas l'erreur
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