Userform se connecte à une autre feuille

[Ben]

Bonjour le Forum,
Avec l'aide Bebère, et des informations récupérées dans les différentes démos, j'ai commencé à créer une appli.
Actuellement je suis embêté car, un test se passe bien lorsque je le lance depuis VBE et lorsque je suis en condition normale, Départ depuis bouton sur feuille 'Vente', l'Userform (n°4, lancé depuis le label1; clients) reste bloqué sur la feuille courante (vente) alors qu'il devrait me fournir des infos de la feuille(Clients).
Je vous joins le fichier.
A votre bon coeur.
Merci de votre aide [file name=draft461015h05.zip size=49822]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/draft461015h05.zip[/file]

 

[Creepy]

Hello All, Ben,

Je comprends pas ta question, peux tu être plus clair STP

Merci

@+

Creepy

 

[Ben]

Bonjour le Forum,
Creepy,
Difficile mais enfin je vais tenter de t'expliquer le chemin à suivre pour constater le problème.
1 - Lancement Userform par commanbutton sur feuille (Vente)
2 - Lancement Userform (Clients) depuis label (Client) en haut à gauche
3 - Lancement Userform3 depuis bouton (AJOUT /MODIFICATION) en bas.
4 - Onglet (Modification).
Au lieu d'avoir les éléments de la feuille (clients); j'ai les éléments de la feuille (Vente).
J'espère que cela ira
Merci

 

[Ben]

Bonsoir le Forum,
J'ai trouvé une solution mais je ne sais pas si c'est la meilleure. en appelant le Userform : j'active la feuille liée.
Si vous avez des remarques sur les codes dans le but d'améliorer ce travail, je suis tout de même preneur.
Bon courage à toutes et à tous

 

[Bebere]

bonsoir Ben

Private Sub UserForm_Initialize()
Dim TheClient
ds usf4
With Clients
TheClient = .Range('A2:e' & .Range('E65536').End(xlUp).Row)
'était en commentaires
End With

With Me.ListBox1
.ColumnCount = 5
.ColumnWidths = '80;50;50;50;50'
.List = TheClient
End With

'Ici je précise ce que je veux d'affiché dans les bouton...
'Au passage la Propriété Défault à True, rend le bouton actif à la touche Entrée( oui oui !! lol)
With CommandButton1
.Caption = 'VALIDATION'
.Default = True
End With
CommandButton2.Caption = 'EXIT'

miseajourlistbox
'à supprimer
end if
End Sub
il faut savoir que le (label client)est unhyperlink

à bientôt :huh:

 

[Ben]

Bonsoir le Forum,
Bebère,
Je te remercie d'être souvent disponible.
Cela fonctionne correctement, je poursuis.
Bonne soirée et /ou bonne nuit