XL 2016 Horloge dans feuille de calcul Excel

ReneDav14000 · 26 Septembre 2022

Bonjour à tous et merci de m'accueillir sur votre site.
Je ne suis pas un expert en Vba, mais je me débrouille un peu.
J'ai 61ans (bientôt la retraite) et j'exerce dans la fonction publique territoriale.
Je développe (j'essaie plutôt) des applications Excel pour améliorer les routines de travail.

J'ai donc un sujet à vous soumettre :
Avec l'aide de différents tuto, j'ai une horloge analogique que je souhaite insérer dans une feuille de calcul et que l'horloge se mette en route dès l'ouverture du fichier.
La feuille "Accueil" où se trouve l'horloge est la feuille qui sera affichée en première.
Pour le moment se met en route en cliquant sur un bouton (feuille "données horloge").
Merci par avance pour votre aide

patricktoulon · 4 Octobre 2022

re
bubleWaterWatch

patricktoulon · 6 Octobre 2022

bon ben donne le code de déclaration que je t'ai mis voir
car je crois que les modeles qui ont suivi j'ai pas corrigé
pour en etre sur toi le tien fonctionne donc tout est bon

ReneDav14000 · 6 Octobre 2022

Là chez moi c'est LongPtr

VB:

ByVal lpTimerFunc As Long) As Long
'ByVal lpTimerFunc As LongPtr' 1ère ligne en-dessous de VB7

patricktoulon · 6 Octobre 2022

oui c'est bon l'addressof doit être pointeur
maintenant ça doit fonctionner pour Lionel

Usine à gaz · 6 Octobre 2022

Bonsoir Patrick
Bonsoir ReneDav14000

Nickel ça fonctionne parfaitement.
Merci d'un lio heureux... Superbe ta Pendule Patrick
lionel

Phil69970 · 6 Octobre 2022

Re

Lionel poste ton fichier STP que je l'essaye

Merci

@Phil69970

Usine à gaz · 6 Octobre 2022

Bonsoir Phil69970

Et voilou en pièce jointe.
lionel

Phil69970 · 6 Octobre 2022

Merci bien Lionel

Patrick avec le fichier de Lionel
Et c'est quoi la modif que tu as faite ?

J'ai un message d'erreur ici

Je fais F5 et le code continue et j'obtiens ceci...

@Phil69970

Usine à gaz · 6 Octobre 2022

Re-Phil69970

Modif ci -dessous :

VB:

Option Explicit
#If VBA7 Then
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

"ByVal hwnd As Long" modifié en "ByVal hwnd As LongPtr"

Je n'avais pas l'erreur que tu signales.
lionel

Staple1600 · 6 Octobre 2022

@Usine à gaz
Le VBA ça ne fait pas que s'utiliser, il faut aussi chercher à comprendre...

Enrichi (BBcode):

Option Explicit
#If VBA7 Then ' donc 64 bits
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else 'sinon 32 bits !!!
    Private Declare  Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Private Declare  Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Le PtrSafe ne s'ajoute que dans la partie dédiée au 64 bits
C'est d'ailleurs le message d'erreur explicite qui s'affiche dans Excel.

patricktoulon · 7 Octobre 2022

re
@Staple1600

VB:

#If VBA7 Then ' donc 64 bits

pas d'accords
je tourne sur 2013 pro 32 bits

VB:

#If VBA7 Then
    #If Win64 Then
        Const vbaversion = "vba7 64 bit"
    #Else
        Const vbaversion = "vba7 32 bit"
    #End If
#Else
    Const vbaversion = "vba6 32 bit"
#End If

Sub test()
    MsgBox vbaversion
End Sub

Usine à gaz · 7 Octobre 2022

Staple1600 à dit:

@Usine à gaz
Le VBA ça ne fait pas que s'utiliser, il faut aussi chercher à comprendre...

Enrichi (BBcode):

Option Explicit
#If VBA7 Then ' donc 64 bits
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else 'sinon 32 bits !!!
    Private Declare  Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Private Declare  Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Le PtrSafe ne s'ajoute que dans la partie dédiée au 64 bits
C'est d'ailleurs le message d'erreur explicite qui s'affiche dans Excel.

Bonjour JM
"Le VBA ça ne fait pas que s'utiliser, il faut aussi chercher à comprendre...:"
Pour moi qui n'est pas formé au VBA et qui ne parle pas un mot d'anglais, c'est cause perdue au moins pour l'instant.
Mon travail ne me laisse pas assez de temps pour me former.
Bien sûr, j'essaie de comprendre en testant et en adaptant les codes qui me sont donnés en réponses à mes fils et aussi ceux que je remarques sur d'autres fils... ça me prend déjà pas mal de temps.
Et pourtant, j'adore ça.... si la vie m'en laisse le temps quand ce sera possible, je m'y "collerai".
lionel

patricktoulon · 7 Octobre 2022

Phil69970 à dit:
Merci bien Lionel

Patrick avec le fichier de Lionel
Et c'est quoi la modif que tu as faite ?

J'ai un message d'erreur ici
Regarde la pièce jointe 1151578

Regarde la pièce jointe 1151577
Je fais F5 et le code continue et j'obtiens ceci...

Regarde la pièce jointe 1151579

@Phil69970

@Phil69970 c'est bizarre en effet et là je pige pas, je te l'avoue
ca donne l'impression que l'aiguille des minutes c'est doublée pour faire l'aiguille des secondes

ReneDav14000 · 7 Octobre 2022

Usine à gaz à dit:
Bonsoir Phil69970
Et voilou en pièce jointe.
lionel

Chez moi l'horloge fonctionne très bien

Staple1600 · 7 Octobre 2022

Re

Précisions
@patricktoulon
Sauf erreur
Cette syntaxe a cette fonction, non ?

VB:

#If VBA7 Then 'déclarations des API pour 64 bits
    Private Declare PtrSafe ....
    Private Declare PtrSafeF...
#Else ' déclarations 32 bits

Donc logiquement on ne doit pas y trouver de PtrSafe ni de LongPrt dans la partie 32 bits , non ?
(comme c'est le cas dans le message#173)

D'où la correction dans le message 174#

Usine à Gaz à dit:
Mon travail ne me laisse pas assez de temps pour me former.

Excuse un peu facile
Le forum n'est pas peuplé que de retraités
Moi aussi, je bosse.
Suis inscrit sur XLD depuis 2005, donc chaque jour de connexion est un peu d'autoformation parce que j'ai mis les mains dans le cambouis.

patricktoulon · 7 Octobre 2022

@Staple1600

Donc logiquement on ne doit pas y trouver de PtrSafe ni de LongPrt dans la partie 32 bits , non ?

re
si dans la partie vb 7 32 bits
car vba 7 est dans nos bécanes depuis 2013 32 ou 64 bits
il se trouve que certaines api sur 2013 32 pro, les déclaration en vb7 sont nécessaires donc ptrsafe mais pas longptr
certaines autres api chez moi fonctionnent sous les 3 modes de déclaration

XL 2016 Horloge dans feuille de calcul Excel

ReneDav14000

XLDnaute Occasionnel

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires