Résolue - Transferer des textes de cellules de feuilles dans un textbox d'Userform.

[sasjm37]

Bonjour,
La question est dans l'intitulé, sinon voir le fichier joint.
Merci de votre aide.

 

[Pierrot93]

Re : Transferer des textes de cellules de feuilles dans un textbox ou un label d'User

Bonjour,

essaye ceci A placer dans le module de l'userform

Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 And CheckBox2 Then TextBox1 = Range("B7") & vbLf & Range("C8") & vbLf & Range("D9")
End Sub
Private Sub CheckBox2_Click()
If CheckBox1 And CheckBox2 Then TextBox1 = Range("B7") & vbLf & Range("C8") & vbLf & Range("D9")
End Sub

Bon après midi
@+

 

[sasjm37]

Re : Transferer des textes de cellules de feuilles dans un textbox ou un label d'User

Bonjour Pierrot93,
Je prends seulement connaissance de ton message, j'ai adapté ton code comme suit :

Private Sub CheckBox2_Click()
If Userform1.CheckBox1 And Userform1.CheckBox2 Then TextBox1 = Range("B7") & vbLf & Range("C8") & vbLf & Range("D9")
End Sub.

J'ai bien trouvé une solution "TextBox1 = Sheets("UN").[$b$7].Text & " " & Sheets("UN").[$c$8].Text & Chr(10) & Sheets("UN").[$d$9].Text".

Je vais noter la question comme "Résolue", mais je profite pour te poser une nouvelle question.
l'idéal serait de comprendre comment afficher dans un userform une zone de texte intégrer dans une feuille de calcul. As-tu une idée ?
Merci de ton aide.
Cordialement,
SASJM37

 

[Pierrot93]

Re : Transferer des textes de cellules de feuilles dans un textbox ou un label d'User

Bonjour,

essaye peut être ainsi, non testé :

UserForm1.textbox1 = feuil1.textbox1

bon après midi
@+

 

[sasjm37]

Re : Transferer des textes de cellules de feuilles dans un textbox ou un label d'User

Non, cela ne fonctionne pas, j'ai même testé le nom d'une plage de cellule... Je vais lancer une nouvelle discussion.
Merci
Bon après midi également,
A+