Private Sub TextBox1_Change () Dim Ligne As Long Ligne= Me.ComboBox1.ListIndex + 2 If Userform1.TextBox1 <>"" Then Cells (Ligne, 16).Value= Val (Userform1.TextBox1 ) End If End Sub
Set toto = Range("A3")
TextBox3.ControlSource = "Feuil1!" & toto.Address
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question