Impossible de réaliser plusieur boucle sur des objets
Bonsoir à tous,
je vous sollicite car je ne trouve pas la solution, j'ai peux d'expérience avec les boucles..
j'ai une listbox1 qui renvois un nom a un textbox999. lors du parametre "change()" du textbox999 je souhaiterai qu'une recherche soit faite sur la feuille "Fiches Techniques" dont les nom sont en colonne B6:B1006 pour trouver la ligne correspondant a la valeur du textbox999. puis remplir les textbox41 à 56 avec un offset de 4 à 16
et ensuite que les combobox1 à 24 soit rempli en recherchant la valeur du textbox41 à 56 sur la feuille "tarif" en colonne $C6:$C1000 avec un offset de 1 colonne.
je joint le code que j'essai de bidouiller depuis des heures sans résultat.
Dim Trouve As Range
Dim Colonne As Long
Dim NumBox As Byte
Dim Tbox As Byte
Dim Col As Byte
With Sheets("Tarif")
For Tbox = 41 To 64
For NumBox = 1 To 24
For Col = 1 To 17
Set Trouve = Sheets("Fiches Techniques").Range("B$6:$B$1006").Cells.Find(Me.Controls("TextBox" & Tbox), LookAt:=xlPart)
Colonne = Trouve.Row
Me.Controls("ComboBox" & NumBox) = .Cells(Colonne, 1, Col)
Next NumBox
Next Tbox
Next Col
End With
Set Trouve = Nothing
en espérant avoir été le plus clair possible. merci d'avance pour votre aide .
Bonjour
Tu devrais joindre ton fichier complet....
Bye !
Bonjour
Là, il y a quelque chose qui ne va pas:
Me.Controls("ComboBox" & NumBox) = .Cells(Colonne, 1, Col)
la syntaxe devrait ressembler à ceci:
cells(Ligne, colonne)
Cdlt
bonjour a vous.
gmb : le fichier est trop volumineux et comporte des données sensibles désolé.