[XL-2010] renvoi de plusieurs textbox avec point virgule [Résolu]

[8e8eClo]

Bonsoir,

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

Code :

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

[tedo01]

Bonjour,

Code :

1
2
3
4
5
6
Dim i As Integer
Dim a As String
For i = 1 To 3
    a = a & ";" & Me.Controls("Textbox" & i).Text
Next i
ActiveCell = Mid(a, 2)

[8e8eClo]

merci beaucoup.

Une petite explication pour le

Code :

mid(a,2)

?

Merci

[tedo01]

Re-bonjour,
La fonction Mid permet de sélectionner une partie d'une chaîne de caractères à partir d'une position et sur une longueur données (le paramètre de longueur est optionnel).
Par exemple, Mid("abc", 2) donne "bc" c'est-à-dire depuis la position 2 et sur toute la longueur.

Cette instruction sert à éliminer le point-virgule au début de a. En effet, la boucle concatène les Textbox avec à chaque fois un point-virgule devant.
Si les Textbox contiennent par exemple "A", "B" et "C", le résultat dans a après la boucle sera ";A;B;C".
Mid(a, 2) renverra alors "A;B;C".

[8e8eClo]

Merci !