trier des données avec macro

[julien]

Bonjour,

j'aimerais trier des données a partir d'une macro.
les données doivent etre afficheés sur la page suivant le mois de l'année.

Voici ci-dessous un exemple d'une maro qui réalise cette opération, mais ds mon application g plus de données a transmettre sur les autres pages (voir fichier exemple).

mon problème est que je n'arrive pas à adapter la macro a mon application.

si vous aviez une petite idée...

merci d'avance


Sub transfertVentilation()


'
' Macro1 Macro
' Macro enregistrée le 08/04/2005 par massey-jul
'
' Touche de raccourci du clavier: Ctrl+a
'mise en forme en ordre croissant des valeurs suivant la date'

Columns('B:C').Select
Selection.Sort Key1:=Range('B2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

'fin de la mise en forme'

'Transfert des données vers les autres feuilles de calculs'

Dim MyDate As Long, MyMonth As Byte
Dim i As Integer, Lig As Integer, Mois As Byte

Application.ScreenUpdating = False
'Effacement des données en place
For i = 2 To 13
If i <= Sheets.Count Then ' Exit Sub
Lig = Sheets(i).Range('B65536').End(xlUp).Row + 1
Range(Sheets(i).Cells(2, 2), Sheets(i).Cells(Lig, 3)).ClearContents
End If
Next i
'Transfert des nouvelles données
Lig = Sheets('Base').Range('B65536').End(xlUp).Row
For Mois = 1 To 12
For i = 2 To Lig
MyDate = Sheets('Base').Cells(i, 2) ' Attribue une date.
MyMonth = Month(MyDate)
If MyMonth = Mois Then
Sheets(Mois + 1).Range('B65000').End(xlUp).EntireRow.Range('B2:C2').Value _
= Sheets('Base').Cells(i, 2).EntireRow.Range('B1:C1').Value
End If
Next i
Next Mois
Application.ScreenUpdating = True




End Sub
Sub Effacement()
Dim i As Byte, Lig As Integer
Application.ScreenUpdating = False
For i = 2 To 13
If i > Sheets.Count - 1 Then Exit Sub
Lig = Sheets(i).Range('B65536').End(xlUp).Row + 1
Range(Sheets(i).Cells(2, 2), Sheets(i).Cells(Lig, 3)).ClearContents
Next i
Application.ScreenUpdating = True
End Sub [file name=reorganisationexe_20050412164230.zip size=24159]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/reorganisationexe_20050412164230.zip[/file]

 

[pat1545.]

Salut,

à la lecture du début de ton code , une grosse erreur (je pense):
pourquoi tu sélectionne B:C et tu tries sur la colonne B , les autres données ne suivent pas !!!


Poiur le reste je ne sais pas mais là tu comences (me semble t il ) pas une faute




Patrick

 

[julien]

salut pat1545, le forum

merci de ta reponse pat1545

je sais qu'il y a une faute en B et C car la macro que j'utilise renvoi les données en b et c ds les autres feuilles (avec en b la date et en c les valeurs). cette macro est extraite d'un exemple que j'aimerai bien adapter a mon application mais pour pas fausser tous le code g préferé le laisser tel quel voici ci dessous l'exemple dont je me suis inspirer. (désolé j'aurais peut etre du prévenir avant )

merci d'avance.

 

[julien]

désolé g du modifier le fichier il etait trop gros :sick: il passait pas inch:
le voila je rapelle que c l'original sur lequel je voudrais adapter mon application

merci de votre patience et bon courage au + témerère d'entre vous [file name=reorganisationoriginal.zip size=14080]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/reorganisationoriginal.zip[/file]