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

Question

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

ucfoutu · Answer

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

ucfoutu · Answer

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 IntegerPrivate Sub CommandButton2_Click() 'Quitter  Unload MeEnd SubPrivate Sub ComboBox1_Change()  TextBox1.ControlSource = "B" & ComboBox1.List(ComboBox1.ListIndex) + premlig - 1  TextBox2.ControlSource = "C" & ComboBox1.List(ComboBox1.ListIndex) + premlig - 1End SubPrivate Sub CommandButton1_Click() For i = 1 To 18   ActiveSheet.Range(Chr(67 + i) & ComboBox1.ListIndex + premlig) = Controls("CheckBox" & i).Value NextEnd SubPrivate 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" & derligEnd 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

ucfoutu · Answer

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 ?

Remplir des TextBox en fonction d'une ComboBox

3 réponses

Votre réponse

Discussions similaires