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