Discussion :

[north_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Gorfael]

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+

[Pierrot93]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
@+

[north_]

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 !

[Pierrot93]

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
@+

[north_]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?