Copie BDD dans une autre feuille en la filtran

Bonjour à tous,

Je cherche à créer des fichiers de suivi pour n'importe quoi.

Ce pourrais être la réparation d'un vélo, d'une montre, d'un ordinateur etc... l’intérêt, c'est que, souvent, vous devez cherche des ressources comme un fournisseur ou une référence que l'on fini par oublier parce-que vous n'avez pas à refaire la réparation souvent ou que quelqu'un d'autre puisse le faire plus facilement, partage d'information.

En exemple un fichier de suivi des marchés (des contrats de marchés).

Dans l'onglet "Sauvegarde", je voudrais récupérer toutes les lignes "socièté A" et les afficher sous le tableau de l'onglet "compte-rendu" en n'affichant que les dates et commentaires, utiliser la référence "C4" pour filtrée.

Merci pour vos retours.

Cordialement.

Bonjour,

Tu pourrais t'inspirer avec intérêt de ce sujet analogue et de la réponse que j'y ai apporté.

A+

Bonjour,

Bonjour Galopin

Un exemple de filtre automatique dans différents onglets.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
' Exit Sub ' à démasquer le temps de la mise en place des onglets
    If Sh.Name <> "data" Then filtrer Sh
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' Exit Sub ' à démasquer le temps de la mise en place des onglets
    If Sh.Name <> "data" And Intersect(Target, Sh.Range("A1").CurrentRegion) Is Nothing Then filtrer Sh
End Sub

Private Sub filtrer(ByVal Sh As Object)
    Sheets("data").Range("donnees[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sh.Range("A1").CurrentRegion, _
        CopyToRange:=Sh.Range("A4").CurrentRegion.Resize(1), Unique:=False
End Sub

Merci de vos retours.

J'étudie tout ça et reviens vers vous.