Rechercher : dans
Par :

Excel /lien hypertext pour ouvrir un userform

Dernière réponse le 20 fév 2008 à 10:35:51 chinioun, le 19 fév 2008 à 10:51:04 
 Signaler ce message aux modérateurs

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.

Configuration: Windows 2000
Internet Explorer 6.0

Meilleures réponses pour « Excel /lien hypertext pour ouvrir un userform » dans :
Problème pour ouvrir les liens dans Outlook VoirSi Outlook est dans l'impossibilité d'ouvrir un lien hypertexte, ou si les liens dans les messages ouvrent l'explorateur sans charger la page Web, il suffit de suivre l'une des procédures suivantes : Méthode 1 Méthode 2 Méthode 3 Pour...
Problème pour ouvrir les liens dans Thunderbird VoirSi Mozilla Thunderbird est dans l'impossibilité d'ouvrir un lien hypertexte, il suffit de suivre la procédure suivante : lancer Internet Explorer et le mettre comme navigateur par défaut. Le cas échéant, fermer Internet Explorer, puis lancer...
Associer une application à une extension de fichiers VoirAfficher toutes les extensions de fichiers Par défaut, Windows XP masque les extensions dont le type est connu. Pour afficher toutes les extensions : Dans le Poste de travail ou l'explorateur Windows, cliquer sur le menu "Outils" et choisir...

1

amigo, le 19 fév 2008 à 12:50:04

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.

Répondre à amigo

2

chinioun, le 19 fév 2008 à 17:55:07
  • +1

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.

Répondre à chinioun

3

amigo, le 19 fév 2008 à 19:44:21

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.

Répondre à amigo

4

 chinioun, le 20 fév 2008 à 10:35:51

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

Répondre à chinioun
Collection CommentÇaMarche.net