Comment associer une macro à une cellule?

Résolu

Macro

gcrahes Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
gcrahes Messages postés 12 Date d'inscription Statut Membre Dernière intervention - 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 excel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Déplacer une colonne excel - Guide
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Bloquer une cellule excel - Guide

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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 Statut Membre Dernière intervention

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 Statut Membre Dernière intervention 526

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 Statut Membre Dernière intervention

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

Extraction de données fichiers Excel via macro

Sortir de la macro si annuler

Fermer Excel après exécution des macros

Faire clignoter des cellules sur excel

VBA : Copier valeur de cellules dans une autre feuilles

Macro Copier/coller à la suite

Votre réponse

Discussions similaires