Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copies vers d'autres feuilles

  • Initiateur de la discussion Initiateur de la discussion gadjet27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

gadjet27

Guest
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 🙂
 
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)
 
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
 
Re : Copies vers d'autres feuilles

Bonsoir le fil,

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

Code:
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?
 
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
 
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
 

Pièces jointes

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.
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
665
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…