Executer une macro à partir d'un clic ds une cellule.

Question

Bonjour,
je d&#233;bute en VB sur Excel. J'ai un fichier avec une colonne de nom de personnes. lorsque je clic sur un nom je souhaiterais lancer ma macro en ayant en m&#233;moire la cellule sur laquelle je viens de cliquer. Est-ce possible? Avec un lien hypertexte ou un autre proc&#233;d&#233;...
Jusqu'&#224; maintenant le seul raccourci que j'ai trouv&#233; pour lancer une macro est le ctrl+"_".
Merci par avance pour votre aide.
Greg.

laumasse · Answer

Bonjour,

A ma connaissance, on ne peut pas g&#233;rer l'&#233;venementiel dans excel.

Il faudrait pouvoir appeler une macro depuis une formule de calcul !!!??

erti1711 · Answer

salut,
tu veux faire quoi pr&#233;cis&#233;ment?Peut etre que j'aurai une solution a te proposer selon ce que tu veu faire.

cs_ifix · Answer

Salut,
Mets ce code dans pour ta feuille de calcul, je viens de le tester et je pense que c'est ce que tu avais besoin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target
End Sub

valtrase · Answer

Lut,
Vi ou plus g&#233;n&#233;ral
Ici tu testes si la cellule s&#233;lectionn&#233;e est dans la colonne B si oui tu lance ta macro

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Dedans(Range(ActiveCell.Address), [B:B]) Then Call MaMacro
End Sub
Le code qui suit est &#224; mettre dans un module
Function Dedans(rng1 As Range, rng2 As Range) As Boolean
  Dedans = Not (Intersect(rng1, rng2) Is Nothing)
End Function

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
oupss mieux vaut utiliser Target en lieu et place de ActiveCell &#231;a tourne mais bon .....

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

glebeau · Answer

Merci beaucoup &#224; tous,
j'ai essay&#233; la m&#233;thode de ifix qui marche bien, le seul souci est que ma macro s'execute &#224; chaque clic. Y aurait-il une fonction qui se d&#233;clencherait au double-clic?
Greg.

glebeau · Answer

Merci beaucoup &#224; tous,
j'ai essay&#233; la m&#233;thode de ifix qui marche bien, le seul souci est que ma macro s'execute &#224; chaque clic. Y aurait-il une fonction qui se d&#233;clencherait au double-clic?
Greg.

glebeau · Answer

Pour erti117
Greg.

glebeau · Answer

Pardon, mon ordi bug et fais des trucs bizarre...
Pour erti1711: j'ai un tableau de noms, pr&#233;noms, date de naissance... en ligne. Lorsque je double-clic sur un nom j'aimerais voir s'afficher une form avec des champs remplis des infos de la ligne correspondante au nom. L&#224; o&#249; je bloque, c'est pour appeler ma macro &#224; l'&#233;v&#232;nement double-clic, en gardant en m&#233;moire la cellule sur laquelle j'ai cliqu&#233;.
Greg.

erti1711 · Answer

Salut en faite tu veu automatiser un genre de copier coller:
Moi j'ai fait un ptit programme de ce genre.En faite j'ai cr&#233;er un bouton dans la barre de menu a lakel je lui ai affect&#233; une macro.
Disons que les noms st dans la colonne A,le pr&#233;noms en B,la date de naissance en C.

ligne = ActiveCell.Row  'num&#233;ro de la ligne s&#233;lectionn&#233;e
ActiveSheet.Select      's&#233;lection de la page active
Range("A" & ligne).Select
varNom=Cells("A" & ligne)
varPren=Cells("B" & ligne)
varDateNaiss=Cells("C" & ligne)
Selection.Copy
Form.Show 'ouverture de la form
   ....tu affecte les var cidessus dans les champs ou tu veux que ca apparaissent dans ta form

Oubli pa de d&#233;clarer les var.
Et pour cr&#233;er le bouton dans la barre de menu:
tu fais clique sur ajouter/suppr des boutons->onglet commandes tu choisis macros->tu verra un genre de smileys,tu le d&#233;place ds la barre en haut->avant de fermer la fenetre tu fait clik droit sur le bouton->affecter une macro et apre&#232; fermer.

J'esp&#232;re que ca repond a tes attentes.
Tiens moi au courant.
++

erti1711 · Answer

Au fait,quand tu veux ajouter,il faut toujours s&#233;lectionner un nom puis apr&#232;s tu clik sur le bouton ds la barre.
++

cs_ifix · Answer

Salut
moi je propose que tu gardes l'evenement click mais que tu ne l'executes que dans tes cellules o&#249; il y a tes noms. Par exemple si tes noms sont dans la colonne A (column=1) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        MsgBox Target
    End If
End Sub

Autrement il y a l'&#233;venement BeforeDoubleClick que je viens d'essayer et qui ne m'a pas convaincu ( il faut bien cliquer au centre d'une cellule et pas sur les bordures et puis la cellule prend le focus )
@+

glebeau · Answer

Merci pour ttes vos solution, &#231;a marche!

Greg.

Executer une macro à partir d'un clic ds une cellule.

13 réponses

Discussions similaires