Bonjour ,
Je vient aujourd'hui vous intérroger pour savoir si il est possible de faire une boucle sur des textbox pour étre plus claire
voila se que je voudrait faire : J'ai 40 Textbox :
- 20 qui s'appelle ProduitX(X=valeur de 1 à 20)
- 20 qui s'appelle ContratX(X=valeur de 1 à 20)
je voudrait diminuer le code en fesant une boucle:
Lf = 2
While (Worksheets("Contrat").Cells(Lf, 2).Value <> "")
If (Worksheets("Contrat").Cells(Lf, 2).Value = Fs) Then
ProduitListe.AddItem (Worksheets("Contrat").Cells(Lf, 1).Value)
End If
Lf = Lf + 1
Wend
' Mise en relief des contrat : '
Produit = "Produit" & X & ".text"
Produitc = "Produit" & X & ".color"
Contrat = "Contrat" & X & ".text"
Contratc = "Contrat" & X & ".color"
X = 1
While (X < 20)
If (Produit = ProduitListe.Value) Then
Contrat = "Oui"
Contratc = &H8080FF
Produitc = &H8080FF
End If
X = X + 1
Wend
Bonjour ,
Sur mon userfrom j'ai plussieur colonne Composer de 20 Textbox allant de 1 à 20.
Dans une de c'est colonne les textbox s'appelle
C+un nombre allant de 1 à 20 , dans une autre c'est TP + un nombre allant de 1 à 20.
C'est textbox sont remplit avec une feuille excel,
plutot que d'écrire :
à quoi correspond commande dans tes lignes de code.
La prochaine fois utilise un titre autre que "petite question d'un débutant", pour les autres utilisateurs qui aurait besoin d'aide, il ne risque pas d'en trouver avec ce genre de titre.
Fabien
Vous n’avez pas trouvé la réponse que vous recherchez ?