Supression de lignes si plusieurs critères remplis

Fea · 9 Novembre 2005

Bonjour à tous,

Merci à ceux qui liront mon message. J'essaie de faire deux petites macros, qui doivent pourtant être simples mais sur lesquelles je bute.

Je voudrai que les lignes contenant le mot 'auxiliaire' soient supprimées.

Et une autre qui me supprimerai également les lignes contenant le mot 'auxiliaire' sauf si elle contient également le mot 'annuel'

Je vous remercie d'avance pour vos idées.

Fred

PascalXLD · 9 Novembre 2005

Re:Supression de lignes si plusieurs critères remp

Bonjour

Peux-tu apporter des précisions STP ,

1 - le mot se trouvera-t-il toujours dans une cellule de la même colonne ?

2 - le mot sera -t-il seul dans la cellule ?

3 - le mot annuel se toruvera-t-il toujours dans une cellule de la même colonne ou dans la même cellule que le mot auxiliaire ??

Fea · 9 Novembre 2005

Re:Supression de lignes si plusieurs critères remp

Re,

Merci de t'être penché sur la question. J'ai joint un des fichiers pour faciliter la compréhension.

Pour répondre à tes questions:

1) Effectivement les mots seront toujours dans la même colonne (la G) à différentes lignes

2) Le mot ne sera pas seul dans la cellule

3) Le mot annuel se trouvera toujours dans la même cellule que le mot auxiliaire.

En fait il y a différentes catégories d'auxiliaire et dans la seconde macro j'aimerai que toutes les lignes avec des auxiliaires soient supprimées sauf celles ou il y a '80 - Auxiliaire avec salaire annuel'

PascalXLD · 9 Novembre 2005

Re:Supression de lignes si plusieurs critères remp

Re

Ok là je dois partir je regarde cela en rentrant

PascalXLD · 9 Novembre 2005

Re:Supression de lignes si plusieurs critères remp

Re

essaies avec ce code

Option Explicit

Sub Auxiliaire()

Dim x As Integer

For x = Range('G65536').End(xlUp).Row To 2 Step -1
    If Not UCase(Range('G' & x)) Like '*AUXILIAIRE*ANNUEL*' Then
        If UCase(Range('G' & x)) Like '*AUXILIAIRE*' Then
            Rows(x).Delete
        End If
    End If
Next

End Sub

Bonne soirée

PascalXLD · 9 Novembre 2005

Re:Supression de lignes si plusieurs critères remp

Re

La même avec quelques lignes de moins

Option Explicit

Sub Auxiliaire()

Dim x As Integer

For x = Range('G65536').End(xlUp).Row To 2 Step -1
    If Not UCase(Range('G' & x)) Like '*AUXILIAIRE*ANNUEL*' And UCase(Range('G' & x)) Like '*AUXILIAIRE*' Then
        Rows(x).Delete
    End If
Next

End Sub

Fea · 10 Novembre 2005

Re:Supression de lignes si plusieurs critères remp

Merci 1000 fois Pascal.
Cela marche parfaitement et va me faire gagner pas mal de temps chaque mois.

C'est super sympa de t'être penché sur mon cas

Fred

Supression de lignes si plusieurs critères remplis

Fea

Guest

PascalXLD

XLDnaute Barbatruc

Fea

Guest

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Fea

Guest

Discussions similaires