XL 2019 demande d'aide sur code

Cyr39

XLDnaute Nouveau
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
 

Hasco

XLDnaute Barbatruc
Bonjour,

Set c = .Find("TextBox" & NumTextBox, LookIn:=xlValues)
On peut déjà constater que cette ligne va chercher le nom du textBox dans la plage de recherche, pas sa valeur.

Set c = .Find(Me.Controls("TextBox" & NumTextBox), Lookin:=xlValues)
Aura plus de chance de trouver la valeur de TextBoxN dans la plage de cellules, en supposant que les textBox soient sur le userForm du module qui contient la macro.

Cordialement
 

Discussions similaires

Haut Bas