Excel /lien hypertext pour ouvrir un userform

chinioun Messages postés 2 Statut Membre -  
 chinioun -
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

4 réponses

  1. amigo
     
    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.
    2
  2. chinioun Messages postés 2 Statut Membre 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.
    1
  3. amigo
     
    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.
    1
  4. chinioun
     
    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...
    1