Excel /lien hypertext pour ouvrir un userform Fermé

Question

Bonjour,

débutante en excel / VBA, j'ai une petite question :

pour un répertoire, je voudrais une manière simple d'ouvrir un userform lorsque je clique sur un nom dans mon tableau

est-ce possible ?

ensuite, le nom de la personne est copiée dans la 1ère textbox.
la macro va aller chercher le téléphone, l'e-mail pour les écrire dans les autres textbox.

Quelqu'un aurait-il une idée ?

Merci bien.

amigo · Accepted Answer

bonjour,

Oui , c'est possible. Mais je n'utilise pas de lien hypertexte.

Juste un petit exemple. Ouvre un nouveau classeur excel et va dans l'editeur Visual Basic (menu Outils Macro...)
Dans l'explorateur de projet, click droit sur ThisWorkook -> Code
Colles-y cette procedure

Private Sub Workbook_Open()
ActiveSheet.OnDoubleClick = "message"
End Sub

Cette procedure s'execute chaque fois qu'on ouvre le classeur et dit que si on double-Click sur une cellule il faut executer la macro "Message".

Encore une manip. Dans l'explorateur de projet, click droit -> Inserer Module
Dans le module colles-y cette procedure

Sub Message()
MsgBox "Bonjour"
End Sub

Tu sauveguardes. Tu quittes. Tu rechages ton fichier.
Double-click sur une cellule et tu verra s'afficher un message. A la place d'afficher un  message peux  lui demander de faire une autre tache.
Mais ça, c'est une autre histoire. Bon courage.

chinioun · Answer

Merci pour ton aide.

Enfin je voudrais lorsqu'on double click sur la cellule que s'ouvre un userform.
Et dans la 1ère textbox, la macro colle la valeur de la cellule double cliquée.

amigo · Answer

Bon, alors crée un UserForm avec un controle textbox.
L'userform doit s'appeler UserForm1
Le textbox doit s'appeler TextBox1

Dans l'explorateur de projet, click droit sur ThisWorkook -> Code
Colles-y cette procedure

Private Sub Workbook_Open()
ActiveSheet.OnDoubleClick = "Macro1"
End Sub 

Dans l'explorateur de projet, click droit -> Inserer Module
Dans le module colles-y cette procedure

Sub Macro1()
UserForm1.TextBox1.Text = ActiveCell.Value
UserForm1.Show
End Sub

A toi de jouer.

chinioun · Answer

Merci beaucoup ça fonctionne bien!

sinon je voulais savoir si je pouvais utiliser la fonction recherchev dans une macro ou si j'étais obligée de créer un équivalent...

Excel /lien hypertext pour ouvrir un userform

4 réponses

Discussions similaires

Newsletters