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

Copier des lignes selon une date et un mot-clé vers des onglets d'un même classeur

Créer une discussion

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 !

S'inscrire
H

hyperion13

XLDnaute Nouveau
Bonjour à toute la communauté,

Je viens vers vous pour trouver une solution afin d'automatiser une technique de copier/coller.

Je dispose d'un classeur unique sous Office 2003 ou 2007 selon le cas.
(j'ai bien capté que sous 2007, l'extension sera *.xlsm)

Le tableau sur lequel je travaille est identique sur tous les feuilles de mon classeur.

Dans la 1er feuille, je saisie jour après jours des lignes de données.
- la 1ère colonne contient les dates au format jj/mm/aaaa
- la Nième colonne contient un code agent (lettre)

Je souhaiterai dans la mesure du possible pouvoir d'un simple clic de souris :
- saisir la date qui m'intéresse;
- sélectionner et copier tous les lignes correspondantes à la date saisie;
- ventiler sur mes autres feuilles qui sont nommées du code agent les lignes sélectionnées et les copier respectivement dans les feuilles fonction du code agent.
- si nouveau code agent créer automatiquement une nouvelle feuille, la nommer du nouveau code agent et copier les lignes correspondantes.

En vous remerciant d'avance.
Merci
 
Dernière édition:
Trier par date Trier par votes
Re : Copier des lignes selon une date et un mot-clé vers des onglets d'un même classe

Bonjour Hyperion, bonjour le forum,

Un fichier exemple p... de b... de m... ! Si ton fichier original est trop lourd il suffit de partir d'un fichier vierge d'à peine 3 ou 4 onglets ayant la même structure (noms des onglets, plages nommées, formules). Une poignée de données non confidentielles. Ce qui tu as avant et ce que tu voudrais après...
Après on pourra te proposer une macro qui s'adaptera à ton fichier original.
 
Vote positif 0 Vote négatif
Re : Copier des lignes selon une date et un mot-clé vers des onglets d'un même classe

Bonsoir le forum,
Bonsoir hyperion13, Robert

Pour répondre à ceci :


Pour traiter la date voulue, il suffit de se placer dans la cellule concernée par la date en colonne A feuille ("BASE")

Pas besoin de saisir la date à traiter.
Voir la condition
Code: 
If .Cells(cel.Row, 1).Value = ActiveCell.Value Then
Ci-dessous :

VB: 
Sub Recopier()
Dim cel As Range, derlig As Long, feuil As String, Code_Agent As String
With Sheets("BASE")
  For Each cel In .Range("I2:I" & [I65536].End(xlUp).Row)
    If .Cells(cel.Row, 1).Value = ActiveCell.Value Then
      Code_Agent = cel.Value
      Select Case Code_Agent
        Case "ANS"
          'Ventiler dans la feuille "ANS"
          feuil = "ANS"
          derlig = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
          Sheets(feuil).Cells(derlig, 1).Resize(, 10) = .Cells(cel.Row, 1).Resize(, 10).Value
    
        Case "ELD"
          'Ventiler dans la feuille "ELD"
          feuil = "ELD"
          derlig = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
          Sheets(feuil).Cells(derlig, 1).Resize(, 10) = .Cells(cel.Row, 1).Resize(, 10).Value
        
        Case "FLA"
          'Ventiler dans la feuille "FLA"
          feuil = "FLA"
          derlig = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
          Sheets(feuil).Cells(derlig, 1).Resize(, 10) = .Cells(cel.Row, 1).Resize(, 10).Value
      End Select
    End If
  Next cel
End With
End Sub

Pas traiter cette partie :

.../...
- si nouveau code agent créer automatiquement une nouvelle feuille, la nommer du nouveau code agent et copier les lignes correspondantes.
Cliquez pour agrandir...

Klin89
 
Vote positif 0 Vote négatif
Re : Copier des lignes selon une date et un mot-clé vers des onglets d'un même classe

Bonsoir le fil, bonsoir le forum,

En pièce jointe une proposition qui fonctionne au double-clic sur une date de la colonne A. Un double-clic dans n'importe quelle date de la colonne A ventile toutes les dates dans son onglet respectif (en créant un onglet si celui n'exite pas). Code commenté.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copier des lignes selon une date et un mot-clé vers des onglets d'un même classe

Bonjour Robert, bonjour Klin89, bonjour le forum

Je vous remercie de cette aide précieuse et de la qualité de votre travail.

Merci beaucoup
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
283
AtTheOne
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
161
flc13090
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
683
Corentin26270
C
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
669
Nel'
N
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
616
steph_29120
S
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
539
jeff1494
A
  • Question Question
XL 2019 Ajouter ou supprimer une ligne selon un mot trouvé dans une autre feuille
Réponses
1
Affichages
433
Oneida
B
  • Question Question
XL 2019 ventiler une base de données sur plusieurs feuilles d'un même classeur
Réponses
5
Affichages
724
bernardhericher
B
O
  • Question Question
XL 2013 Recopier automatique des valeurs d'un onglet vers un autre onglet selon critère
Réponses
2
Affichages
638
olivieroma
O
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
410
zendb
Z
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
472
Chaton77
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
627
jgav
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
582
GClaire
G
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
  • Question Question
XL 2013 Copier une même cellule de plusieurs feuilles Excel dans un autre classeur
Réponses
7
Affichages
918
job75
H
  • Question Question
Power Query Récupérer une donnée dans des classeurs pour afficher le résultat dans un autre classeur
Réponses
5
Affichages
600
hijackfr
H
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
766
Zon
Z
S
  • Question Question
XL 2016 VBA - copier coller des données d'un onglet vers un nouvel onglet
Réponses
1
Affichages
814
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…