XL 2010 Me.Controls("TextBox & i").Value = Cells(k, 3)

[Bob O' Deville]

Bonjour,

J'ai rédigé les 2 boucles for imbriquées suivantes:

_______________________________________________________________________________________________
Dim collect As Collection
Dim Obj1 As Object
Dim NbArticle As Integer
Dim i As Integer
Dim j As Integer

Sheets("PARAMETRE").Range("B32").Value = ComboBox59.Value
NbArticle = Sheets("PARAMETRE").Range("B33").Value

Set collect = New Collection

'--------------------------------------------------------------------------------------------------------
Première boucle
'**********Créer nombre de Textbox en fonction de la valeur de la variable NbArticle************
'--------------------------------------------------------------------------------------------------------
For i = 1 To NbArticle

Set Obj1 = Me.MultiPage1.Pages(1).Controls.Add("forms.textbox.1", "Obj1", True)
With Obj1
.Name = "Designation" & i 'nom de la textbox (toto1, toto2, toto3, ...)
.Left = 15 'position par rapport au rebord gauche de l'UserForm
.Top = 20 * i + 65 'position par rapport au haut de l'UserForm
.Width = 160 'largeur de la zone d'écriture
.Height = 15 'hauteur de la zone d'écriture
'.Text = "je suis : " & Obj1.Name
'.Object.Value =
End With
'-------------------------------------------------------------------------------------------------------
Deuxième Boucle (imbriquée)
*****************Alimenter les textBox avec leur valeur respectives******************************
'-------------------------------------------------------------------------------------------------------
j = Sheets("MERCURIALE").Range("B65536").End(xlUp).Row
Sheets("MERCURIALE").Activate

For k = 2 To j

If Cells(k, 2).Value = ComboBox59.Value Then
Me.Controls("Designation & i").Value = Cells(k, 3)
'-------------------------------------------------------------------------------------------------------
Ce qui ne marche pas
************** Me.Controls("Designation & i").Value = Cells(k, 3)*********************

La même valeur alimente toutes les TextBox alors qu'elle devrait être différente
Ainsi, si je remplace Me.Controls("Designation & i").Value = Cells(k, 3)
par Cells(k, 4).Value = Cells(k, 3) La boucle fait le job
'-------------------------------------------------------------------------------------------------------
End If

Next k

Next i

Set Obj1 = Nothing

End Sub
__________________________________________________________________________________________________________
J'ai essayé plein de truc, sans résultat. En gros je sèche. Je pense qu'il s'agit d'un problème de syntaxe.
Merci pour vos éclairages

 

[ChTi160]

Re
vite fait
j'ai un peu simplifié le Code du Combobox (plus qu'une Boucle)
pour pouvoir faire ce que tu veux il va falloir je pense créé un Module de Classe qui prendra en Compte les TextBox "Qtés"
je regarde cela demain !
Bonne nuit
jean marie

 

