Lancer code Vba des la selecion d'une cellule

Bonjour, tout est dans le titre j'aimerai savoir si on pouvait lancer un certain code vba des qu'une certaine cellule est sélectionnée. En fait, le but est de créer un sommaire dans mon Excel. Ainsi des qu'on cliquera sur la cellule en question je lancerai un code qui va parcourir mon tableur et si le texte de ma cellule est le même qu'un dans le tableur, je vais sélectionner cette cellule.
Merci d'avance, bonne journée

Sélectionnez votre feuille
Faites un clic droit sur le nom de la feuille
Choisissez "View Code" ("voir Code" devrait être le titre français, ou qq chose de similaire)
Vous n'avez plus qu'à écrire les instructions VBA que vous voudrez

re

dans le module de la feuille

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'le code que tu veux executer 'ou 'les appels de sub que tu veux End Sub

---

Merci a vous deux!
Mon code marche bien mais il ne se lance pas a chaque fois que je clique sur la dite cellule. Savez vous comment régler ce problème? Voici mon code (c'est juste un essaie et pas mon code finale :lol:

Code:

---

1 2 3 4 5 6 7

Sub Worksheet() If ActiveCell = Range("B6") Then MsgBox "wapiti" End If   End Sub

---

re
non

Code:

---

if cells(2,6) is selected then

---

oui

Code:

---

if activecell.address=cells(2,6).address

---

Merci ca marche!

re
on pourrait voir ton code du selection_change j'ai un doute sur le fait que tu mouline pour rien
car l'évènement selection_change contient le "Target" qui représente la cellule active

Citation:

---

Envoyé par patricktoulon

re
on pourrait voir ton code du selection_change j'ai un doute sur le fait que tu mouline pour rien
car l'évènement selection_change contient le "Target" qui représente la cellule active

---

voici on code

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Address = Cells(6, 2).Address Then MsgBox "wapiti" End If   End Sub

---

re
c'est bien ce que je pensait

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If target.Address = Cells(6, 2).Address Then MsgBox "wapiti" End If End Sub

---