Bonjour bonjour. 🙂
Etant novice en VBA, je m'en retour ne vers vous our quelques conseils avisés. 😛
Voici mon problème :
_ Je souhaite récupérer les valeurs de cellules dans un UserForm
_ J'aimerais que si ces valeurs changent (et ce sera le cas), elles soient modifiées au même moment dans mon UserForm.
Voici le code actuel :
_ Du UserForm :
_ De ma macro de lancement :
N'étant vraiment pas habitué au VB, je m'y perd pas mal 🙁 ...
J'espère que vous saurez éclairer ma lanterne, pour le moment je fonce dans les murs 😀
Etant novice en VBA, je m'en retour ne vers vous our quelques conseils avisés. 😛
Voici mon problème :
_ Je souhaite récupérer les valeurs de cellules dans un UserForm
_ J'aimerais que si ces valeurs changent (et ce sera le cas), elles soient modifiées au même moment dans mon UserForm.
Voici le code actuel :
_ Du UserForm :
Code:
Private Sub UserForm_Activate()
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Me.StartUpPosition = 3
End Sub
_ De ma macro de lancement :
Code:
Sub Lancer_UserForm()
Dim nbr As Variant
Dim nombre As Variant
nombre = 0
UserForm1.Show
Do Until nombre = 25
nombre = nombre + 1
nbr = nbr + 5
' Go = TimeSerial(Hour(Time), Minute(Time), Second(Time) + Range("Feuil2!G1"))
' Application.OnTime Go, "Lancer_UserForm"
' Range("Feuil2!G2") = Time
' For nombre = 1 To 1000
Range("Feuil3!A1") = nbr
UserForm1.TextBox1.Text = nbr
UserForm1.Repaint
' Next nombre
Loop
End Sub
N'étant vraiment pas habitué au VB, je m'y perd pas mal 🙁 ...
J'espère que vous saurez éclairer ma lanterne, pour le moment je fonce dans les murs 😀