Macro s’exécute a la sélection d'une celulle
Lohoo
Messages postés
20
Statut
Membre
-
Lohoo Messages postés 20 Statut Membre -
Lohoo Messages postés 20 Statut Membre -
Bonjour,
j'aimerai que ma micro macro s’exécute quand je sélectionne n'importe quelle cellule de ma feuille [
j'ai fouiné a gauche a droite mais n’étant pas un spécialiste d'excel VBA je n'ai pas trouvé de code correspondant.
par avance merci
j'aimerai que ma micro macro s’exécute quand je sélectionne n'importe quelle cellule de ma feuille [
Sub Macro1()
'
' Macro1 Macro
Selection.Interior.Color = RGB(255, 255, 0)
SendKeys "^(c)", True
End Sub
j'ai fouiné a gauche a droite mais n’étant pas un spécialiste d'excel VBA je n'ai pas trouvé de code correspondant.
par avance merci
2 réponses
-
Bonjour
Macro à mettre dans le worksheet de la feuille correspondante (ouvrir editeur VBA - double-clic sur la feuille dans l'arborescence - copier coller la macro)Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Interior.Color = RGB(255, 255, 0) SendKeys "^(c)", True End Sub
Par contre la cellule reste colorée
Si tu veux qu'en sélectionnant ensuite une autre cellule la1ere redevienne normale il faut mettre cette macro :Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.Interior.Color = RGB(255, 255, 0) SendKeys "^(c)", True If der = "" Then der = "$A$1" Range(der).Interior.Pattern = xlNone der = Target.Address End Sub
puis dans l'éditeur VBA faire Insertion - Module et dans la page blanche entrer :Public der As String
Cdlmnt
Via
-
Bonjour,
remarque comme la macro se déclenche lorsqu'on sélectionne une cellule (target), il rst inutile d'utiliser
SendKeys "^(c)", True
comme la sa cellule est sélectionnée (target)il est inutile de préciser "selection"
