Bonjour a tous.
et merci
je souhaite mettre en œuvre se code mais sans réussite.
Dim c As Range
Dim firstAddress As String
Dim NumCombo As Variant
Dim NumTextBox As Variant
Dim c As Range
Dim firstAddress As String
With Worksheets("Tarifs").Range("C4:C3004")
For NumTextBox = 57 To 64
For NumCombo = 17 To 24
Set c = .Find("TextBox" & NumTextBox, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Me.Controls("ComboBox" & NumCombo) = c.Offset(0, 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
Next NumTextBox
Next NumCombo
Set c = Nothing
sincèrement merci pour votre temps et vos compétences
et merci
je souhaite mettre en œuvre se code mais sans réussite.
Dim c As Range
Dim firstAddress As String
Dim NumCombo As Variant
Dim NumTextBox As Variant
Dim c As Range
Dim firstAddress As String
With Worksheets("Tarifs").Range("C4:C3004")
For NumTextBox = 57 To 64
For NumCombo = 17 To 24
Set c = .Find("TextBox" & NumTextBox, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Me.Controls("ComboBox" & NumCombo) = c.Offset(0, 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
Next NumTextBox
Next NumCombo
Set c = Nothing
sincèrement merci pour votre temps et vos compétences