Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Detecter passage à la ligne VBA

paskikic

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
VB:
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

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…