XL 2019 copier des cellules vers une autre feuilles

[toffduq]

bonjour à tous
je cherche à faire un planning excel pour mon travail
je chercher la formule pour copier automatiquement une ligne de cellules vers une autre feuilles par rapport au texte d'une cellule
je m'explique dans la premier feuille j'ai des dossiers que je dois mettre sur plusieurs machines (th1 ; th2 ; th3) et j'aimerai que quand le nomme a machine dans la cellule celle si ce note directement sur la feuille de la machine
merci pour votre aide

 

[job75]

Bonjour toffduq, bienvenue sur XLD,

Il suffit de filtrer le tableau source, voyez dans le ThisWorkbook du fichier joint :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "dossier" Then Exit Sub
Application.ScreenUpdating = False
Sh.Cells.Delete 'RAZ
With Sheets("dossier").[B1].CurrentRegion
    .AutoFilter 1, Sh.Name 'filtre automatique
    .Copy Sh.[A1] 'copier-coller
    .AutoFilter 'retire le filtre
End With
Sh.Columns.AutoFit 'ajustement largeurs
End Sub

A+

 

[toffduq]

super merci pour votre aide

 

[toffduq]

bonjour job75
Je vous remercie pour votre aide ce que vous avez fait et vraiment ce que je rechercher

Par contre sera-t-il possible d'avoir les explications de la méthode que vous avez utiliser
Car je suis au début de mon projet et j'ai une dizaine de machine à faire.

Merci pour votre aide

 

[job75]

Par contre sera-t-il possible d'avoir les explications de la méthode que vous avez utiliser

Les commentaires que j'ai mis dans le code sont bien suffisants.

 

[toffduq]

encore une question si vous voulez bien .
si je veux que dans ma colonne en C fasse la même que en B
qu'est ce que je dois modifié ?