coloration et inscription automatique dans Excel Fermé

Question

Bonjour, 
J'aurais besoin de faire qu'en cliquant sur une case, sur n'importe quelle case d'une ligne horizontale, la case se colore de telle couleur définie, et qu'un nombre (prédéfini) s'inscrive dans cette case.
Je l'avais fait, voilà des années, (!) mais je ne sais plus ! 
merci

PS : j'ai posé d'autres questions sur CCM, mais je n'ai jamais obtenu la fenêtre pour y répondre, en cliquant sur "répondre" ! ? :-(

Configuration: Windows / Chrome 79.0.3945.130

M-12 · Answer

Bonjour

la case se colore de telle couleur définie, et qu'un nombre (prédéfini) s'inscrive dans cette case.

Sans connaitre la couleur définie et le nombre prédéfini, dur, dur !!

pajo1616 · Answer

ah ! j'ai -enfin- la fenêtre pour répondre !

disons que, en cliquant sur une case de la ligne... 10 par exemple, je voudrais que cette case se colore en vert et que le nombre 1 s'écrive sur cette case.
j'aurais ainsi plusieurs lignes (8) programmées de façon que, pour la ligne 9, ce serait marron et 2 etc...
La méthode serait bien sûr à appliquer à chaque ligne avec choix de couleur/nombre différent pour chaque.
On m'avait donné la méthode pour créer ces macros, mais il y a longtemps !! 

merci

cs_Le Pivert · Answer

Bonjour,

Faire Alt F11 sur la feuille concernée pour accéder à l'éditeur.Copier ce code dans le module.
Cela se déclenchera au double clic sur la ligne concernée 
 
Option Explicit
'https://www.excel-pratique.com/fr/vba/couleurs.php
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A1:G50")) Is Nothing Then 'adapter la plage
Select Case Target.Row
Case Is = 15
Target.Interior.ColorIndex = 3 'rouge
Target.Value = "15"
Case Is = 10
Target.Interior.ColorIndex = 6 'jaune
Target.Value = "10"
'faire la même chose pour les autres lignes
End Select
End If
End Sub


voir les codes couleurs

https://www.excel-pratique.com/fr/vba/couleurs.php

Coloration et inscription automatique dans Excel

3 réponses

Discussions similaires