Petite question d'un débutant [Résolu]

Signaler
-
 EnguerrandP -
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


Merci

5 réponses


Bonjour ,
J'ai trouver une solution :

 For i = 1 To 20
     Commande.Controls("TP" & i).Text = Sheets(Fs).Cells(1 + i, 1)
 Next i
Bonjour,
il faudrait que tu sois plus claire sur ce que tu veux comme résultat et aussi dans ton code...



Fabien

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 :
TP1.Text = Worksheets("X").Cells(1,1).Value
TP2.Text = Worksheets("X").Cells(2,1).Value
.
.
.
TP20.Text = Worksheets("X").Cells(20,1).Value


Je voudrait faire une boucle for mais elle ne fonctione pas:
      For i = 1 To 20
        Controls("TP" & i) = Worksheets("X").Cells(Lp, 1).Value
        Lp = Lp + 1
      Next i


Merci
à 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

Bonjour ,
Je m'excuse pour le titre de ma question mais je ne savait pas comment la nommer.
pour répondre a ta question
à quoi correspond commande dans tes lignes de code.

Commande correspond au nom de mon userform
Voila bonne journnée et merci de votre attention.