Copie de colonnes vers d'autre feuille selon la date d'une cellule

[azz]

Bonjour, le fichier en pj est un recapitulatif de contrat multi client multi gamme
la 1ere page du fichier "feuil1" est un recapitulatif alimenté journalierement.

exemple pour le mois de janvier:
A partir des infos présentent par ligne est par gamme au mois de janvier, il faudrait que ces infos soit copiés automatiquement dans la feuille "janvier" . le but est que l'on retrouve sur la feuille "janvier" tous les contrats des clients par gamme du mois de janvier (clim, pont compresseur etc.....) : voir exemple en page "janvier"

pour le mois de fevrier:
A partir des infos présentent par ligne est par gamme au mois de fevrier, il faudrait que ces infos soit copiés automatiquement dans la feuille "fevrier" . le but est que l'on retrouve sur la feuille "fevrier" tous les contrats des clients par gamme du mois de fevrier(clim, pont compresseur etc.....)

etc etc pour les autres mois.

vous pouvez modifier le fichier a souhait.

merci d'avance

 

[PrinceCorwin]

Re : Copie de colonnes vers d'autre feuille selon la date d'une cellule

Bonjour,

Voici un petit Script qui pourrait répondre à ton besoin.
Un renommant les onglets des mois en chiffres (01, 02, 03, ...)

Sub TriClientparMois()
'trie des clients par mois
'copie les lignes dans l'onglet du mois

Dim i As Integer
On Error Resume Next
Sheets("Feuil1").ShowAllData
For i = 1 To 12
    Sheets("feuil1").Select
    Cells.AutoFilter Field:=7, Criteria1:=i
    Sheets("Feuil1").Range("A3", [B65000].End(xlUp)).SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Copy
    Sheets(Format(i, "00")).Select
    Cells([A65000].End(xlUp).Row + 1, 1).Select
    ActiveSheet.Paste
    
Next i
Sheets("Feuil1").Select
ActiveSheet.ShowAllData


End Sub

Bonne continuation

 

[azz]

Re : Copie de colonnes vers d'autre feuille selon la date d'une cellule

Merci pour la réponse, j'ai appliqué le script qui fonctionne mais uniquement pour la colonnes G (Field:=7)
est il possible d'adapter ce script avec d'autres colonnes supplémentaires field 7, 13, 19 etc (selon la gamme produit)
afin de retrouver l'ensemble des gammes dans les différents feuilles 01 02 03 etc. (actuellement le script ne trie et copie que la gamme "climatisation" qui équivaut a la colonne G (field 7).
Cordialement