XL 2019 copier des cellules vers une autre feuilles

toffduq

XLDnaute Nouveau
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
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour toffduq, bienvenue sur XLD,

Il suffit de filtrer le tableau source, voyez dans le ThisWorkbook du fichier joint :
VB:
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+
 

Fichiers joints

Dernière édition:

toffduq

XLDnaute Nouveau
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas