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

[pduval34]

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]

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

 

[pduval34]

Merci de votre réponse, mais je reste perdu !
Vous n'auriez pas un petit exemple à me proposer

 

[Dranreb]

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]

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.

 

[Dranreb]

Cette procédure a l'air de faire l'affaire :

Private Sub UserForm_Activate()
ComboBox1 = Intersect(Ws.Columns("A"), ActiveCell.EntireRow).Value
End Sub

 

[pduval34]

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]

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]

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