(vba excel) echelle horaire pour graphique

Bonjour,

jutilise une macro pour traiter des données, elles sont classées par heure . Lorsque je veux transformer les donnees en graphe avec pour abscisse, un axe temps, il ny a pas dechelle entre les heures donc le graphe tracé nest pas concluant. Peut on permettre une echelle en fonction de lheure
si oui comment procede t on ??

Merci pour toute aide

Alex

Comprends pas. Comment crées-tu ton graphe ? Manuellement ou par soft ?
Tes heures sont dans la colonne A ? Quel est leur format ? Quel format horaire utilises-tu ?

Je viens d'essayer avec ça, pas de pb

Code:

---

1 2 3 4 5 6 7 8 9

Données 01:00 12 02:00 14 03:00 18 04:00 9 05:00 6 06:00 17 07:00 22 08:00 5

---

Et j'ai un graphe qui prend bien les horaires comme étiquettes des abscisses

jutilise ds la colonne A des heures sous forme hh:mm
en fait lechelle entre les etiquettes est bonne que si la difference entre les heures est identique. mais jutilise des heures qui nont pas un ecart identique par ex

8:23 45
8:59 20
9:00 55

sur le graphe l'écart entre chacune des heures de la colonne A est identique
(je crée mon graphe a partir dune macro)

oui il y a un ecart par heure et il ne cree pas l'ecart en fonction de tes heures (il ne va pas mettre 8:23 sur l'axe) sinon ca serait peu lisible si y'a des ecarts tres petits et ca serait irregulier.

le seul truc possible, à ma connaissance, c'est de double cliquer sur une heure de ta legende.

T'as alors une fenetre "format de l'axe" qui s'ouvre. Onglet "Echelle", "nombre d'abscisse entre les etiquettes de graduation" et là tu peut modifier et voir ce que ca donne !

Une petite correction : Il te mettra bien les bonnes étiquettes, l'ordonnée sera même bonne mais la graduation des abscices ne sera jamais proportionnelle au temps (à moins, comme le suggère Elstack, que tu mettes des graduations toutes les minutes et que tu les renseignes par des données pour chaque minute :lefou: )
Malheureusement, tu ne peux pas modifier les étiquettes, par contre, tu peux les supprimer et en bricoller d'autres à l'aide de zones de textes

merci je veux donc maintenant generer une colonne que je remplirais
comment est peut on creer en Vba une colonne avec les heures minutes par minutes par exemple entre 6h et 19h?

si on fait :

Code:

---

1 2 3 4

for i = 1 to 780 'cest le nbre de min de entre 6 et 19h newsheet.cells(i,y).numberformat= "hh:mm" newsheet.cells (i,y) =newsheet.cells + "00:01" Next i

---

ca marche po et je vois pas trop comment faire?

Le plus facile parce que non tributaire du format de la cellule

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim NoCol, No1ereLigne, i, j No1ereLigne = 1 'Ligne d'entête à prendre en compte NoCol = 1 For i = 1 To 13 Lheure = Right("00" + CStr(i - 1), 2) For j = 1 To 59 Cells(((i - 1) * 60) + j + No1ereLigne, NoCol) = Lheure + ":" + Right("00" + CStr(j), 2) Next j Cells(((i - 1) * 60) + j + No1ereLigne, NoCol) = Right("00" + CStr(i), 2) + ":00" Next i

---

Il existe certainement une méthode + sioux mais pour une dizaine d'heures, et ponctuellement, elle me va très bien
Mais c'est toi qui vois
(je regarde quand même pour une syntaxe plus orthodoxe ;) )

merci bcp ca me va tres bien

Tiens, comme j'avais un peu honte de mon code (et cinq minutes entre un café et une pipe, de celles qui se fument) j'ai fait ça

Code:

---

1 2 3 4 5 6 7 8

Heure = "0" mn = "0" sec = "0" For i = 1 To 780 mn = CStr(i Mod 60) If i Mod 60 = 0 Then Heure = CStr(Val(Heure) + 1) Cells(i, 1).Value = Format(TimeSerial(Heure, mn, sec), "hh:nn") Next

---

...................................... :yaisse2:

Citation:

---

Envoyé par ouskel'n'or

Tiens, comme j'avais un peu honte de mon code (et cinq minutes entre un café et une pipe, de celles qui se fument) j'ai fait ça

---

Roooo ! :mrgreen:

Sacré dodo va !

encore merci c vrai que le dernier est plus stylé et bon prochain "café-pipe" ;)

Attends, je n'ai pas dit mon dernier mot ;)
En cherchant autre chose, j'ai pensé à ça :

Code:

---

1 2 3

Cells(1, 3).Value = "00:01" Range("C1:C780").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ Step:=6.94444444444444E-04, Trend:=False

---

Incrémente les minutes jusqu'à la ligne 780...

Tu peux mettre Résolu maintenant, j'ai pas plus court :mouarf:

Sacré dodo je suis sur qu'il en reve la nuit de ses code VBA :mouarf: