Regroupement de valeurs

[audit2012]

Bonjour

Je souhaiterai créer une macro sous excel 2010 mais je ne vois du tout comment faire :

J'exploite des données multiples envoyées par des capteurs. Je crée un classeur pour chaque mois, et dans chaque classeur je crée 1 feuille par jour, plus une feuille de regroupement des données, et une qui me permettra de tracer mes graphiques. Sur chaque feuille se trouvent les données mesurées par les capteurs, organisées de la manière suivante :

Jour_1-0h00 Capteur_1 Valeur
Jour_1-1h00 Capteur_1 Valeur
Jour_1-2h00 Capteur_1 Valeur
...
Jour_1-0h00 Capteur_2 Valeur
Jour_1-1h00 Capteur_2 Valeur
...

Et ainsi de suite.

L'idée serait, sur la feuille de regroupement d'arriver au résultat suivant :

Capteur_1 Capteur_2
Jour1-0h00 Valeur Jour_1-0h00 Valeur
Jour1-1h00 Valeur Jour_1-1h00 Valeur
... ...
Jour1-23h00 Valeur Jour_1-23h00 Valeur
Jour2-0h00 Valeur Jour_2-0h00 Valeur
... ...


J'espère que vous avez à peu près saisi l'idée.
Merci d'avance

 

[Dranreb]

Re : Regroupement de valeurs

Boujour
Le traitement serait facilité en classant d'abord la liste sur les heures
Joignez un fichier, qu'on ait un exemple de ce qu'il y a vraiment dedans, et un support pour tester des bouts de codes qu'on vous écrirait.
À +

 

[audit2012]

Re : Regroupement de valeurs

Voilà un exemple de fichier
Les données sont à regrouper sur la page "graphe". Les données à récupérer sont en colonnes A, D et J.
Le fichier ici

 

[Dranreb]

Re : Regroupement de valeurs

Je ne comprend rien à ce qu'il y a sur ce lien. Pas vu de classeur.
À +

 

[audit2012]

Re : Regroupement de valeurs

Je ne comprends pas, j'ai testé le lien sur plusieurs ordis et il semble marcher très bien. Le fichier est un fichier xlsm, classeur excel avec macros.

 

[Dranreb]

Re : Regroupement de valeurs

Pouvez vous le joindre sur le forum en format .xls avec le bouton "Gérer les piècers jointes" ?

 

[audit2012]

Re : Regroupement de valeurs

Voilà, c'est fait! Désolé je n'ai pas l'habitude de consulter les forums!

 

[Dranreb]

Re : Regroupement de valeurs

Ce que vous appelez le capteur c'est la colonne B, et la valeur c'est la colonne J ?

 

[audit2012]

Re : Regroupement de valeurs

Non, le nom du capteur est en colonne D. En réalité, le capteur est défini par son nom en colonne D et la valeur Départ ou Retour en colonne H. Pour certains noms il y a 2 capteurs distincts à prendre en compte, comme par exemple les capteurs "Pompe administration".

 

[Dranreb]

Re : Regroupement de valeurs

Bonjour.
Les tris ne se programment plus de la même façon qu'en Excel 2003.
Pourriez vous demander l'enregistrement d'une nouvelle macro, classer la liste feuille "01" sur la colonne A, puis me communiquer le code enregistré ?
J'écris en attendant de quoi regrouper

J'ai créé une feuille "Regroup" et j ai mis ça pour le moment dans son module associé:

Option Explicit
'

Private Sub Worksheet_Activate()
Dim NblS As Long, NumF As Long, F As Worksheet, NblE As Long
Me.Cells.ClearContents
NblS = 1
For NumF = 1 To 31
   Set F = Worksheets(Format(NumF, "00"))
   NblE = F.Cells(F.Rows.Count, "A").End(xlUp).Row
   If NblE > 0 Then
      Me.Cells(NblS, "A").Resize(NblE).Value = F.Cells(1, "A").Resize(NblE).Value
      Me.Cells(NblS, "B").Resize(NblE).Value = F.Cells(1, "D").Resize(NblE).Value
      Me.Cells(NblS, "C").Resize(NblE).Value = F.Cells(1, "H").Resize(NblE).Value
      NblS = NblS + NblE: End If
   Next NumF
Me.[A1].Resize(NblS, 3).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
' ...
End Sub

À +