Macro selectionne ligne selon critere

**eliana55** · 05/07/2017, 15h55

Bonjour j'ai a nouveau besoin de votre aide !!
J'ai fait une macro qui me permet de saisir une date . Ensuite a partir de cette date on m'isole sur mon fichier toutes les lignes qui comprend à cette date sur une feuille 2 de mon fichier
Cependant je voudrais que sur la feuille 2 j'ai une macro me permettant de faire un autre champs de saisi pour pouvoir faire un critère de plus sur les lignes sélectionnés
je vous ai mis une capture en PJ , par exemple j'ai sélectionner toutes les lignes comprenant "2013" maintenant je voudrais un champs de saisi me sélectionnant seulement les lignes comprenant "C4" a partir de la feuille 2
Merci d'avance pour tout aide

En pièce jointe mon fichier Excel et une capture

Voici le code qui ma permis de saisir une date et l'isoler sur la feuille 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub date_6()
    Dim X As Variant
    Dim Cel As Range
    Application.ScreenUpdating = False
    X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
    If X = False Then Exit Sub
    Worksheets("feuil2").Cells.ClearContents    'efface cellules feuille
    Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
    If Not Cel Is Nothing Then
        PA = Cel.Address	
        Lig = 1     'ligne de depart pour feuil2
        Do
            Cel.Interior.ColorIndex = 3
            Sheets("Feuil2").Activate
            Cel.EntireRow.Copy
            Lig = Lig + 1       '+1 pour donnee suivante
            Cells(Lig, 1).Select
            ActiveSheet.Paste
            Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel)
        Loop While Not Cel Is Nothing And Cel.Address <> PA
    End If
    Application.ScreenUpdating = True
End Sub