Suppression de mot dans une colonne

[Squoltahthx94]

Bonjour,

J'ai créer le code ci-dessous afin de supprimer des mots spécifique dans une colonne mais celui-ci ne m'enlève que 'annulé' mais ne fais rien d'autres ... Qq1 peux m'aider :

Private Sub Suppr_Etat_Inutile_Click()
Dim i As Integer
With Sheets("inters")
Application.ScreenUpdating = False
    
    For i = .Range("E65536").End(xlUp).Row To 1 Step -1
        If .Range("e" & i) Like "Annulé" Then .Rows(i).Delete
    Next i
    For i = .Range("E65536").End(xlUp).Row To 1 Step -1
        If .Range("e" & i) Like "Workdone" Then .Rows(i).Delete
    Next i
    For i = .Range("E65536").End(xlUp).Row To 1 Step -1
        If .Range("e" & i) Like "Finished" Then .Rows(i).Delete
    Next i
    For i = .Range("E65536").End(xlUp).Row To 1 Step -1
        If .Range("e" & i) Like "Reported" Then .Rows(i).Delete
    Next i
End With
Application.ScreenUpdating = True
MsgBox "Mise à jour Terminée !! ", vbOKOnly + vbInformation, "Info"
End Sub

..

Merci

 

[phlaurent55]

Re : Suppression de mot dans une colonne

Bonjour Sqol.....

avec ceci:

Sub Macro1()
Dim i As Integer
With Sheets("inters")
Application.ScreenUpdating = False
   
    For i = .Range("E65536").End(xlUp).Row To 1 Step -1
        If .Range("e" & i) Like "*Annulé*" Then .Rows(i).Delete
        If .Range("e" & i) Like "*Workdone*" Then .Rows(i).Delete
        If .Range("e" & i) Like "*Finished*" Then .Rows(i).Delete
        If .Range("e" & i) Like "*Reported*" Then .Rows(i).Delete
    Next i
    
End With
Application.ScreenUpdating = True
MsgBox "Mise à jour Terminée !! ", vbOKOnly + vbInformation, "Info"
End Sub

il suffit d'encadrer les mots par une astérisque

à+
Philippe

 

[Squoltahthx94]

Re : Suppression de mot dans une colonne

Merci j'essaye de suite

 

[Squoltahthx94]

Re : Suppression de mot dans une colonne

Merci j'essaye de suite

Je rajouterais une chose il faut que la syntaxe du mot soit STRICTEMENT identique sinon cela ne marche pas .....

Merci bcp en tout cas ce la fonctionne à merveille

 

[phlaurent55]

Re : Suppression de mot dans une colonne

Re,

Je rajouterais une chose il faut que la syntaxe du mot soit STRICTEMENT identique sinon cela ne marche pas .....

Évidemment, mais sans avoir vu le fichier !!!
voici en pièce jointe un exemple qui fonctionne malgré une syntaxe différente

à+
Philippe

 

[Efgé]

Re : Suppression de mot dans une colonne

Bonjour Squoltahthx94, Bonjour phlaurent55 🙂, Pas compris la même chose que Philippe... Cordialement

 

[phlaurent55]

Re : Suppression de mot dans une colonne

Re,

Bonjour Squoltahthx94, Bonjour phlaurent55 🙂, Pas compris la même chose que Philippe... Cordialement

@Efgé

If .Range("e" & i) Like "Annulé" Then .Rows(i).Delete

à partir du moment où on découvre un "Like" dans cette procédure cela laisse supposer que le mot recherché se trouve dans une phrase

et c'est on fonction de cela que j'ai adapté le code

si j'avais vu:

If .Range("e" & i) = "Annulé" Then .Rows(i).Delete

j'aurais directement pensé à une erreur de syntaxe



à+
Philippe

 

[Efgé]

Re : Suppression de mot dans une colonne

Re, @phlaurent55, Je ne voulais pas "revenir" sur ta proposition... Juste en faire une autre. Désolé si cela t'a "offusqué". Amicalement. A++++

 

[Squoltahthx94]

Re : Suppression de mot dans une colonne

merci a vous 2 mais maintenant j'ai compris j'ai enlevé le like et c'et plus simple

 

[phlaurent55]

Re : Suppression de mot dans une colonne

Re,

Re, @phlaurent55, Je ne voulais pas "revenir" sur ta proposition... Juste en faire une autre. Désolé si cela t'a "offusqué". Amicalement. A++++

@ Efgé,

je ne suis nullement offusqué et je comprend bien qu'avec des questions imprécises et orphelines d'un fichier joint, on puisse donner des réponses différentes pour arriver à un même résultat

Ne te tracasse pas, il m'en faut plus que ça pour me mettre en boule

à+
Philippe