Alimenter TextBox avec Array Range Discontinue

  • Initiateur de la discussion Initiateur de la discussion Regueiro
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Regueiro

XLDnaute Impliqué
Bonjour à tous
Dans mon USF J'ai 3 TextBox.
J'aimerais les alimenter avec les valeurs de 3 cellules Discontinues
Voici mon Code :
PHP:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
3
Affichages
665
Réponses
7
Affichages
251
Réponses
11
Affichages
229
Réponses
8
Affichages
471
Réponses
5
Affichages
183
Retour