Changement de couleur de cellule avec un click sur Excel ou

rolcholle Messages postés 43 Date d'inscription   Statut Membre Dernière intervention   -  
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   -

   Bonjour

Je reviens vers vous, j'avais fais un tableau sur Google sheets permettant à chacun de mes voisins (une cinquantaine) de savoir qui quitte le domicile au delà de 3 jours, donc le nom de la personne passe en rouge en tapant la lettre A comme absent.

Aujourdhui je voudrai simplifier le fonctionnement en faisant un simple click ou deux pour le changement de couleur Vert ou Rouge.

Est ce quelqu'un peut m'aider

Merci d'avance

Bien cordialement

Roland37

A voir également:

6 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 

Bonjour,

Possible sur simple clic, également sur clic droit mais je te conseille sur double clic pour rester maître du changement de couleur.

Mais cela en VBA uniquement si tu as quelques notions


1
Ce
 

Bonjour

Merci pour la réponse, si je pose la question c'est que je ne connais pas assez, je connais un peu les mises en forme conditionnelles mais pas le code VBA

Bien cordialement 

0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonjour à tous

En combinant une mise en forme conditionnelle  pour mettre en rouge au double-clic et une macro qui au double clic inscrit A si la cellule est vide ou efface si elle contient  A, on a une macro très simple et courte

https://www.cjoint.com/c/LKptuqUhWsx

Cdlmnt

Via


0
Ce
 

Bonjour

Merci, je vais regarder au plus tôt,je vous tiendrai au courant

Bien cordialement

Roland 37

0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 

Re,

Essaye ce bout de code, clic droit sur l'onglet de ta feuille/Visualiser le code, dans la page VBA qui s'ouvre colle ces trois lignes

le code fonctionne sur double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Interior.ColorIndex = 4 Then ActiveCell.Interior.ColorIndex = 3 Else ActiveCell.Interior.ColorIndex = 4
End Sub

ce bout de code s'applique à la feuille entière, il doit s'appliquer à une plage, donne nous les bornes de cette plage pour adapter le code


0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
rolcholle Messages postés 43 Date d'inscription   Statut Membre Dernière intervention  
 

Bonjour

Merci ça  marche ,ce que j'aimerai  avoir c'est  si vert Présent et click Rouge  Absent

Merci d'avance

Bien cordialement

0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonjour

Dans mon exemple il suffit de colorer en vert par défaut toutes les cellules de la 1ere colonnee

Lors du double clic sur une cellule de la 2eme colonne si la cellule est vide la macro inscrit un A  et la MFC colore en rouge, lorsque le A est effacé par un autre double clic la MFC ne s'applique plus et la cellule redevient verte

Cdlmnt

Via

0
rolcholle Messages postés 43 Date d'inscription   Statut Membre Dernière intervention  
 

Rebonjour

J'ai oublié de vous dire que ça ne change pas de couleur

Désolé

Merci

0