supprimer une ligne contenant un terme précis

Pierrot93

XLDnaute Barbatruc

• 13 Août 2012

• #2

Re : supprimer une ligne contenant un terme précis

Bonjour,

modifie comme suit :

Code:

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
@+

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 13 Août 2012

• #3

Re : supprimer une ligne contenant un terme précis

Merci Pierrot je vais essayé.

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 14 Août 2012

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Août 2012

• #5

Re : supprimer une ligne contenant un terme précis

Bonjour,

pour faire l'inverse, modifier cette ligne :

Code:

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

par :

Code:

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

enfin si j'ai bien compris....

bonne journée
@+

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 14 Août 2012

• #6

Re : supprimer une ligne contenant un terme précis

Merci c'est tout a fait ça

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 14 Août 2012

• #7

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

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 14 Août 2012

• #8

Re : supprimer une ligne contenant un terme précis

j'ai trouvé :

Code:

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😕😕😕

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Août 2012

• #9

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.

Cliquez pour agrandir...

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.

 

Dernière édition: 14 Août 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Août 2012

• #10

Re : supprimer une ligne contenant un terme précis

Re,

Mais il me supprime la ligne 1 que je souhaiterais garder

Cliquez pour agrandir...

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif