Userform pour plusieurs onglets

[scorp]

Bonjour,

Je viens solliciter vos connaissances car je pêche un peu sur l'écriture de codes qui me permettrait de remplir un onglet ou un autre avec tous les éléments renseignés dans les "textbox" en fonction du choix que je ferais sur le combobox.
Par exemple : combo box avec le choix de vendredi, samedi ou dimanche, puis plusieurs textbox où je renseigne Nom, prénom, etc... (6 textbox). Le but est de trier donc ces renseignements par jour.

J'ai tout effacé de ce que j'avais commencé, car je commençais à m'y perdre !

Merci de vos réponses avisées.

Scorp

 

[loureed]

Re : Userform pour plusieurs onglets

Bonsoir,
je ne suis pas un pro, mais je pense qu'il manque un peu d'info, voir un fichier...
Ceci dit j'ai fait un petit essai...

@ bientôt

Loureed

 

[scorp]

Re : Userform pour plusieurs onglets

Bonjour Loureed

Super ! et d'une simplicité.... j'avoue que 'étais parti sur quelquechose de beaucoup plus compliqué, genre usine à gaz.
Je te remercie de ta rapidité.
Je fais des tests et l'adapterai à mon besoin. Par exemple, rester sur le userform après avoir validé, afin de faire plusieurs saisies en même temps, y ajouter un bouton "annuler", et organiser le classement automatique après chaque entrée...

Merci encore

Scorp

 

[loureed]

Re : Userform pour plusieurs onglets

Bonjour, ravis que ça vous plaise...

Mais en parlant d'usine à gaz, je me permet de vous donner une modif du programme d'essai...
Un peu plus "recherché" mais il fait plus "pro" qu'une succession de copie de valeur de textbox... ;-)

@ bientôt

Loureed

Edit : la version 2 du programme permet de rajouter une textbox dans le userform sans pour autant modifier le reste du programme !
plus souple au niveau de la conception.

 

[grisan29]

Re : Userform pour plusieurs onglets

bonjour Loureed
très belle version 2 mais j'aurais vider les textbox après chaque validation pour éviter de coller 2 fois les mêmes données

Pascal

 

[loureed]

Re : Userform pour plusieurs onglets

Bonjour,

Dans la boucle

For Each ob In UserForm1.Controls
    If ob.Name = "TextBox" & i Then
        Selection.Cells(2, i).Value = ob.Value
        ' à rajouter
         ob.value=""
        i = i + 1 ' on incrémente "i" pour chercher le textbox"i+1"
    End If
Next ob

Voilà, @ très bientôt

Loureed

 

[Staple1600]

Re : Userform pour plusieurs onglets

Bonjour à tous


loureed
Histoire de passer le temps et de varier les plaisirs, je te propose une variation de ton code (autre syntaxe)

Private Sub CommandButton1_Click()
Dim i As Long, ob As Object, tbl

ReDim tbl(1 To 7)
i = 1
For Each ob In UserForm1.Controls
    If ob.Name = "TextBox" & i Then
    tbl(i) = ob.Value
    i = i + 1
    ob.Value = ""
    End If
Next ob

With Sheets(ComboBox1.Value)
    .Activate
    .Cells(Rows.Count, 1).End(xlUp)(2).Resize(, UBound(tbl)).Value = tbl
End With
Erase tbl
Me.Hide
End Sub

Le résultat sera le même.

 

[loureed]

Re : Userform pour plusieurs onglets

Bonjour,

Oui c'est bien et ça marche, mais à force de creuser pour les autres ;-) je me retrouve avec d'autre soucis :
Si les textbox ne sont pas chronologique, suite à la construction du userform on a effacé le textbox3 et le textbox4, et qu'il nous reste le 1,2,5,6,7, alors là la procédure ne marche pas....
Si le textbox1 doit être en colonne 2 et le textbox2 en colonne 1, alors ça ne marche pas non plus...
En gros il faut être rigoureux dés la conception du userform...

Merci et @ bientôt

Loureed

NB : merci pour les balises "highlight=vba" et "/highlight" nota j'ai remplacé les [] par des "" sinon les balises ne s'affichent pas ! ;-)

 

[scorp]

Re : Userform pour plusieurs onglets

Bonsoir les gens,

Merci à tous pour cette réponse collégiale, surtout à loureed qui a confectionné le tableau qui correspond à ma recherche.

Bonne fin de weekend

Scorp