valeur txt dans usf

[nono]

Salut le forum,

Je n'arrive pas à faire en sorte que la valeur texte de mes textboxs prennent la valeur qu'il y a dans les cellules A2 à Ax de ma feuill1

Voilà, c'est tout con, comme question mais bon. Simplement une précision : je ne veux pas l'écrire un dur dans le champ "value" de mon textbox car je voudrait que ce soit variable suivant critère !!

Après, j'aurais plus dur, du style : mon premier textbox prend la valeur A2 si j'appuie sur le bouton blanc mais prend la valeur A39 si j'appuie sur le bouton rouge ....

Mais bon, si j'avais déjà une réponse à la première question, ca m'aiderait déjà énormement.

D'avance merci.

A+
Nono

 

[Myta]

Salut nono et le Forum


N'étant pas le spécialiste des Userforms je te donne une solution
pour remplir tes TextBox's


Option Explicit

Private Sub UserForm_initialize()

Dim Control As Object

For Each Control In Ecout.Controls
If Left(Control.Name, 3) = "Nom" Then
Control.Value = Cells(1 + Right(Control.Name, Len(Control.Name) - 3), 1)
End If
Next Control

End Sub

Mytå

 

[@+Thierry]

Bonsoir Mytå, Nono

Tu es un Chef Mytå !! tu as bien sondé et trouvé la solution, juste une petite erreur de déclaration de Variable Object, ce n'est pas nécessaire et sur-proportionné, vu que Control existe, par conséquent je propose :
Dim CTRL As Control.

Sinon j'ai essayé d'accélérer l'ouverture de ce UserForm, mais Nono nous à mis le paquet !! 35 Frames, 38 TextBoxes, 105 CheckBoxes !!, chez moi çà met un certain temps !! lol

Sinon pour éviter de boucler sur tous les autres Controls pour lire les trois digits dans le name, on peut d'abord filtrer uniquement les TextBoxes en rajoutant çà :

Private Sub UserForm_initialize()
Dim CTRL As Control

For Each CTRL In Ecout.Controls
If TypeOf CTRL Is MSForms.TextBox Then
If Left(CTRL.Name, 3) = "Nom" Then
CTRL.Value = Cells(1 + Right(CTRL.Name, Len(CTRL.Name) - 3), 1)
End If
End If
Next CTRL
End Sub

Mais c'est pratiquement aussi long...

Bon Courage
@+Thierry

 

[Myta]

Salut @Thierry

Je l'avais bien dit, je suis pas le spécialiste des Userforms

mais je note tes conseils Cher Professeur

C'est comme cela que l'on s'améliore avec le temps.

Merci à toi @Thierry.Select ))))))

Mytå

P.S. L'ouverture de ce UserForm çà met un certain temps
chez moi aussi !! lol

Oups un .Select dans mon text ))))))))

 

[nono]

slt @Thierry, Myta, le forum

Comme toujours, y a des xlmen (ou xl women) prêt à vous répondre, c'est cool merçi pour tout.

p.s : moi aussi ça met du temps maisbon, on fait comme on peut .... et moi je peux peu.

A+ Nono ;-)