Alimenter TextBox avec Array Range Discontinue

[Regueiro]

Bonjour à tous
Dans mon USF J'ai 3 TextBox.
J'aimerais les alimenter avec les valeurs de 3 cellules Discontinues
Voici mon Code :

Private Sub UserForm_Initialize()
Dim I As Integer
Dim B As Variant
With Worksheets("BASE")
Tablo = Array([B2], [B4], [B6])
    For I = 1 To 3
    For A = LBound(Tablo) To UBound(Tablo)
        Me.Controls("TexTBox" & I) = Tablo(A)
        Me.Controls("TextBox" & I).Value = Format(Me.Controls("Textbox" & I).Value, "00#.## %")
    Next A
    Next I
End With
End Sub

Malheureusement les 3 TextBox prennent la Valeur de la dernière Cellule [B6]
Merci de Votre Aide

 

[CHALET53]

Re : Alimenter TextBox avec Array Range Discontinue

Bonjour,

Comme ceci :

Private Sub UserForm_Initialize()
Dim I As Integer
Dim B As Variant
With Worksheets("Feuil1")
Tablo = Array([B2], [B4], [B6])
I = 0
For A = LBound(Tablo) To UBound(Tablo)
I = I + 1
Me.Controls("TexTBox" & I) = Tablo(A)
Me.Controls("TextBox" & I).Value = Format(Me.Controls("Textbox" & I).Value, "00#.## %")
Next A
End With
End Sub

 

[Regueiro]

Re : Alimenter TextBox avec Array Range Discontinue

Re
Merci Chalet c'est Parfait
En fait j'essais de trouver une parade pour la discusssion de ILINO
Voir Lien ci-dessous :

https://www.excel-downloads.com/threads/derreur-dexaction-13-au-niveau-userform.219396/

Ou il doit alimenter plusieurs Textbox

Merci Encore.