rechercher et coller

SRBIJA · 13 Mai 2008

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 · 13 Mai 2008

Re : rechercher et coller

Personne ne peut résoudre mon probleme.

Merci encore

Cousinhub · 13 Mai 2008

Re : rechercher et coller

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

Le code :

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

rechercher et coller

SRBIJA

XLDnaute Junior

Pièces jointes

SRBIJA

XLDnaute Junior

Cousinhub

XLDnaute Barbatruc

Pièces jointes

Discussions similaires