Discussion :

[DirtyA:ex]

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

[ouskel'n'or]

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 ?

[ouskel'n'or]

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

Code :

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

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

[DirtyA:ex]

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)

[Elstak]

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 !

[ouskel'n'or]

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 )
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

[DirtyA:ex]

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 :

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

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?

[ouskel'n'or]

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

Code :

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

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 )

[DirtyA:ex]

merci bcp ca me va tres bien

[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

Code :

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

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

......................................

[Elstak]

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 !

Sacré dodo va !

[DirtyA:ex]

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

[ouskel'n'or]

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

Code :

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

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

[Elstak]

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