Userform code pour 2 ComboBox

[J-c]

Bonsoir à tous

Je débute, et j’utilise vos différents exemples pour comprendre le fonctionnement des Userform.
Dans l’exemple que je joint, Je voudrais rajouté une ComboBox, (N°2) qui devrait faire référence a une liste placé Colonne B Feuil2,
J’ais donc fait un bricolage, 🙁 et là l’orque l’on vois le résultat ou La ! La ! C’est du bricolage 😱
Au premier essai tout est ok 🙂 mais ensuite bof 😡 car la première liste (Colonne A Feuil2) est remplacé par la seconde liste.
- Pouvez-vous m’expliquer comment modifier le code ?
-Et pouvez vous me dire comment puis je rappeler une des lignes de la Feuil3 pour en modifier une partie du contenus (en utilisant une Userform)

Merci Cdlt J-C

 

[ledzepfred]

Re : Userform code pour 2 ComboBox

bonjour,

jc, pour du bricolage c'est plutot pas mal, il y avait juste une erreur dans la procédure Userform_Terminate, il fallait faire référence à la colonne 2 et non 1 (en rouge la correction)

Private Sub UserForm_Terminate()
If ComboBox1.ListCount = 0 Then Exit Sub
With Sheets("Feuil2")
    For i = 0 To ComboBox1.ListCount - 1
        .Cells(i + 1, 1) = ComboBox1.List(i)
    Next i
End With
If ComboBox2.ListCount = 0 Then Exit Sub
With Sheets("Feuil2")
    For i = 0 To ComboBox2.ListCount - 1
        .Cells(i + 1, [COLOR="Red"]2[/COLOR]) = ComboBox2.List(i)
    Next i
End With
End Sub

Pour ta seconde question, expliques plus précisement ce que tu veux faire

A+

 

[J-c]

Re : Userform code pour 2 ComboBox

Bonsoir à tous

Yes !! 🙂Merci Letzepfred😉

Pour la seconde question, je m'explique:
Les infos recueillis dans Userfom sont envoyé sur la Feuil3, mais si je m’aperçois que j’ais oublié une info, ou si je veux en modifier une comment dois-je faire.
Il faudrait peut être que je créer une nouvelle Userform pour faire les modif

Merci Cdlt J-C

 

[ledzepfred]

Re : Userform code pour 2 ComboBox

re...

pour éviter un oubli de saisie, tu peux ajouter des conditions dans le code du bouton valider choix comme ceci

Private Sub OK_Click()
Dim Ligne As Long
If ComboBox1 = "" Then MsgBox ("Merci de renseigner la marque"): Exit Sub
If ComboBox2 = "" Then MsgBox ("Merci de renseigner le modèle"): Exit Sub
If TextBox1 = "" Then MsgBox ("Merci de renseigner le nom"): Exit Sub
If TextBox2 = "" Then MsgBox ("Merci de renseigner le prénom"): Exit Sub
If TextBox3 = "" Then MsgBox ("Merci de renseigner le n° de place"): Exit Sub
With Sheets("Feuil3")
....

Pour les erreurs de saisie, sachant qu'il n'y a que 5 champs à renseigner, y a pas de quoi casser 3 pattes à un canard, créer un userform juste pour ça me semble lourd, si tu avais 40 textbox, je comprendrais mais là non par contre tu peux faire apparaitre un message demandant à l'utilisateur de confirmer la validation comme ceci :

Private Sub OK_Click()
Dim Ligne As Long, reponse As Variant
If ComboBox1 = "" Then MsgBox ("Merci de renseigner la marque"): Exit Sub
If ComboBox2 = "" Then MsgBox ("Merci de renseigner le modèle"): Exit Sub
If TextBox1 = "" Then MsgBox ("Merci de renseigner le nom"): Exit Sub
If TextBox2 = "" Then MsgBox ("Merci de renseigner le prénom"): Exit Sub
If TextBox3 = "" Then MsgBox ("Merci de renseigner le n° de place"): Exit Sub
reponse = MsgBox("Etes-vous sur des informations saisies?", vbYesNo, "Confirmation")
If reponse = vbNo Then Exit Sub
With Sheets("Feuil3")
....

A+

a+

 

[J-c]

Re : Userform code pour 2 ComboBox

Bonjour à tous

Merci pour toutes ces infos, je vais les mettre en applications, mais cet exemple me sert de brouillon pour un projet beaucoup plus important qui comportera plus de champs, et je voudrais pouvoir rappeler une ligne de la Feuil3 et y apporter des modif ou la compléter le cas echéant

Encore Merci ! pour ta réponse
Cdlt J-C