Compte à rebours et défilement automatique

[jpz]

Bonjour,

Je souhaite dans le fichier ci-joint qui est un compte à rebours que la cellule avec le temps le plus court soit toujours au milieu de la page.
Le fichier contient déjà une macro pour le défilement du temps mais je n'arrive pas à trouver de solution pour le défilement de la page.
Je vous remercie par avance pour votre aide,

Jp

 

[ERIC S]

Re : Compte à rebours et défilement automatique

Bonjour

pour rester simple, je te propose de figer les volets :
tu sélectionnes la ligne 10 en entier
affichage
figer les volets
tout ce qui est au dessus de la ligne 10 reste en permanence à l'écran, l'ascenseur vertical agit uniquement sur les lignes suivantes

 

[Modeste geedee]

Re : Compte à rebours et défilement automatique

Bonsour®

quel défilement ??
le minimum reste le minimum...
il y a d'ailleurs plusieurs valeurs minimum ex-aequo
le quel choisir ???
une simple formule fourni le n° de ligne ou se trouve "ce premier minimum" en commençant par le haut
=Equiv(Min(B9:B130);B9:B130;0)
il suffit d'insérer dans le code du chrono, la sélection par macro de cette ligne

 

[ROGER2327]

Re : Compte à rebours et défilement automatique

Bonjour à tous.

Pas certain d'avoir tout compris...
Un essai tout de même.​

ℝOGER2327
#7830

Samedi 14 Clinamen 142 (Sortie d’Albrecht Dürer, hermétiste - fête Suprême Quarte)
16 Germinal An CCXXIII, 0,2983h - laitue
2015-W14-7T00:42:58Z

 

[job75]

Re : Compte à rebours et défilement automatique

Bonsoir à tous,

Sub compte()
If Not running Then Exit Sub
Dim r As Range
[A1] = [A1] + UneSec
Application.OnTime Now + UneSec, "compte"
Set r = Range("C10:C" & Rows.Count).Find("?*", , xlValues)
If r Is Nothing Then Set r = [C10] 'sécurité
ActiveWindow.ScrollRow = r.Row
End Sub

Fichier joint.

Edit : A5 est initialisée par la macro SelectionChange.

A+

 

[jpz]

Re : Compte à rebours et défilement automatique

Bonsoir,

Merci beaucoup job75, c'est exactement le résultat que je voulais.
Cela fonctionne parfaitement.

Jp

 

[job75]

Re : Compte à rebours et défilement automatique

Re,

Autre solution, après modification des formules en colonne C :

Sub compte()
If Not running Then Exit Sub
[A1] = [A1] + UneSec
Application.OnTime Now + UneSec, "compte"
ActiveWindow.ScrollRow = [C:C].SpecialCells(xlCellTypeFormulas, 2).Count + 10
End Sub

Fichier (2).

Bonne fin de soirée.

 

[job75]

Re : Compte à rebours et défilement automatique

Re,

Notez aussi qu'il est plus simple de remplacer [A1] = [A1] + UneSec par Calculate

A+

 

[job75]

Re : Compte à rebours et défilement automatique

Bonjour jpz, le forum,

Sans colonnes auxiliaires, avec cette formule en C10 à copier vers le bas :

=SI(A$5+SOMME(B$10:B10)<=A$7;"";A$5+SOMME(B10:B$10)-A$7)

Fichier (3).

Bonne journée.

 

[job75]

Re : Compte à rebours et défilement automatique

Re,

Remarquez qu'on peut se passer de la ligne vide (10), fichiers (4) et (4 bis).

A+

 

[job75]

Re : Compte à rebours et défilement automatique

Re,

Et pour finir, sur Excel 2007 et versions suivantes, formule en C10 :

=SIERREUR(EXP(LN(A$5+SOMME(B$10:B10)-A$7));"")

A+

 

[job75]

Re : Compte à rebours et défilement automatique

Re,

Eh non, pas terminé :

Sub compte()
If Not running Then Exit Sub
Calculate
Application.OnTime Now + UneSec, "compte"
ActiveWindow.ScrollRow = Application.CountIf([C:C], "<=0") + 9
End Sub

Format personnalisé en colonne C => hh:mm:ss;;

Fichier (6).

Que de solutions pour ce petit problème

A+