rechercher et coller

[SRBIJA]

Bonjour,

J'ai un fichier qui comporte dans premier onglet "données" 2 colonnes. En colonne A, les numréférence et en colonne B, la catégorie concerné de la référence.

Je voudrais à partir de ce onglet "données", copier le numréférence ainsi que sa catégorie dans l'onglet approprié.

Merci d'avance pour vos réponses.

Vous trouverez en pièce jointe une ebauche du fichier Excel

 

[SRBIJA]

Re : rechercher et coller

Personne ne peut résoudre mon probleme.

Merci encore

 

[Cousinhub]

Re : rechercher et coller

Bonjour,
regarde le fichier joint, et appuie sur le bouton jaune

Le code :

Sub numref()
Dim base As Range, cel As Range, cat As Range
Range("B1:B" & [B65000].End(xlUp).Row).Name = "cat"
Range("A1:B" & [B65000].End(xlUp).Row).Name = "base"
[G1] = [B1]
Range("cat").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "G1"), Unique:=True
For Each cel In Range("G2:G" & [G65000].End(xlUp).Row)
    [G2] = cel
    With Sheets(cel.Value)
        Range("base").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Données").Range("G1:G2"), CopyToRange:=.Range("A1"), _
        Unique:=False
    End With
Next cel
Columns(7).ClearContents
End Sub