Transferer mes données de feuille de calcul vers textbox les

Bonjour,

je viens de m'inscrire à ce forum et j'avoue que les interventions que j'ai lues sont d'une importance inestimable pour ma formation à excel vba. Je saurai pouvoir compter sur vous pour m'aider à avancer.

Je veux transferer des données d'une feuille de calcul vers un userform qui comporte 390 textbox (13 colonnes (intitulé +12 mois de données) de 30).

les données proviennent de 13 colonnes d'une feuille de calcul

Bonjour. Bienvenue sur le Forum

pour le début

TextBox1.Value = Worksheets("Sheet1").Range("A1").value

Pour la suite, on recrée le fichier avec les 390 Textbox et on devinne les colonnes concernées, puis ....

Cordialement

pour être précis,

dans le fichier en attache, je veux remplir le userform RECAP avec les données de la feuille recap du classeur,

notamment :

B4:B33 dans textbox1 à textbox30

C4:C33 dans textbox31 à textbox60

D4:D33 dans textbox61 à textbox90

merci d'avance

Bonjour

Dans le code de ton Userform RECAP

Private Sub UserForm_Activate()
ShowWindow hwnd, SW_MAXIMIZE
Dim a, b, c As Integer   
   For a = 1 To 30
    Me.Controls("TextBox" & a) = Sheets("recap").Cells(a + 3, 2)
    Next a    
    For b = 1 To 30
    Me.Controls("textbox" & b + 30) = Sheets("recap").Cells(b + 3, 3)
    Next b 
    For c = 1 To 30
    Me.Controls("textbox" & c + 60) = Sheets("recap").Cells(c + 3, 4)
    Next c
    End Sub

Seulement, tu as un décalage d'alignement de tes TextBox, la colonne 3 commence au TextBox62 au lieu de 61.

Soit tu rectifies dans ton tableau de TextBox, soit tu modifies l'instruction

Me.Controls("textbox" & c + 60) = Sheets("recap").Cells(c + 3, 4)

par

Me.Controls("textbox" & c + 61) = Sheets("recap").Cells(c + 3, 4)

Cordialement

Bien vu! ça marche!

Merci infiniment!!!