couleur en fonction de couleur

Bonjour Olivier,

dans la fenêtre "Format de cellule", onglet "Remplissage",
cocher cette case : ☑ Caméléon

edit : je me suis trompé ; c'est sur Excel 2075 qu'il y a
cette case à cocher.  :(

rhodo

Bonsoir Olivier,

voici ton fichier Caméléon, la version v1 :

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

* pour n'importe quelle colonne A à P :

sélectionne n'importe quelle cellule de cette colonne et fais Ctrl e

* attention : regarde très attentivement les 2 colonnes J et K :
il y a une différence entre elles.  ;)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA de Module1 (14 lignes) :

Option Explicit

Sub CouleurColonne()
  Dim c%, n&: c = ActiveCell.Column
  n = Cells(Rows.Count, c).End(3).Row
  If n = 1 Then Exit Sub
  Application.ScreenUpdating = 0
  Dim c1 As Interior: Set c1 = Cells(1, c).Interior
  With Cells(2, c).Resize(n - 1).Interior
    If c1.ColorIndex = -4142 Then _
      .ColorIndex = -4142 Else .Color = c1.Color
  End With
End Sub

-----------------------------------------------------------------------------------------

edit du 30 mars à 14:42 : j'ai modifié et amélioré mon fichier
➯ à télécharger de nouveau.

rhodo

Bonjour Olivier,

relis mon post précédent car je l'ai modifié ; tu devras télécharger
de nouveau le fichier car c'est une nouvelle version, la v1.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

voici un lien pour une 2ème version v2 :

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

ce n'est pas une version de remplacement ; c'est une version
différente ; tu verras que le mode d'emploi est différent.  ;)

en effet, cette fois, c'est inutile de sélectionner au préalable
une cellule quelconque d'une des colonnes A à P :

quelle que soit la cellule active, fais Ctrl e

(pour les 2 colonnes J et K : même différence que pour v1)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA de Module1 (21 lignes) :

Option Explicit

Dim m&, c%

Sub Job()
  Dim n&: n = Cells(m, c).End(3).Row
  If n = 1 Then Exit Sub
  Dim c1 As Interior: Set c1 = Cells(1, c).Interior
  With Cells(2, c).Resize(n - 1).Interior
    If c1.ColorIndex = -4142 Then _
      .ColorIndex = -4142 Else .Color = c1.Color
  End With
End Sub

Sub CouleurColonnes()
  Dim k%: m = Rows.Count
  k = Cells(1, Columns.Count).End(1).Column
  Application.ScreenUpdating = 0
  For c = 1 To k: Job: Next c
End Sub

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

note n° 1, qui est valable pour les deux versions v1 et v2 :

bien sûr, si dans ton fichier réel la 1ère ligne des colonnes est
autre que la ligne n° 1, il faudra adapter le code VBA.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

note n° 2, qui est valable uniquement pour la version v2 :

il n'y a pas besoin de modifier le code VBA si tu ajoutes des
colonnes : ça s'adapte automatiquement par rapport à la
dernière colonne utilisée ; par contre, si la 1ère colonne est
autre que la colonne A : si par exemple c'est à partir de la
colonne E : For c = 5 To k: Job: Next c

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.  :)

rhodo

Bonjour à tous,

on est le 6 avril, et toujours pas de réponse d'Olivier DP.  :(
ça fait plaisir !  :(  peut-être qu'il s'est désintéressé de son
sujet ? ou qu'il est trop occupé par des affaires persos
pour venir répondre ?

---------------------------------------------------------------------------------------

dans mon post du 29 mars à 23:56, j'avais écrit :
« attention : regarde très attentivement les 2 colonnes J et K :
il y a une différence entre elles.  ;) »

dans mon post du 30 mars à 15:10, j'avais écrit :
« (pour les 2 colonnes J et K : même différence que pour v1) »

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

comme personne n'a demandé quelle était cette différence,
je suppose que tout l'monde a compris laquelle c'était.  ;)

cette différence est assez subtile ; pour certains, c'est évident ;
pour d'autres, ça l'est moins ; alors pour ceux qui n'ont pas
trouvé : n'hésitez pas à demander.  :)

rhodo