Copies vers d'autres feuilles

[gadjet27]

Bonjour

Je souhaite savoir comment faire pour copier certaine ligne d'une feuille vers une autre feuille .
Je m'explique :😕

Premiere feuille toutes les actions d'une entreprise .
Deuxieme feuille toutes les actions effectuées par une personne
Troisieme feuille toutes les actions effectuées par une autre personne

Ce que je souhaite faire c lorque je saisie dans la premiere feuille je puisse
archiver directement dans les feuilles correspondantes suivant les personnes .🙄

Je vous remercie d'avance
Cdt Ludo 🙂

 

[seb33]

Re : Copies vers d'autres feuilles

pas très bien compris.
est-ce si les données de la feuille 1 correspondent à la personne 1, ca copie dans la feuille de cette personne?

si oui, il y a surement une méthode plus rapide que celle ci mais bon:
à côté de la cellule, tu inclus une liste de choix et tu coche les personnes à ventiler.

puis dans les feuilles des personnes (2, 3etc) tu mets une condition =si(listechoix=xxx, A1="'feuil1'!A1";0)

 

[gadjet27]

Re : Copies vers d'autres feuilles

En faite la 1 ere feuile comprend toutes les action de toutes les personnes
et je souhaite pour triéer automatiquement les action de chaque personnes
en faite automatiser le fonction tri .

Ai je ete claire ?
cdt Ludo

 

[gadjet27]

Re : Copies vers d'autres feuilles

Voila pour plus de précision un exemple 🙂
Cdt ludo 😕

 

[skoobi]

Re : Copies vers d'autres feuilles

Bonsoir le fil,

voici une proposition de code à mettre avec un bouton feuille 1:

Sub test()
Dim trouve As Boolean
For Each personne In Range([B2], [B65536].End(xlUp))
    trouve = False
    For f = 2 To Sheets.Count
        If Sheets(f).Name = personne.Value Then
            With Sheets(f)
                derlig = .[B65536].End(xlUp).Row
                personne.EntireRow.Copy .Rows(derlig + 1)
            End With
            trouve = True
        End If
    Next
    If Not trouve Then
        Sheets.Add , Sheets(Sheets.Count)
        With ActiveSheet
            .Name = personne.Value
            Sheets(1).Rows(1).Copy .Rows(1)
            personne.EntireRow.Copy .Rows(2)
        End With
    End If
Next
End Sub

....automatisé la fonction tri .

Sur quelle colonne?

 

[gadjet27]

Re : Copies vers d'autres feuilles

il va falloir que tu m'aide un peu comment creer t on des boutons , je supose
que je le lis a un macro ?

je veux trie par rapport au nom des personnes

Cdt ludo

 

[gadjet27]

Re : Copies vers d'autres feuilles

je te joint un nouvelle exemple
Cdt ludo

 

[skoobi]

Re : Copies vers d'autres feuilles

Voici une proposition.

pour ce qui est du tri, tu veux trier les feuilles (onglets) ?

 

[gadjet27]

Re : Copies vers d'autres feuilles

Bonjour Skoobi

Super c'est ce que je recherchais !! par contre mon tableau
evolue tous les jours et j'ai fais un petit essai et
- a chaque fois que je fais achiver je recopie a nouveau
toutes la liste .
- es ce possible que l'on archive que les nouvelles taches a chaque foi
par selection ?

Si non pourrais tu m'expliquer coment tu fais pour réaliser le bouton
avec la macro car je dois le retranscrire dans mon tableau d'origine .

Cdt Ludo

regarde l'exemple

 

[skoobi]

Re : Copies vers d'autres feuilles

Re bonjour,

pour le bouton, via la barre d'outil formulaire, tu crés un bouton, dès la création du bouton, excel te propose d'y associer une macro.

Ci-joint la version avec sélection, càd que tu sélectionnes les personnes à archiver et non l'action.

 

[gadjet27]

Re : Copies vers d'autres feuilles

Citation:
....automatisé la fonction tri .

Sur quelle colonne ?


sur la colonne personne

par contre je peche un peu pour la création de ma premiere macro
je vais faire des essai .

Cdt ludo