Code à terminer pour Combobox et Textbox

[lanoe]

Bonjour le forum,

J’ai posté, il y a deux jours un message, skoobi, m’a donné une piste. Après des recherches sur le forum, j’ai préféré suivre un autre chemin. Il me reste un bout de code à faire qui ne doit pas être compliquer mais je cale…

1- J’ai des combobox numéroté de 1 à 56 je souhaite que leurs contenus se « colle » en colonne D (D5 à D61)
2- Idem pour les Textbox mais en colonne E

Merci à vous
lanoe

 

[RENAUDER]

Re : Code à terminer pour Combobox et Textbox

Bonjour,
Tu peux faire ceci à condition que les noms de tes Combobox et TextBox soit bien numérotées de 1 à 56 en, partant de la gauche vers la droite, puis de haut en bas.

 For I = 1 To 56
    Cells(4 + I, 4).Value = Controls("ComboBox" & I).Value
    Cells(5 + I, 4).Value = Controls("TextBox" & I).Value
Next I

 

[lanoe]

Re : Code à terminer pour Combobox et Textbox

Re,

Cela fonctionne. Merci pour ton conseil.
Une autre question: comment faire pour qu'a l'ouverture du userform les Combo et textbox reprennent les valeurs des colonnes D et E?
idem pour les textbox nommé T1 à T8 de la colonne B 4 à b11
Je pensais à:
Private Sub UserForm_Initialize()
For Y = 1 To 56
Controls("ComboBox" & Y).Caption = Sheets("Produits").Range("d4:d60").Cells(Y, 1) & ""
Next Y

mais je dois avoir un probleme.
lanoe

 

[RENAUDER]

Re : Code à terminer pour Combobox et Textbox

Bonjour,

    For I = 1 To 56
        Controls("ComboBox" & I).Text = Cells(I + 4, 4).Value
    Next I
    For I = 1 To 56
        Controls("TextBox" & I).Text = Cells(I + 4, 5).Value
    Next I

 

[lanoe]

Re : Code à terminer pour Combobox et Textbox

Re,

J'ai un probleme, à chaque fois que j'ouvre mon userform, il décale les valeurs de la colonne B????

lanoe

 

[RENAUDER]

Re : Code à terminer pour Combobox et Textbox

Bonjour,
J'espère que ça ira

 

[Bebere]

Re : Code à terminer pour Combobox et Textbox

Bonsoir Ianoe,Renauder
une autre proposition avec module de classe
à bientôt

 

[Bebere]

Re : Code à terminer pour Combobox et Textbox

Bonsoir Ianoe,Renauder
effectivement,il y avait une erreur
à bientôt

 

[Bebere]

Re : Code à terminer pour Combobox et Textbox

Bonsoir Ianoe,Renauder
si erreur,précise ou
nouvel essai
à bientôt

 

[lanoe]

Re : Code à terminer pour Combobox et Textbox

Bonjour à tous,

Merci à RENAUDER et Bebere. Pour Bebere le dernier fichier fonctionne.

Une question: Comment faire pour que lorsque je change une date au niveau des "lots" (dans les textbox "T1 à T8") cela se répercute automatiquement dans les textbox du dessous dont les combobox correspondent au lot ?

Ex: si je modifie lots 3 que l'ensemble des textbox dont le combobox à "lots3" changent de date?

Pas trés claire... j'espères que vous comprendrez avec le fichier (le dernier de Bebere ou celui de Renauder).

merci d'avance
lanoe

 

[Bebere]

Re : Code à terminer pour Combobox et Textbox

bonjour Ianoe,Renauder
voir grtbo(groupe textbox t1 à t8)
si tu changes une date les 56 combobox et les textbox concernées par le choix du lot sont mise à jour
à bientôt

 

[lanoe]

Re : Code à terminer pour Combobox et Textbox

Bonjour,

Je n'ai pas cherché à comprendre mais cela fonctionne super bien.

merci à vous renauder et bebere


lanoe