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