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

[hyperion13]

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

 

[Robert]

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.

 

[hyperion13]

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

Bonjour, bonsoir Robert, Bonjour, bonsoir le forum
J'ai ajouté un fichier
Merci

 

[klin89]

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 :

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.
.../...

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

If .Cells(cel.Row, 1).Value = ActiveCell.Value Then

Ci-dessous :

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.

Klin89

 

[Robert]

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é.

 

[hyperion13]

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