durée inversée

[JJ]

Bonjour,
j'ai modifié une macro'durée' qui me décompte 1 heure depuis le début de la feuille excel en colonne G:
Dim...
Dim temps As Date
Columns('G:G').Select
t=1
Do While temps <'01:00:00'
'je fais plusieurs actions
t=t+1
Loop
End Sub
Elle fonctionne mais je voudrais que le décompte parte du bas de la feuille et non du début pour un problème de chronologie.
Peut on la modifier simplement?
(ou existe t il un moyen de 'renverser' la feuille excel (la dernière ligne devenant la première)
merci encore pour votre aide
JJ

 

[soft]

Si tu sais où commencer, change les lignes de code suivantes


t=1
en
t= 1000 '(ou le n° de la dernière ligne)

et

t=t+1
en
t=t-1

Sinon tu peux trier sur cette colonne après traitement.

Message édité par: soft, à: 23/10/2005 17:31

 

[JJ]

Bonsoir oui ca parait evident !!
je vais l'essayer ce soir, sinon pour le tri qu'as tu voulu dire?
merci beaucoup
a+

 

[soft]

menu données/trier

Ensuite tu choisis la colonne avec tes heures et tu selectionne Décroissant

 

[JJ]

oui et je peux même faire ce tri décroissant dans la macro .

PS: Existe t il un moyen pour que la macro connaisse le nombre de ligne utilisées par un tableau (car 3000 est un nombre fixe 'au hasard')
c'est pour info car ta solution avec 3000 me suffit .
Merci
Bonne semaine
JJ

 

[soft]

Salut JJ, le forum,
On peut...
Voici un exemple ou on regarde dans la colonne A quelle est la première cellule vide :

...
Dim L As Long
L = 1
While Range('A' & L).Value <> ''
L = L + 1
Wend
MsgBox L - 1 & ' lignes utilisées'
...

 

[Charly2]

Bonjour JJ, soft, le forum,

Tu peux aussi utiliser :
Range('A1', Range('A65536').End(xlUp)).rows.count

Pour l'avoir dans une MsgBox :

[size=4]Sub CompteLigne()
  MsgBox (Range('A1', Range('A65536').End(xlUp)).Rows.Count & ' ligne(s) utilisée(s)')
End Sub[/size]

Amicalement
Charly

 

[JJ]

Merci à vous pour cette info et l'astuce du t=t-1 : parfait !
JJ