TextBox

[Pierre]

Bonjour le Forum

Comment écrit-on en vba ctrl+enter pour que le texte mis dans une TextBox par copie d'une cellule soit pris en compte.

Merci d'avance pour vos réponses

Amicalement
Pierre

 

[_Thierry]

Bonjour Pierre, le Forum

Pas vraiment sûr d'avoir compris ton problème...

Imaginos en 'Sheet1' tu as des données de A1 à A10 que tu veux reporter dans une unique TextBox1 avec des Retour Charriot entre chacune des valeurs de ces Dix cellules à l'ouverture du UserForm en mode Run Time...

Private Sub UserForm_Initialize()
Dim i As Byte
Dim WS As Worksheet

Set WS = ThisWorkbook.Worksheets('Sheet1')

    With Me.TextBox1
        .MultiLine = True
            For i = 1 To 10
                Select Case i
                    Case 1 To 9
                        .Value = .Value & WS.Cells(i, 1) & Chr(10)
                    Case 10
                        .Value = .Value & WS.Cells(i, 1)
                End Select
            Next
        .AutoSize = True
    End With
End Sub

Bon Après Midi
@+Thierry

 

[Pierre]

Bonjour Thierry,

C'est bien la réponse à ma question.
Merci pour cette réponse
Amicalement
Pierre