UserForm Multipages

[PatriceKas]

Bonjour chers membres
je viens s'il vous plait solliciter votre aide je suis entrain de travailler sur un userform qui est en pieces jointes. en fait, le userform comporte un multipages a trois pages et chaque page contient differentes informations qui seront stockes dans trois sheets differents mais chaque page fonctionnera independament de l'autre.
je vous en pries quelqu'un pourrais m'aider avec le code

Option Explicit
Private Sub cmdAdd_Click()
'variables
Dim lRow As Long
Dim lStock As Long
Dim lUnity As Long
Dim lDeliver As Long
Dim lAcquitter As Long
Dim colTexBoxNombre As Collection
Dim ConstChaineNombre As String

Dim ws As Worksheet
Set ws = Worksheets("OrasRequisitionDATA")

'get first row in DataBase
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
lStock = Me.CboStockcode.ListIndex

'check data
'copy data
With ws
.Cells(lRow, 1).Value = Me.txtTrackingDate.Value
.Cells(lRow, 2).Value = Me.txtReqNumber.Value
.Cells(lRow, 3).Value = Me.txtRequesterName.Value
.Cells(lRow, 4).Value = Me.txtCostCenter.Value
.Cells(lRow, 5).Value = Me.CboStockcode.Value
.Cells(lRow, 6).Value = Me.CboStockcode.List(lStock, 1)
.Cells(lRow, 7).Value = Me.txtQuantityIssued.Value
.Cells(lRow, 8).Value = Me.CboUnity.Value
.Cells(lRow, 9).Value = Me.CboDeliver.Value
.Cells(lRow, 10).Value = Me.txtReceiverName.Value
.Cells(lRow, 11).Value = Me.CboAcquitter.Value
End With


'clear data in form
Me.txtTrackingDate.Value = Format(Date, "medium date")
Me.txtReqNumber.Value = ""
Me.txtRequesterName.Value = ""
Me.txtCostCenter.Value = ""
Me.CboStockcode.Value = ""
Me.txtQuantityIssued.Value = 1
Me.CboUnity.Value = ""
Me.CboDeliver.Value = ""
Me.txtReceiverName.Value = ""
Me.CboAcquitter.Value = ""

Me.txtTrackingDate.SetFocus


End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim cStock As Range
Dim cUnity As Range
Dim ws As Worksheet
Set ws = Worksheets("LookupLists")

For Each cStock In ws.Range("A2:A656")
With Me.CboStockcode
.AddItem cStock.Value
.List(.ListCount - 1, 1) = cStock.Offset(0, 1).Value
End With
Next cStock

For Each cUnity In ws.Range("D2😀656")
With Me.CboUnity
.AddItem cUnity.Value
End With
Next cUnity


Me.txtTrackingDate = Format(Date, "medium date")
Me.txtQuantityIssued = 1
Me.txtTrackingDate.SetFocus


End Sub

 

[gilbert_RGI]

Re : UserForm Multipages

Bonjour

pas facile d'aider avec ces d'infos

🙄

 

[PatriceKas]

Re : UserForm Multipages

🙂Bonjour Gilbert
tu as raison au fait je n'arrive pas a attacher la pieces jointe ou le userform et correctement affiche.
au fait ma preoccupation peut etre resumee comme suit

un userform avec multipages 3pages
3 commandButton dont un pour valider, un autre pour canceler et un dernier pour close le userform

chaque page a 2comboboxs et 2 textBox
les é combox se referent a une liste dans excel

chaque page du multipage se refere a un sheet du ficher excel

page1= sheet1 c'est a dire le boutton valide transmet les donnees du userform vers sheet1
page2 egalement avec le meme button valide qui est sur le userform

c'est un peu ca mon idee

merci pour ton attation
si tu as une idee please aide moi


Merci

 

[gilbert_RGI]

Re : UserForm Multipages

pour joindre un fichier
aller en mode avancé
cliquer sur le bouton "gérer les pièces jointes"
cliquer ensuite sur "parcourir" et trouver le fichier à joindre
puis sur "envoyer"
attention le fichier ne doit pas dépasser 48,8Ko
si le fichier est trop lourd passer par un hebergeur (Cijoint par exemple) et mettre le lien sur le post 🙄

 

[gilbert_RGI]

Re : UserForm Multipages

pour par exemple mettre le contenu d'une textbox dans la première ligne vide de la feuille1 au click du bouton

Private Sub CommandButton1_Click()
    Sheets(1).Cells((Range("a65536").End(xlUp).Row + 1), 1).Value = Me.TextBox1.Text
End Sub

 

[PatriceKas]

Re : UserForm Multipages

Bonjour le forum
merci pour votre attention.
j'ai lu la discussion de XC et HERVE du 10/10/2005, elle vraiment tres riche
c'est vraiment mon cas. quelqu'un peut m'aider en me basant le code
son file est a l'addresse suivante:

[file name=Multipagesv2.zip size=17309]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Multipagesv2.zip[/file]
Fichiers attachés

au fait mon souci est que les pages n'ont pas les memes specificite
chaque controls fonctionne independament de l'autre
et que je puisse eviter le deboggage

merci pour votre aide