Comment associer une macro à une cellule?
Résolu
gcrahes
Messages postés
12
Statut
Membre
-
gcrahes Messages postés 12 Statut Membre -
gcrahes Messages postés 12 Statut Membre -
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
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
- Liste déroulante excel - Guide
2 réponses
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
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
Statut
Membre
oui, pardon, mauvais copier coller de la formule mais oui, c'était bien "$B$21" dans l'exemple :)