Commande pour ouvrir un formulaire avec données affichées [Résolu]

pduval34

XLDnaute Nouveau
Bonjour,
La commande classique d'ouverture d'un formulaire :
UserForm1.Show
Ouvre le "Userform" sur un formulaire vierge.

Je souhaiterais qu'il s'ouvre avec les données correspondant à la ligne active de la feuille de données déjà présente pour pouvoir mieux visualiser l'ensemble des données de cet enregistement ?

Excusez-moi si cette question est très basique ou si elle a déjà était posée !
Je n'ai rien trouvé malgré de longues recherche.
Remerciements anticipés.
 

Dranreb

XLDnaute Barbatruc
Boujour.
ActiveCell.EntireRow devrait contenir ce que vous voulez afficher. Garnissez vos contrôles dans une Private Sub UserForm_Activate
 

Dranreb

XLDnaute Barbatruc
Non, je n'en ai pas sous la main, mais j'essayerais de l'écrire pour votre classeur joint (bouton Téléverser un fichier).
Mais qu'est-ce qui vous perd ?
 

pduval34

XLDnaute Nouveau
Merci pour votre aide,
Mon problème est dans le fichier joint (liste de randonnées que j'ai alléguée et auquel il manque les photos) !
Mon objectif : lorsque je suis dans la feuille de données (Data), je souhaiterais en cliquant sur le bouton qui me permet d'ouvrir mon formulaire, pouvoir avoir directement la fiche qui correspond à la ligne où était ma souris dans la feuille "Data" !
(mes essais pour les fonctions suivant précédent sont également en échec !).
Bien cordialement.
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
Cette procédure a l'air de faire l'affaire :
VB:
Private Sub UserForm_Activate()
ComboBox1 = Intersect(Ws.Columns("A"), ActiveCell.EntireRow).Value
End Sub
 

pduval34

XLDnaute Nouveau
J'ai déclaré cette sous procédure dans UserForm_Initialize()
Ainsi j'ai bien la comboBox qui me renseigne sur le N° de la fiche, mais les record des autres champs ne se font pas.
Où est l'erreur de ma part ?
Encore merci.
 

pduval34

XLDnaute Nouveau
Pardon, une petite étourderie........
Cela fonctionne parfaitement, merci infiniment.

Bonne soirée, Bon week end
PS. : je ne comprends par pourquoi, mais bouton suivant, précédent ne fonctionne pas !
Mais j'ai déjà beaucoup abusé de votre gentillesse !!
 

Dranreb

XLDnaute Barbatruc
Non, c'est une procédure indépendante. Visual Basic ne supporte pas les procédures imbriquées. D'autres langages si.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas