Discussion :

[kaboche]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ZebreLoup]

Tu peux boucler sur les contrôles de la feuille

[kaboche]

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

[Didier Gonard]

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

[kaboche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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

[kaboche]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ZebreLoup]

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.

[Didier Gonard]

bonjour,

l'équivalent de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Value

c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.Value

?

.

[kaboche]

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

[ZebreLoup]

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

[Didier Gonard]

Bonjour,

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

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