trier et copier automatiquement les lignes sur différents onglet Fermé

Question

Bonjour à tous,

J'aurai besoin d'aide avec un classeur de suivi que j'essaie de mettre au point.

J'ai un onglet général avec une cinquantaine de lignes et d'autres onglets: 2010, 2011 etc... 
La colonne Q est rempli de dates. Et ce sont ces dates que je voudrais utiliser comme critère pour que les lignes soient automatiquement copié depuis l'onglet général vers les onglets correspondant selon les années. 

Est-ce quelqu'un saurait comment faire?

Merci d'avance

Theo.R · Answer

Bjr,

Il faut passer par une macro (VBA). Quel est votre niveau en la matière ?

Cdt,

Theo.R · Answer

Essayez ce code avec comme prérequis :
1) votre feuille globale est la première de votre classeur
2) vous avez bien créé les feuilles pour toutes les années différentes de la colonne Q, ces années en colonne Q sont sous le format "aaaa" -> 2010 par exemple. Si vous avez une date entière (01/01/2010), alors utilisez une autre colonne avec la fonction ANNEE()

Le code vba à utiliser dans le workbook est le suivant: 
Sub test()With Sheets(1)Dim DernLigne As LongDernLigne = Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).RowFor i = 2 To DernLigneIf Len(Sheets(1).Cells(i, 17).Value) = 4 ThenDim Nomf As StringNomf = Sheets(1).Cells(i, 17).ValueDim m As LongOn Error GoTo PbNomfm = Sheets(Nomf).Range("Q" & Rows.Count).End(xlUp).Row + 1Sheets(Nomf).Rows(m).Value = Sheets(1).Rows(i).ValuePbNomf:End IfNext iEnd WithEnd Sub

Trier et copier automatiquement les lignes sur différents onglet

2 réponses

Discussions similaires