XL 2016 Detecter passage à la ligne VBA

[paskikic]

Bonsoir, j'aurais besoin des lumières des XLnautes

comment puis récupérer mes valeurs d'une cellule en multi ligne
en clair je remplis ma cellule avec ActiveCell.Value = TextBox1 & vbCrLf & ComboBox1 & vbCrLf & TextBox2
de temps a autres il faut que je modifie ma cellule( quand j ai besoin je double clic et ouvre un formulaire) et je souhaite recuperer mes valeurs dans les differentes textbox et combobox.


merci a vous

 

[Staple1600]

Bonsoir @paskikic ,le fil

En utilisant Split avec comme séparateur vbCrLf

 

[Staple1600]

Re

Voici un petit exemple explicatif
1) lancer d'abord la macro Pour_Test (sur une feuille vierge)
2) Puis lancer plusieurs fois de suite, la macro Essai_Split

Sub Essai_Split()
tt = Split([A1].Text, vbCrLf)
Randomize
x = Application.RandBetween(0, 12)
MsgBox tt(x)
End Sub
Sub Pour_Test()
Const x As String = "Staple_"
For i = 1 To 13
s = s & x & i & vbCrLf
Next
Cells(1).Value = s
End Sub

 

[paskikic]

merci a vous deux, cest une piste je cherche avec vos reponses,

en fait sur un formulaire jai textbox1 la tournee, textbox 2 la place et en combobox1 le nom.

Tournée 1 place 12 Serge

et en faisant un double clic je souhaite que sur mon formulaire en textbox1 je retrouve: Tournée 1
, textbox 2 place 12 et en combobox1 Serge.

jai essayer ce type de code mais pas de resultat

tableau = Split(ActiveCell.Value, vbCrLf)
'
' TextBox2 = tableau(0)
' TextBox1 = tableau(1)
' ComboBox1 = tableau(2) '

merci

 

[Staple1600]

RE

merci a vous deux, cest une piste je cherche avec vos reponses,

Selon moi Staple1600 et Staple1600 ne font qu'un

Moi je me suis borné à prendre le descriptif du 1er message

en clair je remplis ma cellule avec ActiveCell.Value = TextBox1 & vbCrLf & ComboBox1 & vbCrLf & TextBox2