plusieurs Controls pour différente liste de textbox

Bonjour,

Sur mon userform, auparavant j'avais plusieurs textbox qui renvoyait les données a une seule colonne dans excel, même chose pour les combobox. Avec le code suivant, tout fonctionnait a merveille:

Code:

---

1 2 3 4 5 6

With Sheets("Données")   For iLogement = 1 To 29 .Cells(iLogement + 1, 4) = Val(Me.Controls("TextBox" & iLogement)) .Cells(iLogement + 1, 5) = Me.Controls("ComboBox" & iLogement)

---

Maintenant, il y a une nouvelle rangée de textbox sur ma userform, qui renvoit des données dans une nouvelle rangée dans mon fichier excel.
Comme le control prend tout mes text box et l'envoit seulment sur la 4 eme colonne, je me demande comment je pourrais avoir un control qui ferait la différence entre les deux rangées de textbox, et pouvant renvoyer dans deux colonnes différente les données...Jespere que je suis clair dans ce que j'écrit et que vous pourrez m'aider !

Merci !

Salut north_ et le forum
Nommes les textbox de tes 2 rangées différemment : par exemple TB_1_01, TB_1_02, TB_1_03, etc. et TB_2_01, TB_2_02, TB_2_03, etc.
ou dans ta boucle fait un test : si n° >20 colonne B else Colonne A
A+

Bonjour North, Gorfael

une autre solution, utiliser la propriété "tag" des "textbox", tu la renseignes pour la 1ère série par la lettre de la colonne sur laquelle tu veux ensuite renvoyer les données, idem pour la 2ème série. Tu peux ensuite t'inspirer du code ci-dessous pour valoriser tes cellules.

Code:

---

1 2 3 4 5 6

Dim c As Control For Each c In Me.Controls If TypeName(c) = "TextBox" Then Range(c.Tag & Range(c.Tag & Rows.Count).End(xlUp).Row + 1) = c.Value End If Next c

---

bonne journée
@+

Bonjour a vous,

Pierrot, je ne suis pas certain de bien comprendre ton code...Peut-etre avec quelques notes ce serait plus facile car je bloque a comment VB va pouvoir reconnaitre mes séries de textbox comme étant indépendante.

Je me demandais aussi du meme coup si cest possible de classer mes deux série de textbox par exemple TBSerie1 et TBSerie2 et utiliser ensuite le meme Control que celui dont jai mit le code dans mon premier message.

Merci a vous tous !

Bonsoir North

Dans l'éditeur vba, sur ton usf, tu sélectionnes ta 1ère série de "textbox", et tu renseignes ensuite dans la propriété "tag" (via la fenêtre propriété) de ces objets la lettre de la colonne que tu veux utiliser, A par exemple. Même chose pour la 2ème série...

bonne soirée
@+

Donc j'ai tenté d'ajusté mon fichier avec ton code, avec les Tag.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Montant As Control Dim Locataire As Control   For Each Montant In Me.Controls If TypeName("Montant") = "TextBox" Then Sheets("Données").Cells(Montant + 1, 4) = Montant.Value End If Next Montant   For Each Locataire In Me.Controls If TypeName("Locataire") = "TextBox" Then Sheets("Données").Cells(Locataire + 1, 5) = Locataire.Value End If Next Locataire

---

Mais avec cela, il me renvoit un message d'erreur...Donc les données dans les series de textbox sen vont dans une colonne de la Sheet "Données"...

Quesqui cloche ici ?

Re

je ne vois pas dans ton code que tu utilises la propriété "tag", il aurait fallu mettre

Code:

---

Montant.Tag

---

ou bien :

Code:

---

Locataire.Tag

---

mais il faut au préalable qu'elle soit valorisée dans les textbox.... D'autre part placé ainsi dans la propriété "cells", attent plutôt un numéro de ligne...

bonne journée
@+