Comment associer une macro à une cellule?

Résolu/Fermé

Macro

gcrahes Messages postés 12 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 5 octobre 2014 - Modifié par gcrahes le 22/05/2014 à 09:23
gcrahes Messages postés 12 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 5 octobre 2014 - 23 mai 2014 à 00:43

Bonjour,

Je souhaiterais pouvoir affecter une macro à une cellule de mon classeur Excel. J'ai pu voir comment cela se faisait :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "e;$B$21"e; Then MsgBox "e;exécuter la macro"e;
End Sub

Toutefois, je cherche un fonctionnement plus avancé.
Selon la donnée dans l'une des cellules de la colonne A, la cellule B correspondant peut être cliquable, ou pas.
Ce que je cherche à faire :
- si la cellule Ax = "e;A"e; alors une macro est associée à la cellule Bx.
- si la cellule Ay <> "e;A"e; alors aucune macro n'est associée à la cellule By.

Si quelqu'un peut me dépanner du coup, ce serait sympa.

Gwen

A voir également:

Affecter une macro à une cellule
Aller à la ligne dans une cellule excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Verrouiller une cellule excel - Guide
Excel récupérer couleur cellule sans macro ✓ - Forum Bureautique

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 111
22 mai 2014 à 09:50

Bonjour,

ce code
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "e;$B$21"e; Then MsgBox "e;exécuter la macro"e;
End Sub"

ne peut fonctionner en l'état, explique simplement tes attentes en clair en utilisant des adresses cellule en clair et éviter des "Ax = "e;A"e;"

ce sera plus facile pour nous d'interpréter la demande

gcrahes Messages postés 12 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 5 octobre 2014
23 mai 2014 à 00:32

oui, pardon, mauvais copier coller de la formule mais oui, c'était bien "$B$21" dans l'exemple :)

Réponse 2 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
22 mai 2014 à 10:53

Bonjour,

Après avoir enlevé les "e;" et autres "e", on parvient à comprendre :D
Essaie avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$21" And Range("A21") = "A" Then MsgBox "exécuter la macro"
End Sub

A+

gcrahes Messages postés 12 Date d'inscription mercredi 9 octobre 2013 Statut Membre Dernière intervention 5 octobre 2014
23 mai 2014 à 00:43

Ca y est, j'ai trouvé :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 20 To 22
Cell_Target = "$B$" & i
Cell_Controle = "$A$" & i
If Target.Address = Cell_Target And Range(Cell_Controle) = "A" Then MsgBox "Gagné!!!"
Next
End Sub

Merci Gyrus

Discussions similaires

Faire clignoter des cellules sur excel

VBA : Copier valeur de cellules dans une autre feuilles

Macro dupliquant une ligne si une cellule contient tel caractère

Executer macro si telle cellule contient tel texte

insérer contenu d'une cellule dans pied de page

Macro Liée au changement de la valeur d une cellule