Comprendre une ligne de code

Salut le forum,

je me demandais si j'avais le droit d'afficher un lien qui amène vers un autre site d'Excel puisque j'ai une question sur une procédure qu'on retrouve là.

Merci pour cette information.

Bonjour,

Je pense que s'il s'agit d'un autre forum de discussion, le plus simple serait que tu poses ta question à l'auteur de la procédure.

Si cela est impossible (auteur inconnu par exemple), évidemment que nous pouvons essayer de t'aider. Pas besoin du lien, mais un copié-collé de la procédure ou mieux le fichier correspondant s'il existe.

Amicalement

Nad

D'accord!

Alors voici une macro qui fait tourner l'heure dans la barre d'affichage d'un USF.

Sub JeFaisTourner()

UserForm1.Caption = Format(Now, "dddd dd mmmm yyyy ") & Time

Application.OnTime Now + TimeValue("00:00:01"), "JeFaisTourner"

UserForm1.Repaint

DoEvents

End Sub

Et on l'appelle ainsi :

Private Sub UserForm_Initialize()

JeFaisTourner

End Sub

Sa déclaration :

Public Quitter as boolean

Et là, l'auteur dit : Tu conditionnes l'exécution de la macro en testant le boolean

If not Quitter then Application.OnTime Now + TimeValue("00:00:01"), "JeFaisTourner"

et tu ajoutes cette ligne avant la fermeture de l'userform

Quitter = True

Alors deux questions :

1- À quoi sert la ligne userform1.repaint?

2- Où dois-je mettre la ligne IF NOT QUITTER THEN...?

Merci pour cette aide.

Salut le forum

Eric un fichier, qui fait ce que tu désires faire.

Le fichier : DateHeureCaptionUSF.xls

Mytå

Tout-à-fait ce que je désire.

Ce n'était qu'un petit caprice maintenant qu'il ne me reste qu'un ou deux détails à régler avant de termine mon fichier.

Merci beaucoup Myta.