Autres Importer des données avec condition depuis l'onglet source

[vdudu]

Bonjour à tous
J'ai un fichier source répertoriant des données, je voudrais en fonction de la spécialité médicale importer certaines données.
En PJ le fichier avec les données que j'aimerai recueillir dans l'onglet cardiologie.
L'idée étant de mettre à jour les données dans l'onglet données sources au fil de l'eau et que les mise à jour se fasse automatique dans chaque onglet par spécialité.
J'ai une ancienne version et n'ai pas rechercheX et Filtre comme fonction.
J'ai essayé avec les fonction index et si mais je n'y arrive pas, toujours des erreurs dans la syntaxe

merci d'avance pour votre aide

 

[djidji59430]

Bonjour à tous,

Avec des TCd.

 

[job75]

Bonjour vdudu,

Voyez le fichier joint et cette macro dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Données sources")
    If Sh.Name = .Name Then Exit Sub
    If Not Sh.ListObjects(1).DataBodyRange Is Nothing Then Sh.ListObjects(1).DataBodyRange.Delete xlUp 'RAZ
    With .ListObjects(1).Range
        .AutoFilter 4, Sh.Name
        Intersect(.SpecialCells(xlCellTypeVisible), .Parent.[A:A,C:C,E:H]).Copy Sh.[A1]
        .AutoFilter 'affiche tout
    End With
End With
Sh.Columns.AutoFit 'ajustement largeurs
End Sub

Elle s'exécute quand on active une feuille autre que "Données sources".

Tous les tableaux doivent être des tableaux structurés.

A+

 

[vdudu]

Bonjour à tous,

Avec des TCd.

Bonjour, merci beaucoup pour l'aide. En nettoyant le fichier de données (fait par une collègue comme beaucoup ne sachant pas travailler les données), cela fonctionne très bien. encore un grand merci pour l'aide.

 

[vdudu]

Bonjour vdudu,

Voyez le fichier joint et cette macro dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Données sources")
    If Sh.Name = .Name Then Exit Sub
    If Not Sh.ListObjects(1).DataBodyRange Is Nothing Then Sh.ListObjects(1).DataBodyRange.Delete xlUp 'RAZ
    With .ListObjects(1).Range
        .AutoFilter 4, Sh.Name
        Intersect(.SpecialCells(xlCellTypeVisible), .Parent.[A:A,C:C,E:H]).Copy Sh.[A1]
        .AutoFilter 'affiche tout
    End With
End With
Sh.Columns.AutoFit 'ajustement largeurs
End Sub

Elle s'exécute quand on active une feuille autre que "Données sources".

Tous les tableaux doivent être des tableaux structurés.

A+

Merci beaucoup pour l'aide, notre serveur et les macros cela n'est pas une grande histoire d'amour. Dès que nous voulons travailler avec un fichier avec macro, nous devons enregistré le fichier sur notre bureau, faire la macro puis remettre le fichier sur le serveur... autant dire que cela n'est pas simple. Mais un grand merci pour l'aide (et effectivement en 1ère instance j'avais pensé à une macro...)