textbox et combobox

Bonjour tout le monde,

J'ai des userform qui contiennent des textbox et des combobox.
J'ai un code pour enregistrer toutes les textbox sur des lignes excel, mais comment puis-je aussi enregistrer mes combobox ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'alerte message box pour confirmer l'action de mettre à jour Dim reponse As Byte reponse = MsgBox("Confirmez-vous la mise à jour des données", vbQuestion + vbYesNo + vbDefaultButton2, "Enregistrement") If reponse = vbNo Then Exit Sub 'pour changer de ligne de code For I = 4 To 154 ' pour changer le colone For J = 1 To 35 'code pour enregistrer dans les cellules If TextBox1.Value = Worksheets("bdouvrages").Cells(I, 1).Value Then Worksheets("bdouvrages").Cells(I, J).Value = MAJFIO.Controls("TextBox" & J).Value Next Next

---

N'y a t il pas un dénominateur commun ? du genre : je veux que tous les controls de l'userform1 s'enregistre ?

Merci de votre aide

Tu peux boucler sur les contrôles de la feuille

merci j'y pensais! mais concrètement, le code s'écrit comment ?

Bonjour,

Tu as tous les exemples de base ici : ;)

I-B. Boucler sur les contrôles contenus dans la Forme

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous raporte des points ;)

Didier

Merci pour les infos, mais concrètement, comment mon code s'articule? Je n'y arrive pas, il doit me manquer qqch !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim reponse As Byte reponse = MsgBox("Confirmez-vous la mise à jour des données", vbQuestion + vbYesNo + vbDefaultButton2, "Enregistrement") If reponse = vbNo Then Exit Sub   'pour changer de ligne de code For I = 4 To 154 ' pour changer le colone For J = 1 To 35 'code pour enregistrer dans les cellules If TextBox1.Value = Worksheets("bdouvrages").Cells(I, 1).Value Then Worksheets("bdouvrages").Cells(I, J).Value = MAJFIO.Controls("TextBox" & J).Value Next Next

---

Merci de votre aide

Bonjour,

pas vraiment clair ce que tu veux, vois ici un exemple concret de scan de controls d'un USF :

http://www.developpez.net/forums/d11...ons-checkboxs/


Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

En fait dans mon userform j'ai des textbox et des combobox. Chacune d'entre elles correspondent à une cellule dans excel. Je voudrais trouver une commande qui permette de ne pas faire de différence entre les textbox et les combobox :

Voila mes lignes de code pour des textbox uniquement. Comment faire pour inclure également des combobox ?

Code:

---

1 2 3 4 5 6 7 8

'pour changer de ligne de code For I = 4 To 154 ' pour changer le colone For J = 1 To 35 'code pour enregistrer dans les cellules If TextBox1.Value = Worksheets("bdouvrages").Cells(I, 1).Value Then Worksheets("bdouvrages").Cells(I, J).Value = MAJFIO.Controls("TextBox" & J).Value Next Next

---

Et si tu appelles tes ComboBox "TextBox253" comme les autres, ça ne marche pas ?
Ce n'est pas très clair ce que tu veux faire. Tu as disons 10 lignes et 10 combobox/textbox et tu veux que si la première ligne correspond à la première combobox, tu copies les autres controles dans les lignes en dessous ?

Explique peut-être plus clairement ce que tu veux faire, peut-être que tu n'es tout simplement pas parti du tout dans la bonne direction.

bonjour,

l'équivalent de :

Code:

---

TextBox1.Value

---

c'est

Code:

---

ComboBox1.Value

---

?

.

Merci ZEBRELOUP !!!
Tu as compris ce que je voulais.
Je ne pensais pas que l'on pouvais renommer une combobox en textbox. Cela marche parfaitement. Merci beaucoup. Je cherchai trop compliqué!
Merci de ton aide

Tu peux les appeler toto1, toto2, toto3... si tu veux. C'est toi qui fixe le nom de tous tes contrôles.
Par contre, ça ne marchera pas toujours car il faut que la propriété que tu récupères soit commune à tous les controles. Il n'y aura pas de value pour un label par exemple

Bonjour,

Citation:

---

Et si tu appelles tes ComboBox "TextBox253" comme les autres

---

Bien vu pour le décryptage de ce que voulais kaboche ;)

Par contre aller nommer une Combobox "TextBoxzz", c'est une abomination :calim2:

C'est la voie à une maintenance impossible, à moins d'une stratégie d'obfuscation, volontaire, c'est à éviter à tout prix !

Par contre employer un nom générique pour nommer les deux = OK genre CotrolaDede01 etc..

Donc pour kaboche, ZebreLoup n'a employé cet exemple précis que pour tenter de concrétiser ton idée, mais ne surtout pas l'employer à la lettre ;)

cordialement,

Didier