Remplir des TextBox en fonction d'une ComboBox [Résolu]

Signaler
Messages postés
18
Date d'inscription
vendredi 3 mai 2013
Statut
Membre
Dernière intervention
16 mai 2016
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,
Je voudrais qu'à l'aide de mon UserForm, je puisse lorsque je sélectionne par exemple le "1" , dans la ComboBox les informations se trouvant en cellule "B" et "C", remplissent automatiquement mes TextBox 1 et 2. Et par la suite je voudrai pouvoir insérer de nouvelles lignes toujours avec mes cases à cocher.

Pourriez vous m'aider?

Amicalement,

Jean-Marie

Mon fichier:
http://cjoint.com/?0Bzr2evIHAN

3 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Bonjour,
Je n'ouvre jamais (raisons de sécurité) un classeur à télécharger. Rares sont les imprudents qui courent ce risque.

1) Tu parles d'une combobox où tu "saisis" un "1", d'une part, et, d'autre part, de "cases à cocher".
On s'y perd ===>> explique clairement

2) Si tes textboxes ont leur propriété multiligne = True ==>>
On ajoute une ligne disant par exemple "coucou" ainsi :
TextBox1.SelStart = Len(TextBox1.Text)
TextBox1.SelText = vbCrLf & "coucou"


EDIT : il est d'ailleurs assez probable que, lorsque tu auras parfaitement et très exactement renseigné le point 1), une autre solution "surgira" alors.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Tiens, tu es chanceux.
J'ai eu besoin de mettre en route un autre PC dédié aux téléchargements éventuellement à risque.
J'ai vu tout ton "truc"
Tu te compliques beaucoup la tâche pour une chose que l'on peut faire très simplement !
Regarde (tout y est en très peu de lignes de code) ===>>
 Private derlig As Long, premlig As Integer
Private Sub CommandButton2_Click() 'Quitter
Unload Me
End Sub

Private Sub ComboBox1_Change()
TextBox1.ControlSource = "B" & ComboBox1.List(ComboBox1.ListIndex) + premlig - 1
TextBox2.ControlSource = "C" & ComboBox1.List(ComboBox1.ListIndex) + premlig - 1
End Sub

Private Sub CommandButton1_Click()
For i = 1 To 18
ActiveSheet.Range(Chr(67 + i) & ComboBox1.ListIndex + premlig) = Controls("CheckBox" & i).Value
Next
End Sub

Private Sub UserForm_Initialize()
derlig = Range("A" & Rows.Count).End(xlUp).Row
premlig = 6 ' le numéro de ta 1ère ligne de données
ComboBox1.RowSource = "A" & premlig & ":A" & derlig
End Sub

Lance et tu verras.
Analyse et comprends, ensuite.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Et alors ?
On ne voit pas la suite que tu as donnée à cette discussion, restée pendante dans mes "suivis" !
Si problème résolu, il convien de la libérer par un clic sur le tag RESOLU (au niveau de ton tout-premier message).
Si non résolu ==>> où en es-tu donc ?