Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

déclencher une action par un clic sur une cellule ?.....

  • Initiateur de la discussion Initiateur de la discussion Topito
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Topito

XLDnaute Nouveau
comment puis-je faire pour déclencher une action par un clic sur une cellule en vba excel 2007?

je voudrai, par exemple, faire en sorte que si la cellule est rouge en cliquant dessus elle devienne blanche ou jaune ou bleue....

quelles solutions les plus simples pouvez-vous me proposer, sachant que je commence seulement à me mettre à vba et que j'imagine ainsi progresser en faisant un petit jeu tout simple et tout bête de réflexion....
 
Re : déclencher une action par un clic sur une cellule ?.....

Bonjour,

avec l'evenement 'sur changement ' de ta feuille comme ceci :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 3
End Sub
tu changes la cellule selectionnée en couleur rouge.

Mais cela agit sur toutes les cellules sans exception.
 
Re : déclencher une action par un clic sur une cellule ?.....

Bonjour à tous,

En effet Michel, j'y avais pas pensé... encore faut-il que la sélection change, et donc qu'on ne reclique pas sur la cellule déjà sélectionnée.
 
Re : déclencher une action par un clic sur une cellule ?.....

Merci à tous car grâce à vous le code suivant fonctionne...
il ne me reste plus qu'à l'adapter pour arriver à ce que je veux....

"Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' trouvé sur developpez.com -- club d'entraide des développeurs francophones
' grace à Forums de Excel Downloads sur excel-downloads.com
Dim Plage As Range

If Target.Cells.Count > 1 Then
MsgBox "Sélectionnez une seule cellule."
Exit Sub
End If


Set Plage = Range("B5:E20")

If Application.Intersect(Target, Plage) Is Nothing Then
MsgBox "Hors cible."
Else
MsgBox "Dans la cible."
End If

End Sub"
 
Re : déclencher une action par un clic sur une cellule ?.....


Merci Larson... j'ai profité aussi de ton info....
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…