Userform se connecte à une autre feuille

B

Ben

Guest
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]
 

Pièces jointes

  • draft461015h05.zip
    48.7 KB · Affichages: 5
B

Ben

Guest
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
 
B

Ben

Guest
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

XLDnaute Barbatruc
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:
 

Statistiques des forums

Discussions
300 793
Messages
1 987 227
Membres
209 741
dernier inscrit
Reda061