Coloration et inscription automatique dans Excel

pajo1616 Messages postés 113 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
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 !!
0
Réponse 2 / 3
pajo1616 Messages postés 113 Date d'inscription   Statut Membre Dernière intervention   7
 
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
0
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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

0