XL 2019 demande d'aide sur code

[Cyr39]

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

 

[vgendron]

Bonjour

que cherches tu à faire exactement?
avec un bout de fichier exemple, ca nous aiderait à t'aider

 

[Hasco]

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

 

[Cyr39]

bonjour, merci pour votre retour. je me suis blessé au boulot ce matin donc je vais avoir du temps pour vous préparer un mini fichier.
encore merci a vous de votre aide.

 

[Hasco]

Bonsoir,

je me suis blessé au boulot ce matin

Pas trop grave, j'espère. Si vous êtes là ce soir, c'est qu'au moins vous avez conservé vos doigts...
Essayez les pistes données puis revenez avec vos difficultés, s'il y en a.

En tous cas
Prenez soin de vous.

 

[Cyr39]

merci pour votre compassion mais non rien de grave blocage du dos. je m'occupe d'alléger le fichier et je vous le mettrez en pièce jointe.
merci a vous tous pour votre aide.

 

[Etoto]

Bonjour,

Comme astuce pour alléger un fichier, copies-le et supprime les images et les feuilles qui nous sont inutiles cela libérera pas mal de place déjà.

Cordialement

 

[Cyr39]

bonsoir a vous tous,
je ferme se fil car finalement je vais laisser le code comme il est avec timer la macro met 4 sec c'est acceptable
merci merci pour votre aides et le temps que vous mettez à notre disposition .