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

[patricktoulon]

bonjour
l'enregistreur de macro tu connais??? il te donne un début de code tout prémâché qu'il faut un peu arranger a son contexte

un exemple

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro2()
    X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
    If X = False Then Exit Sub
    With ActiveSheet.Range("$A$1:$A$1504")'adapte ta plage et sheets
        .AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(0, "12/31/" & X)
        .SpecialCells(xlVisible).Copy Destination:=Sheets(2).Cells(1, 1)'adapte ta feuille de destination et 1 ère cellule de départ ou tu veux que les lignes soient copiées
        .AutoFilter
    End With
End Sub

[joe.levrai]

Hello,

Patrick, pourquoi Criteria2 ? J'utilise toujours le 1 même pour passer un array

Une subtilité qui m'échappe ?

Pour un filtrage avec transfert des données "ailleurs" ... ne jamais oublier le filtre avancé !

[patricktoulon]

oui tu a raison joe
j'ai stupidement copier coller

mais le principe est la