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

Dranreb

XLDnaute Barbatruc

• 26 Janvier 2019

• #2

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

 

Vote positif 0 Vote négatif

P

pduval34

XLDnaute Nouveau

• 26 Janvier 2019

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Janvier 2019

• #4

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 ?

 

Vote positif 0 Vote négatif

P

pduval34

XLDnaute Nouveau

• 26 Janvier 2019

• #5

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.

 

Pièces jointes

• Liste_Randonnées_Test.xlsm

  81.4 KB · Affichages: 11

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Janvier 2019

• #6

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

 

Vote positif 0 Vote négatif

P

pduval34

XLDnaute Nouveau

• 26 Janvier 2019

• #7

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.

 

Vote positif 0 Vote négatif

P

pduval34

XLDnaute Nouveau

• 26 Janvier 2019

• #8

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 !!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Janvier 2019

• #9

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

 

Vote positif 0 Vote négatif