RESOLUS MERCI heures dans useforme svp

[jmcr]

bonsoir le forum
voila j essaye de mettre dans un useforme l'heure dans un label 23 voila le code que j ai dans le label
Private Sub Label23_Click()
Label23 = Format(Now, "hh:nn:ss")
End Sub
rien de passe il marque juste le nom label 23 dans useforme quand je le lance ou est bien mon erreur svp
avec tout ma gratitude

 

[cathodique]

Bonjour Jmcr,
Comme ceci

Private Sub UserForm_Initialize()
Label23.Caption = Format(Now, "hh:nn:ss")
End Sub

 

[jmcr]

merci cathodique cela marche mais il faut que je clique sur le label 23 pour avoir l'heures

 

[cathodique]

Re,

Rajoute .caption à ton label et c'est bon

 

[jmcr]

j ai bien recopier ton code a la virgule prés
et je viens d 'avoir un bug dans mon useforme que j avais pas vus voila son erreur

Sub efface()
Dim i As Integer
For i = 1 To 11
If i <> 5 Then
Me.Controls("textbox" & i) = ""
End If
Next
lbl_nouveau.Visible = False
Cb_race.Value = ""
ligne_1 = 0
ligne_2 = 0
num_natio_1 = ""
num_natio_2 = ""
TextBox2.SetFocus

End Sub
quand j essaie d 'effacé mon useforme avec le boutons pouvez vous me dire pourquoi svp

 

[cathodique]

j ai bien recopier ton code a la virgule prés

Et le résultat?

 

[jmcr]

meme résultat désolé peut tu regarde mon code erreur

 

[phlaurent55]

Bonjour à tous

Dans le format, hh:nn:ss ce serait mal si on remplaçait les "nn" par "mm"

À+
Philippe

 

[Eric C]

Bonsoir le forum
Bonsoir jmcr, cathodique & phlaurent55

Il y a aussi ce code qui fige l'heure à laquelle on appelle l'USF :
Private Sub UserForm_Activate()
Label23 = Time
End Sub
@+ Eric C

 

[grisan29]

bonsoir
pour récupérer l'heure de la machine dans un label voici comment je fait
dans l'userform

    Option Explicit

    Private Sub UserForm_Initialize()
       Userform1_heure
    End Sub

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
       On Error Resume Next
       Application.OnTime EarliestTime:=Userform1_next, Procedure:="Userform1_heure", Schedule:=False
    End Sub

et dans un module

    Option Explicit

    Public Userform1_next As Date
    Const Intervalle = 1    'durée en seconde entre deux rafraichissements de l'horloge

    Public Sub Userform1_heure()
       UserForm1.Label1 = Format(Time, "h:mm:ss")
       Userform1_next = Now() + Intervalle / 24 / 60 / 60
       Application.OnTime Userform1_next, "Userform1_heure"
    End Sub

 

[jmcr]

merci beaucoup grâce a vos lumière cela marche bien mais voila j ai un nouveaux probleme un code fonctionne plus quand je clique sur le bouton effacé de mon useforme voila et toujours au même endroit voila le bug
Sub efface()
Dim I As Integer
For I = 1 To 11
If I <> 5 Then
Me.Controls("textbox" & I) = ""
End If
Next
lbl_nouveau.Visible = False
Cb_race.Value = ""
ligne_1 = 0
ligne_2 = 0
num_natio_1 = ""
num_natio_2 = ""
TextBox2.SetFocus

End Sub j arrive pas a trouvé l erreur ??????

 

[grisan29]

Bonjour
ton code c'est bien, a quelle ligne est le bug et que représente le panneau qui va avec
quand tu survole la ligne incriminée avec ta souris qu'est ce qui s'affiche
nous n'avons pas de boule de Crystal

 

[jmcr]

bosoir le forum ,grisan 29
Sub efface()
Dim I As Integer
For I = 1 To 18
If I <> 5 Then
Me.Controls("textbox" & I) = ""
End If
Next
lbl_nouveau.Visible = False
Cb_race.Value = ""
ligne_1 = 0
ligne_2 = 0
num_natio_1 = ""
num_natio_2 = ""
TextBox2.SetFocus

End Sub

voila la ligne qui bloque elle est en rouge j ai vérifier deux fois les textbox ainsi que les label rien tout mes colonne sont bien placé pour le reste l useforme fonctionne très bien il s'agit juste pour effacé tout l useforme que cela plante
enfin je recherche toujours
amicalement

 

[grisan29]

bonsoir
est ce que tes textbox sont sont nommés? sinon c'est moi qui bug

 

[jmcr]

merci grisan erreur vient de changer souligner en bleu cette ligne
lbl_nouveau.Visible = False