Autres Suppression ligne selon condition

[abdernino1985]

Bonjour ,

Je veux automatisé la suppression de ligne selon un critère qui est la "GARANTIE" , a chaque fois je filtre et je supprime le reste mais parfois ça prend du temps .
1- je supprime toute les lignes je laisse que la garantie 100110.
2- je supprime toute les lignes je laisse que la garantie 030110,030112,030113,030114
comment je peux automatisé ca avec une macro .

 

[Robert]

Bonjour Abdernino, bonjour le forum,

Toujours aussi difficile à comprendre !...
Comment peux-tu supprimer les ligne du point 2 puisque, d'après tes explications, seules restent les lignes dont la garantie est à 100110 après le point 1 !?...

 

[abdernino1985]

Bonjour Abdernino, bonjour le forum,

Toujours aussi difficile à comprendre !...
Comment peux-tu supprimer les ligne du point 2 puisque, d'après tes explications, seules restent les lignes dont la garantie est à 100110 après le point 1 !?...

mais je veux appliquer ou le 1 point ou le 2 point un seul a la fois

 

[Robert]

Re,

Ok mais comment la macro va comprendre ça ?!...

 

[Robert]

Re,

En pièce jointe ton fichier modifié. Double-clique sur n'importe quelle cellule de la colonne F (Garantie). Une boîte de dialogue s'ouvre. Sélectionne l'option que tu désires et valide...

 

[abdernino1985]

Merci beaucoup ,
quand je fait double clique sur F garantie la boite de dialogue ne s'affiche pas .
je suis allez dans l’éditeur vb et je l'ai lancer pour la 100110 trés mais il filtre moi je veux supprimer .

 

[Robert]

Re,

Pardon, ce n'est pas le double-clic mais le clic-du-bouton-droit qui affiche la boîte de dialogue. En pièce jointe la version 02 modifiée.

 

[abdernino1985]

Re,

Pardon, ce n'est pas le double-clic mais le clic-du-bouton-droit qui affiche la boîte de dialogue. En pièce jointe la version 02 modifiée.

Merci beaoucoup c'est parfait

 

[abdernino1985]

Merci beaoucoup c'est parfait

Bonjour le forum,
C'est le calcul s.a qui fait mon fichier rame trop, mais si je désactive le calcul les formule ne marche pas alors comment faire?

 

[Robert]

Re,

Encore une fois tu es imprécis. Il es où le calcul s.a ? Et qui t'empêche de désactiver le calcul automatique en début de macro et de réactiver ensuite ?

Private Sub CommandButton1_Click() 'bouton "Valider"
Dim O As Worksheet 'déclare la variable O (onglet)
Dim DL As Integer
Dim PL As Range
Dim TC() As Variant
Dim TEST As Boolean

Application.Calculation = xlCalculationManual
Set O = Worksheets("Feuil1") 'définit l'onglet O
Set PL = O.Range("A1")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
TC = Array("030110", "030112", "030113", "030114")
Application.ScreenUpdating = False
If OptionButton1.Value = True Then
    For I = 2 To DL
        If CStr(O.Cells(I, "F")) <> "100110" Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I), Application.Union(PL, O.Rows(I)))
    Next I
    PL.Delete
End If
If OptionButton2.Value = True Then
    For I = 2 To DL
        TEST = False
        For J = 0 To 3
            If CStr(O.Cells(I, "F")) = TC(J) Then TEST = True
        Next J
        If TEST = False Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I), Application.Union(PL, O.Rows(I)))
    Next I
    PL.Delete
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Unload Me
End Sub

Profite ! C'est mon dernier post avec toi... Tu fais désormais partie de ma grande liste des ...

 

[abdernino1985]

Merci beaucoup
Mon plus gros problème maintenant c'est le calcul automatique qui fait ramé mon fichier