Compte à rebours et défilement automatique

  • Initiateur de la discussion Initiateur de la discussion jpz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jpz

XLDnaute Nouveau
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
 

Pièces jointes

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

Pièces jointes

Re : Compte à rebours et défilement automatique

Bonsoir à tous,

Code:
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+
 

Pièces jointes

Dernière édition:
Re : Compte à rebours et défilement automatique

Re,

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

Code:
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.
 

Pièces jointes

Re : Compte à rebours et défilement automatique

Bonjour jpz, le forum,

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

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

Bonne journée.
 

Pièces jointes

Re : Compte à rebours et défilement automatique

Re,

Eh non, pas terminé :

Code:
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+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
141
Réponses
15
Affichages
1 K
Réponses
7
Affichages
216
Réponses
10
Affichages
163
Réponses
7
Affichages
180
Réponses
4
Affichages
81
Retour