Coloration et inscription automatique dans Excel

pajo1616 Messages postés 121 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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

3 réponses

  1.
    M-12 Messages postés 1349 Statut Membre 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
  2. pajo1616 Messages postés 121 Statut Membre 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
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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