Excel /lien hypertext pour ouvrir un userform
chinioun
Messages postés
2
Statut
Membre
-
chinioun -
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.
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.
A voir également:
- Excel /lien hypertext pour ouvrir un userform
- Créer un lien pour partager des photos - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Lien url - Guide
- Liste déroulante excel - Guide
4 réponses
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.
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.
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.
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.
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.
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.
