Macro s’exécute a la sélection d'une celulle Fermé

Question

Bonjour,

j'aimerai que ma micro macro s’exécute quand je sélectionne n'importe quelle cellule de ma feuille [

Sub Macro1()'' Macro1 MacroSelection.Interior.Color = RGB(255, 255, 0)SendKeys "^(c)", TrueEnd 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

via55 · Answer

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

michel_m · Answer

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"

Macro s’exécute a la sélection d'une celulle

2 réponses

Discussions similaires