Coloration et inscription automatique dans Excel

Fermé
pajo1616 Messages postés 97 Date d'inscription samedi 17 septembre 2016 Statut Membre Dernière intervention 3 mars 2024 - 26 janv. 2020 à 09:41
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 26 janv. 2020 à 11:43
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

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
26 janv. 2020 à 10:05
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
pajo1616 Messages postés 97 Date d'inscription samedi 17 septembre 2016 Statut Membre Dernière intervention 3 mars 2024 7
26 janv. 2020 à 11:23
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
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
26 janv. 2020 à 11:43
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