[Bob O' Deville]

Bonne Nuit à toi Jean Marie

Ah Oui ! Tu as super raccourci le code. Je pensai que c'était possible mais je nuis pas encore assez calé et je ne voulais pas abuser.

 

[ChTi160]

Et l'on peut faire mieux , si l'on utilise un Tableau pour travaillé sur les données .
mais bon on va aller doucement Lol
jean marie

 

[Bob O' Deville]

Quand certain me disent que le monde n'est repli que d'égoïstes, Je leur répond de regarder autour d'eux. Il y a plein de gens bien. Ce jour confirme cet adage.
Bonne nuit
Jean-Marie

 

[Bob O' Deville]

Et l'on peut faire mieux , si l'on utilise un Tableau pour travaillé sur les données .
mais bon on va aller doucement Lol
jean marie

Bonsoir Jean Marie
Vous avez suggéré la création de module de classe hier. Je me suis donc renseigné sur le sujet. J'en vois le potentiel mais à ce stade c'est du chino-Hongrois traduit en vieux malais.
J'ai testé quelques exercices simples pour en comprendre le fonctionnement. Puis j'ai repris le code d'un internaute qui propose une solution sur le traitement des TextBox dans userform. J'ai copié coller pour voir ce qui ce passe. histoire de comprendre. Et bien il ne ce passe rien. Du coup je nage en eaux profondes.
Je ne serais pas contre que reprenions notre conversation. Mais doucement alors.
A plaisir Martial

 

[ChTi160]

Bonsoir Martial
un exemple perfectible de ce que tu pourrais faire !
avec un module de Class !
jean marie

 

[Bob O' Deville]

Bonjour Jean Marie,
Je note que tu es un oiseau de nuit
Bien, je découvre ton fichier. C'est super.!
Je vais tacher de l'adapter sur mon projet cet aprèm'
Je te ferai un retour.
Passe une belle journée.

 

[ChTi160]

Bonjour Bob
N'hésite pas si besoin !
Bonne journée
Jean marie

 

[Bob O' Deville]

Bonjour Jean Marie
Je viens de tester sur mon projet tout marche à merveille. Cela dit je ne comprend pas mieux les arcanes du module de classe. Je dit ça parce que j'essaye par moi-même d'ajouter à la valeur de la textbox "soit" l'unité correspondante;(Kg , L, U) précisée dans la textbox unité..
Dans le module de classe j'ai donc créé un "ch'ai plus comment on appel ça" (J'ai des trous de mémoire qui me viennent... ) écrit comme suit:

Public Ctrl_Unité As Object

Dans la fonctionoTBx_change()
j'ai ajouté la ligne ' Set Ctrl_Unité = .Controls("Soit" & idx), qui génère un bug. Sans surprise, je tâtonne.
Puis à la ligne 'Ctrl_Prix = Ctrl_Qté * oTBx ' j'ai ajouter ' & Ctrl_Unité. Oui je ne manque pas d'audace. au final ça donne ceci:l

Option Explicit
Public idx As Byte
Public Ctrl_Qté As Object
Public Ctrl_Prix As Object
Public Ctrl_Unité As Object
Public WithEvents oTBx As MSForms.TextBox

Private Sub oTBx_Change()

With UserForm2
oTBx = IIf(oTBx = Empty, 0, oTBx)
idx = Mid(oTBx.Name, InStr(1, oTBx.Name, "_") + 1)
Set Ctrl_Qté = .Controls("Colissage_" & idx)
Set Ctrl_Prix = .Controls("Soit_" & idx)
Set Ctrl_Unité = .Controls("Soit" & idx)
Ctrl_Prix = Ctrl_Qté * oTBx & Ctrl_Unité
End With

End Sub

et évidemment ça ne marche pas.

 

[ChTi160]

Re
je regarde
jean marie

 

[ChTi160]

Re
voilà ce que j'ai mis et qui semble fonctionner

Option Explicit
Public idx As Byte
Public Ctrl_Qté As Object
Public Ctrl_Prix As Object
Public Ctrl_Unité As Object
Public WithEvents oTBx As MSForms.TextBox

Private Sub oTBx_Change()
With UserForm2
oTBx = IIf(oTBx = Empty, 0, oTBx)
 idx = Mid(oTBx.Name, InStr(1, oTBx.Name, "_") + 1)
Set Ctrl_Qté = .Controls("Colissage_" & idx)
Set Ctrl_Prix = .Controls("Soit_" & idx)
Set Ctrl_Unité = .Controls("Unité_" & idx)
Ctrl_Prix = Ctrl_Qté * oTBx & " " & Ctrl_Unité
End With
End Sub

Mais si tu as besoin de faire des Calculs avec ces Controls "Ctrl_Prix" ca va poser problème !
il serait peut être mieux d'ajouter un Label ou l'on colle l'unité .
a voir
jean marie

 

[Bob O' Deville]

Je ne l'envisage pas sur cette page. Peut-être sur une autre. Je suppose que l'ajout de ce label ce fait comme les précédents dans la TExtBox59_change ?
Moi je relève deux choses. 1 que je n'étais pas très loin de la vérité quand à la rédaction du complément de code. "Il faut prendre chaque petite victoire comme elle vient"
2 En programmation je note que le moindre caractère en plus ou en moins rend une procédure inapte. Et que l'on peut chercher des heures sans savoir pourquoi. Du moins à mon niveau.
Tu étais programmateur dans ta vie d'avant le retraite?
Encore un grand merci Jean Marie

 

[ChTi160]

re
Non je n'est jamais utilisé office que ce soit au travail ou chez moi Lol
je suis comme beaucoup autodidacte ! je code pour aider c'est tout et j'aime ca lol
un fichier pour imager ce que je disais!
jean marie

 

[Bob O' Deville]

Bravo ! pour la maitrise autodidactée.
S'agissant du code. Tu as juste ajouté cinq lignes dans le module de classe. Je trouve ça magique.
Il n'est pas exclu que je m'en serve le moment venu. Et puisqu'on en parle (pas pour tout de suite, mais je sens que je vais exploiter cette faculté) Additionner les objects "Soit" dans une textbox fixe, tu verrais ça comment?
En attendant faut que j'aille bosser.
Quand le temps me viendra, je pense passer un peu de temps à la compréhension de la programmation.
C'est une environnement qui me fascine.
Bien à toi Jean Marie

 

[ChTi160]

re
je verrais ça comme ca ! Lol
jean marie