Discussion :

[eliana55]

Bonjour à tous,
Pourriez vous m'apporter votre aide mon problème n'ayant toujours pas été résolu
J'ai une macro en Vba qui permet de saisir une date et à partir de cette date isole toutes les lignes concerner dans une autre feuille Excel
Cependant je veux pas qu'elle saisisse la date je voudrais quelle saisisse un autre champs et quelle l'isole la ligne ou ce champs apparait (par exemple saisir "C4" et isoler la ligne ou apparait "C4" dans une feuille 2)
mercii
Voici le code et en pièce jointe mon fichier Excel

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