Bonsoir,

Je charge le contenu d'une cellule dans trois textbox différents avec ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim i As Integer
    Dim a() As String
    Dim z As Integer
 
        z = 0
    For i = 1 To 3
        z = z + 1
    If ActiveCell = "" Then
    Else
    a = Split(ActiveCell.Value, ";")
    Me.Controls("Textbox" & i) = a(z - 1)
    End If
    Next i
Problème : je n'arrive pas à faire l'inverser (avec boucle) c'est à dire envoyer mes trois textbox vers une cellule où chaque contenu de textbox est séparé par un ";".

Une solution ?

Merci