filtre avec parametre

[oliv67]

bonjour le forum

je suis confronté à un pb
j'ai un fichier excel avec 3 feuilles
j'ai commencé le code mais suis bloqué
je souhaite en fait rechercher le prmier numero de la colonne A ligne 2 de la feuille 2
et savoir s'il se trouve dans la colonne a de la feuille 1
si c'est le cas copier ce numero dans la colonne A de la feuille 3

pour le deuxieme numero (soit deuxieme ligne) de la colonne A de la feuille s'il est present dans la feuille 1 le recopier dans la premiere ligne vide de la colonne A DE LA FEUILLE 3

.

 

[SubEndSub]

Re : filtre avec parametre

Bonjour chez vous

Une solution avec Cells.Find

A coller dans un module standard.
(Outils/Macros/Visual Basic Editor/Insertion/Module)

Sub macro()
Dim F1 As Range, F2 As Range
Dim cellule As Range, Trouve As Range
Dim i As Long, Fin As Long, Cherche As String

i = 1

Fin = Feuil1.[A65536].End(xlUp).Row

Set F1 = Feuil1.Range("A2:A" & Fin)
Set F2 = Feuil2.Range("A2:A" & Fin)

For Each cellule In F1
Cherche = cellule.Value
    If Not IsEmpty(Cherche) Then
    Set Trouve = F2.Columns(1).Cells.Find(Cherche, Lookat:=xlWhole)
        If Not Trouve Is Nothing Then
        Feuil3.Cells(i, "A").Offset(1, 0).Value = cellule.Value
        i = i + 1
        End If
    End If
Next
End Sub

 

[oliv67]

Re : filtre avec parametre

merci

olivier