Macro s’exécute a la sélection d'une celulle
Lohoo
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
Lohoo Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Lohoo Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro s’exécute a la sélection d'une celulle
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
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)
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 :
puis dans l'éditeur VBA faire Insertion - Module et dans la page blanche entrer :
Cdlmnt
Via
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"
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"
j'ai une autre question qui mets venu du coup ;) est il possible avec sendkeys de simuler un alt- tab afin de basculer sur un autre logiciel ou je dois coller ce que je viens de copier dans excel ?
merci