Discussion :

[Tiresia]

Bonjour à tous, alors voila mon souci, j'ai un tableau avec une colonne heure et une colonne nb de palettes qui se présente comme suit :

Heure Nb Palettes
9h 12
10h 15
10h15 20
.
.
.

Ce que je voudrais faire, c'est regrouper les palettes par tranche horaire, c'est à dire que dans ce cas la la ligne avec 10h15 disparait et on aurait plus que la ligne 10h qui comprendrait 15 + 20 palettes. Et j'aimerais faire ça en sachant que je ne prend en compte que l'heure pour le regroupement, c'est à dire que 10h55 serait également regroupé avec le 10h et pas avec le 11h.

J'ai essayé quelquechose en convertissant les heures en caracteres, ce qui me donnait par exemple 9.5 pour 9h30, puis je faisais une comparaison entre la ligne i et la ligne i+1 en utilisant le left(XXX)...seulement le souci, c'est que pour les premieres lignes ça pouvait marcher mais dés que l'on passe dans les 10h etc...la comparaison ne s'effectue plus seulement sur le premier caractère, je me suis sûrement compliqué beaucoup la vie, parceque je suppose qu'il existe des outils de comparaison en VBA plus efficace que ça, mais je n'ai aucune idée de comment ils marchent, j'ai cherché un moment pour d'autres solutions mais je n'ai pas trouvé, est ce que quelqun aurait une solution à me proposer ou tout du moins une piste à me donner ?

Merci d'avance

[Tiresia]

Ca a pas l'air de vous inspirer, en attendant j'ai reussit à faire un truc pas trop mal en bidouillant , j'ai converti les heures en chiffres en multipliant leurs valeurs par 24 dans ce cas comme je le disais, ça donne 9.5 pour 9h30, puis j'ai fait un arrondi inférieur de cette valeur, et enfin j'ai pu faire le regroupement...pourquoi faire simple quand on peut faire compliqué

Enfin voila ce que ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub regroupe()
Dim cpt As Variant
Dim i As Integer
 
cpt = 0
i = 1
 
Do While Sheets("copie").Cells(i, 1) > 0
 
 
Sheets("copie").Cells(i, 4).Value = Sheets("copie").Cells(i, 2).Value * 24
Sheets("copie").Cells(i, 5).FormulaR1C1 = "=ROUNDDOWN(RC[-1],0)"
Sheets("copie").Cells(i, 5).NumberFormat = "0"
 
 
 
 
 
i = i + 1
Loop
 
i = 1
 
Do While Sheets("copie").Cells(i, 1) > 0
 
cpt = Cells(i, 3).Value
 
Do While Cells(i, 5).Value = Cells(i + 1, 5).Value
 
cpt = cpt + Cells(i + 1, 3).Value
i = i + 1
 
Loop
 
Cells(i, 6).Value = cpt
i = i + 1
 
Loop
 
End Sub

Malgré tout, je reste preneur si quelqun savait comment regrouper par tranche horaire directement avec les heures.

[wilfried_42]

Bonjour tiresia

Je pense qu'avec des formules ce serait plus simple, mais sans un bout de fichier...........

@ te lire

[wilfried_42]

re:

voici un fichier que j'ai fait à la va vite

en ligne, il denombre les plages horaires
en colonne AA, il transforme l'heure en plage horaire

pas de macro, que des formules