Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Je n'arrive pas à mettre à jour en temps réel la valeur de mon Textbox3. Celui-ci est sensé récupéré la valeur de G3, valeur qui, elle, se met à jour en fonction de cases cochées.
une proposition en PJ
1) sortir de l'initialize, la partie qui met à jour le textbox==> déplacé dans la macro "MajDuréeSet"
2) dans l'évènement _calculate de la feuille, appel à cette macro
==> je ne sais pas si c'est la meilleure solution, mais de ce que j'ai vu, ca fonctionne (que le formulaire soit lancé ou pas)
une proposition en PJ
1) sortir de l'initialize, la partie qui met à jour le textbox==> déplacé dans la macro "MajDuréeSet"
2) dans l'évènement _calculate de la feuille, appel à cette macro
==> je ne sais pas si c'est la meilleure solution, mais de ce que j'ai vu, ca fonctionne (que le formulaire soit lancé ou pas)
re
ou tu gère tout dans le userform
et tu fais plus simple
je te montre le debut du code de ton userform
VB:
Option Explicit
Dim StartTime As Double
Dim Running As Boolean
Dim PauseTime As Double
Public WithEvents F As Worksheet
Private Sub F_Calculate()
With UserForm1.Controls("TextBox3")
If [g1].Value = 0 Then .Value = "00:00:00" Else .Value = CDate([g1].Value)
End With
End Sub
Private Sub UserForm_Activate(): Set UserForm1.F = ActiveSheet: End Sub
Private Sub UserForm_Initialize()
' Configuration initiale du chronomètre
'blablabla
'blablabla
'blablabla'
en gros tu substitue l'event de la feuille dans le userform
Terminé
re
ou tu gère tout dans le userform
et tu fais plus simple
je te montre le debut du code de ton userform
VB:
Option Explicit
Dim StartTime As Double
Dim Running As Boolean
Dim PauseTime As Double
Public WithEvents F As Worksheet
Private Sub F_Calculate()
With UserForm1.Controls("TextBox3")
If [g1].Value = 0 Then .Value = "00:00:00" Else .Value = CDate([g1].Value)
End With
End Sub
Private Sub UserForm_Activate(): Set UserForm1.F = ActiveSheet: End Sub
Private Sub UserForm_Initialize()
' Configuration initiale du chronomètre
'blablabla
'blablabla
'blablabla'
en gros tu substitue l'event de la feuille dans le userform
Terminé
Autre chose
suis pas fan des Cases à cocher
1) c'est chiant à ajouter (la preuve ton code pour la créer, la placer et la lier)
2) ca alourdit la taille du fichier (avec, ton fichier fait 450Ko, sans.. il ne fait plus que 65Ko)
je préfère passer par des windings
ET puisque tu as une Table Structurée...
Autre chose
suis pas fan des Cases à cocher
1) c'est chiant à ajouter (la preuve ton code pour la créer, la placer et la lier)
2) ca alourdit la taille du fichier (avec, ton fichier fait 450Ko, sans.. il ne fait plus que 65Ko)
je préfère passer par des windings
ET puisque tu as une Table Structurée...
- 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