je finalise une petit fichier de gestion de chambres, si j'ai bien avancé (merci à néné au passsage), j'aurais besoin de 2 petis coups de main, en fait j'aimerais:
- d'une part afficher les renseignements contenus dans la cellule, à condition qu'elle en contienne, dans une msgbox en cliquant sur la cellule.
- d'autre part, pourvoir modifier la couleur de rouge à vert, si bien sur la couleur est rouge, et au moyen d'un double clic.
c'est la relation clic sur cellule et action en résultant que je ne maitrise pas.
pas ouvert ton fichier, mais regarde peut être ceci pour ta 1ère question, se déclenche sur double click, code à placer dans le module de la feuille concerné :
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not IsEmpty(Target) Then MsgBox Target
End Sub
pour les couleurs, peut être rajouter ceci, index des couleurs à adapter :
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not IsEmpty(Target) Then MsgBox Target
With Target.Interior
.ColorIndex = IIf(.ColorIndex = 3, 11, 3)
End With
End Sub
J'aurais mis le code dans le ThisWoorkbook vu qu'il y a plusieurs Feuilles
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveCell <> "" Then Cancel = True: ActiveCell.Interior.ColorIndex = IIf(ActiveCell.Interior.ColorIndex = 4, 3, 4): MsgBox ActiveCell
End Sub
Bonjour Pierrot ifi77 le forum
ton fichier en retour, mais ta demande ne peut pas donner de bon résultat, car si tu veux à la selection d'une cellule le message box, fatalement quand tu voudras changer la couleur avec ton double click tu auras d'abord ton message box !!!
pas bien mais j'ai répondu à ta demande
a+
Papou
PS: une autre solution et de changer la couleur sur un click droit par exemple
Bonjour, Pierrot, Dull et Paritec, tout d'abord merci, encore une fois vous m'avez été d'un grand secours.
Pour revenir sur le commentaire de PARITEC, il est vrai que cela peut engendrer un problème de faire clic ou double clic.
Ta proposition de valider par un clic droit me plait, comment faire alors pour avoir le choix entre valider ou afficher détails.
Sinon, lorsque la cellule est verte, je peux la passer en rouge en double cliquant, comment l'empecher?
Bonne soirée,
je me permets de vous demander dernier coupe de pouce pour cette aplli, (je l'espère), voila, après avoir tout adapté, il me restait la suppressionen double cliquant sur la cellule, cependant j'ai un probleme pour remettre la couleur pour l'ensemble des cellules défussionnées.
Le code est dans le thisworkbook, si vous avez le temps de regarder, merci encore.