Lien depuis une cellule vers une macro

Bonjour à tous.

Comment faire un lien depuis une cellule vers une macro ?

Voilà mon problème :

Je veux que, dans une colonne donnée, il n'y ait que 2 valeurs possibles : A transmettre; Déjà transmis. J'ai donc réglé ce problème avec Données, Validation pour obtenir une liste déroulante automatique sur mes cellules.

Quand c'est "à transmettre" qui est dans la cellule, c'est affiché en rouge et en gras, sinon quand c'est "déjà transmis", c'est en normal et en vert. Ce problème, je l'ai réglé avec une mise en forme conditionnelle toute simple.

http://img341.imageshack.us/img341/3...idationqv5.jpg


Néanmoins, le gros du problème c'est pour changer cette valeur (A transmettre;Déjà transmis).



La manip est la suivante, avec Données Validation :

1. Clic sur la cellule à modifier
2. Attente de l'apparition du curseur de liste sur le côté de la cellule (quelques centièmes de secondes, mais c'est quand même de l'attente !)
3. Clic sur le curseur de liste
4. Déroulement de la liste contenant A transmettre, Déjà transmis
5. Clic sur l'option voulue
Fin : la valeur de la cellule est changée

Mon but c'est de modifier cette manip pour n'obtenir plus qu'une seule étape :
1. Clic sur la cellule à modifier
Fin : la valeur de la cellule est changée.

J'ai donc fait une macro qui change le contenu avec un If, tout simple. Mon but est donc de créer un lien hypertexte vers cette macro, sur la cellule.

Savez-vous comment faire, ou sinon, comment faire autrement pour obtenir mon résultat ?

Merci

Bonjour 512banque,
tu peux mettre ce code dans l'évènement de feuille (clic droit sur onglet/visualiser le code, et y coller ce qui suit)

dès le double-clic dans la cellule, la valeur change

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("E1:E100"), Target) Is Nothing Then 'zone à adapter Target = IIf(Target = "A transmettre", "Déjà transmis", "A transmettre") Cancel = True End If End Sub

---

De plus, si tes cellules ("E1:E10") sont formatées identiquement, si la cellule est vide, la valeur sera automatiquement "A transmettre" par double-clic

En utilisant l'évenement selectionchange

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = "Choix 1" Then Target.Value = "Choix 2" Else Target.Value = "Choix 1" End If   End If   End Sub

---

Merci pour vos réponses rapides :)

jfontaine, est-ce que cela signifie qu'il faut que je crée une macro pour chaque cellule pour laquelle je veux fonctionner ainsi ? Le seul pb également c'est qu'il faut que je sorte de la cellule puis que j'y revienne..

mapeh, ça marche nickel avec le double clic, mais existe-t-il un moyen pour sélectionner le rang en entier plutôt que d'avoir à adapter la zone ?

Merci encore.

Re-,
dans zone à adapter, tu peux évidemment sélectionner toute la colonne

remplace :

Code:

---

If Not Intersect(Range("E1:E100"), Target) Is Nothing Then

---

par :

Code:

---

If Not Intersect(Columns("E:E"), Target) Is Nothing Then

---

magnifique, je suis comblé :D

Merci encore