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

 

[Bob O' Deville]

Voici le code que j'ai intégré dans mon codage. C'est en principe le mêm que celui que tu m'a adressé. Juste que la comboxbox s'appelle maintenant combobox61. J'ai retiré la ligne sheets("PARAMETRE").Range("B32").Value = ComboBox59.Value, vue qu'elle n'avait que pour action de renseignée la ligne NbArticle = Sheets("PARAMETRE").Range("B33").Value que tu n'as pas exploité dans ton code.
______________________________________________________________________________________________
Private Sub ComboBox61_Change()
Dim Obj1 As Object
Dim NbArticle As Integer
Dim i As Integer, x As Byte
Dim j As Integer
Dim Tablo()

Erase Tablo
j = Sheets("MERCURIALE").Range("B65536").End(xlUp).Row
x = 1

On Error Resume Next
For Each Obj1 In Me.MultiPage1.Pages(1).Controls
If Obj1.Name Like "Désignation#" Then
Obj1.Visible = False
End If
Err.Clear
Next

For k = 2 To j

If Cells(k, 2) = ComboBox61.Value Then
x = x + 1
ReDim Preserve Tablo(1 To 2, 1 To x)
Tablo(1, x) = Cells(k, 2)
Tablo(2, x) = Cells(k, 3)
End If
Next k

'If x = 0 Then Exit Sub

For i = 1 To UBound(Tablo, 2)
Set Obj1 = Me.MultiPage1.Pages(1).Controls.Add("forms.textbox.1")

With Obj1
.Name = "Désignation" & i 'nom de la textbox (toto1, toto2, toto3, ...)
.Left = 15 'position par rapport au rebord gauche de l'UserForm
.Top = 20 * i + 80 'position par rapport au haut de l'UserForm
.Width = 160 'largeur de la zone d'écriture
.Height = 15 'hauteur de la zone d'écriture
.Visible = True
.Text = Tablo(2, i)
End With
Next i
End Sub

 

[ChTi160]

Re
un fichier modifié !
je ne sélectionnais pas la feuille source donc comme tu as codé Cells(k, 2) par exemple, sans référence a la feuille ou setrouve la Cellule .
c'est la feuille active qui était prise en compte ,donc toute les cellules étaient vides !enfin .
regarde le Code et adapte le
jean marie

 

[Bob O' Deville]

Re
un fichier modifié !
je ne sélectionnais pas la feuille source donc comme tu as codé Cells(k, 2) par exemple, sans référence a la feuille ou setrouve la Cellule .
c'est la feuille active qui était prise en compte ,donc toute les cellules étaient vides !enfin .
regarde le Code et adapte le
jean marie

Ok, ceci explique certainement cela. Je vérifié et te tien au jus. Merci encore

 

[Bob O' Deville]

Tout est rentré dans l'ordre. Ca marche ! et je suis super content. Un sincère et très chaleureux merci.

Maintenant, je vais œuvrer pour faire apparaitre mes textbox annexes.

Au plaisir Jean Marie
Martial

 

[ChTi160]

Re
ok
quand je parlais de ListBox
celle ci pourrait contenir l'ensemble des données de la Sélection
a savoir ce que tu veux en faire !
jean marie

 

[Bob O' Deville]

Re
ok
quand je parlais de ListBox
celle ci pourrait contenir l'ensemble des données de la Sélection
a savoir ce que tu veux en faire !
jean marie

Non je ne l'envisage pas.
Et j'ai rempli mon userforms tout marche.
Par contre j'ai un nouveau chalenge Multiplier deux textbox issue du code précédent.
En l'occurence : Textbox " Soiti6" = "Colissagei3"*"Qtéi5"
Si tu as une idée je suis preneur

Avec pour macri Sub Qti5-change() Autrement dit la variable est dans le titre.

 

[ChTi160]

Re
le code précédent ?
comment sont remplies ces TextBox Colissagei3 * Qtéi5 ?
comme celà je ne peux rien pour toi
met un fichier exemple de ce que tu as et ce tu veux !
jean marie

 

[Bob O' Deville]

Re
le code précédent ?
comment sont remplies ces TextBox Colissagei3 * Qtéi5 ?
comme celà je ne peux rien pour toi
met un fichier exemple de ce que tu as et ce tu veux !
jean marie

Le colissagei3 est rempli automatiquement comme pour le textbox Désignationi issu de ton code. Et le TextBox Qtéi5 est rempli manuellement. ET le but est lorsque je met une valeur dans l'un des Textbox Qtéi5 Le Textbox Soiti6 correspondant reçoit la valeur du produit de Qtéi5 et Colissagei3 également correspondant sur la même ligne.
C'est chaud ! Non ?

 

[ChTi160]

Re
Chaud Non !
Mais , je ne vais pas refaire tout le Code pour générer les TextBox ........ pour ensuite pouvoir répondre à la demande!
Bonne continuation
jean marie

 

[ChTi160]

Re
tu peux aussi faire des recherche sur le Forum
un exemple de ce que j'ai trouvé .
un lien : peut être utile !
jean marie

 

[Bob O' Deville]

Re
Chaud Non !
Mais , je ne vais pas refaire tout le Code pour générer les TextBox ........ pour ensuite pouvoir répondre à la demande!
Bonne continuation
jean marie

Les code est fait et grâce à toi. Toutes les textbox sont générés. Je n'imaginais pas qui fallait le refaire. Je pensai sans doute naïvement qu'il pouvait exister une formule qui s'ajouterait au code déjà écrit. Je pense qu'une boucle pourrait faire l'affaire. Mais ce qui me manque c'est la connaissance des expression typique VBA pour la réaliser dans ce cadre là

 

[Bob O' Deville]

Re
tu peux aussi faire des recherche sur le Forum
un exemple de ce que j'ai trouvé .
un lien : peut être utile !
jean marie

Merci Jean Marie J'ai voir ce qu'il en retourne

 

[ChTi160]

Re
je regarde ton fichier des que possible
jean marie

 

[Bob O' Deville]

T'es trop cool. Je te connais pas, mais tu as déjà ma reconnaissance.

 

[ChTi160]

c'est la vocation du forum
L'entraide !
jean marie