supprimer une ligne contenant un terme précis

[Squoltahthx94]

Bonjour à tous,

Je demande via un bouton situé dans l'onglet menu que toute les lignes dont la case en colonne G commençant par 2013 dans l'onglet s0101 soit supprimée.
Je le fais marcher sans problème quand le bouton est dans le même onglet que dans le tableau mais là plus rien.

Je dois pas être très loin de la solution,Voici le code :

Dim i As Integer
Sheets("s0101").Activate
'supprimer toute les lignes commençant par 2013 dans la colonne G
For i = Range("G65536").End(xlUp).Row To 1 Step -1
If Range("G" & i) Like "2013*" Then Rows(i).Delete
Next i
Sheets("menu").Activate

 MsgBox "Inter Supprimée!!", vbOKOnly + vbInformation, "Anti-2013"

Merci de votre retour.

Nb : un petit fichier histoire de ne pas parler en l'air

 

[Pierrot93]

Re : supprimer une ligne contenant un terme précis

Bonjour,

modifie comme suit :

Dim i As Integer
With Sheets("s0101")
    'supprimer toute les lignes commençant par 2013 dans la colonne G
    For i = .Range("G65536").End(xlUp).Row To 1 Step -1
        If .Range("G" & i) Like "2013*" Then .Rows(i).Delete
    Next i
End With

ou mieux place le code dans une procédure dans un module standard que tu appeleras par l'événement click de ton bouton...

bon après midi
@+

 

[Squoltahthx94]

Re : supprimer une ligne contenant un terme précis

Merci Pierrot je vais essayé.

 

[Squoltahthx94]

Re : supprimer une ligne contenant un terme précis

bonjour,

En tout cas ça fonctionne sans PB.
Dans le cas contraire ou je ne veux garder que les lignes ou dans la casse de la colonne G "2013" est présent -> en fait je veux faire l'action inverse

 

[Pierrot93]

Re : supprimer une ligne contenant un terme précis

Bonjour,

pour faire l'inverse, modifier cette ligne :

If .Range("G" & i) Like "2013*" Then .Rows(i).Delete

par :

If Not .Range("G" & i) Like "2013*" Then .Rows(i).Delete

enfin si j'ai bien compris....

bonne journée
@+

 

[Squoltahthx94]

Re : supprimer une ligne contenant un terme précis

Merci c'est tout a fait ça

 

[Squoltahthx94]

Re : supprimer une ligne contenant un terme précis

En fait non je souhaiterais supprimer toutes les lignes ou 2013 n'est pas présent dans la colonne G

 

[Squoltahthx94]

Re : supprimer une ligne contenant un terme précis

j'ai trouvé :

Sheets("inters").Activate
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If Not Cells(i, 26) Like "IM1*" Then Rows(i).Delete
Next
MsgBox "Suppression Terminée !! ", vbOKOnly + vbInformation, "Info"

Mais il me supprime la ligne 1 que je souhaiterais garder😕😕😕

 

[Staple1600]

Re : supprimer une ligne contenant un terme précis

Bonjour

Tu pourrais aussi passer par un filtre automatique.
(cela t'évite de boucler)

PS:

Je demande via un bouton situé dans l'onglet menu que toute les lignes dont la case en colonne G commençant par 2013 dans l'onglet s0101 soit supprimée.

C'est 2013 ou IM1* et la colonne G ou la colonne 26 ??
J'aimerai savoir avant de te proposer une macro utilisant un filtre automatique.

 

[Pierrot93]

Re : supprimer une ligne contenant un terme précis

Re,

Mais il me supprime la ligne 1 que je souhaiterais garder

Arrête la boucle à la ligne 2 pour garder la ligne de titre...

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1

bon après midi
@+