Discussion :

[jejeld]

Bonsoir
Débutant en vba, je dois extraire des données d'une feuille vers une autre dans un même classeur suivant plusieurs critères, quatre au total (deux critères sont indépendants les uns des autres, mais les deux autres sont liés pour déterminer un laps de temps).
J'ai essayé de modifier un macro permettant de faire un filtre élaborer, mais je n'y suis pas parvenu.
Connaissez vous une autre façon de faire cette extraction?
Merci d'avance.

[laetitia]

bonsoir jejeld le forum comme cela pas simple il faut en dire plus ??? ou donner un exemple concret

[jejeld]

Bonsoir laeticia
je dois extraire les données de mon tableau (en feuille 1) à partir des critères "compagnie", "ligne" et du "début" et de la "fin" vers la feuille 2 comme vous pouvez le voir sur le fichier que je joint.
Mon problème est que je n'arrive pas faire la macro me permettant de filtrer les données en fonction de ces critères.

[mercatog]

à l'aide d'une boucle

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
Private Sub CommandButton1_Click()
Dim i As Long, j As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Range("A2:I" & .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row).ClearContents
End With
 
With Sheets("Feuil1")
    j = 2
    For i = 7 To .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row
        If .Range("A" & i).Value = .Range("A3").Value And .Range("B" & i).Value = .Range("B3").Value And .Range("C" & i).Value >= .Range("C3").Value And .Range("C" & i).Value <= .Range("D3").Value Then
            .Rows(i).Copy Sheets("Feuil2").Range("A" & j)
            j = j + 1
        End If
    Next i
End With
Application.ScreenUpdating = True
End Sub

[laetitia]

bonjour jejeld mercatog le forum en utilisant des listes de validation
j 'ai vider la liste pour "alleger" le zip a tester!!!