XL 2016 Changement couleur de ligne...

WEIDER

XLDnaute Impliqué
Bonjour à toutes et tous,

Je n'arrive pas à trouver la bonne formule à condition, compliquer pour mois mais certainement très simple pour vous :)
Pouvez vous m'aider s'il vous plait ?

Tout est expliqué dans mon fichier joint.

D'avance mille merci pour vos réponses.

Bonne journée à vous.
 

Pièces jointes

  • exemple.xlsx
    20.7 KB · Affichages: 23

soan

XLDnaute Barbatruc
Inactif
Bonjour WEIDER, JHA,

Une proposition sans colonne supplémentaire, sans MFC,
avec une macro VBA, et servie sur un plateau. :p

fais Ctrl e ➯ travail effectué :)

VB:
Option Explicit

Sub Essai()
  Const color1& = 15921906 'gris clair
  Const color2& = 14211288 'gris foncé
  Const tc& = color1 + color2
  Dim mdl$, color&, lg1&, lg2&, lig&: Application.ScreenUpdating = 0
  lg1 = [D20].End(3).Row: lg2 = Cells(Rows.Count, 4).End(3).Row
  Range(Cells(lg1, 1), Cells(lg2, 10)).Interior.color = color1
  mdl = Cells(lg1, 4): color = color2
  For lig = lg1 To lg2
    With Cells(lig, 1)
      If .Offset(, 3) <> .Offset(-1, 3) Then color = tc - color
      If color = color2 Then .Resize(, 10).Interior.color = color
    End With
  Next lig
End Sub
soan
 

Pièces jointes

  • exemple.xlsm
    21.9 KB · Affichages: 13

WEIDER

XLDnaute Impliqué
Bonjour JHA,

Ta solution est visuellement bonne, mais je n'arrive pas à l'appliquer sur mon fichier final de 5Mo.
En faite, les cellules sur lesquelles je dois intervenir ont déjà des formules...

Il me faudrait de 'plus simple' à appliquer.... Je ne sais pas si c'est possible :(

SOAN, merci, je regarde ta solution...
 

soan

XLDnaute Barbatruc
Inactif
Image.jpg


soan
 

soan

XLDnaute Barbatruc
Inactif
on s'est croisés ; j'ai mis l'image sur mon post ci-dessus. :)

c'est souvent que je lance une macro avec un raccourci clavier
comme Ctrl e : c'est plus simple que d'ajouter un bouton ou
une forme, et de cliquer dessus. ;)


soan
 

soan

XLDnaute Barbatruc
Inactif
ah oui, mais ça, c'était à toi de fournir un fichier représentatif de ton vrai fichier !!! :rolleyes:
donc tu aurais dû mettre un fichier exemple avec les mêmes colonnes à griser. ;)

donc maint'nant, il te reste plus qu'à adapter la macro aux nouvelles références
de colonnes, et la macro fera le travail que tu en attends. :)


soan
 

soan

XLDnaute Barbatruc
Inactif
ajout : dans ton post #10, tu as juste indiqué que les colonnes sont différentes !!!
tu n'as même pas indiqué lesquelles ! VBA et moi, nous n'avons aucun pouvoir
de télépathie pour deviner quelles sont les bonnes colonnes à griser dans ton
vrai fichier ; mais si tu me donnes ce renseignement, je pourrai t'indiquer les
changements à faire dans la macro. ;)


soan
 

soan

XLDnaute Barbatruc
Inactif
Bonjour @WEIDER,

c'est ok ? tu as réussi à adapter la macro ? si oui, merci de passer le sujet en résolu ;
sinon, tu peux me demander de faire l'adaptation pour toi : envoie un fichier avec
un tableau qui soit sur les bonnes colonnes, et je ferai le nécessaire. :)


soan
 

WEIDER

XLDnaute Impliqué
Bonjour Soan,

Le truc, c'est que mon fichier final est beaucoup trop important (en taille) pour être mis en pièce jointe. De plus il s'agit d'un fichier de mon travail, donc sensible...
Merci beaucoup de bien vouloir m'aider à transposer ton travail sur ce fichier !
Je vais relever les intitulés des colonnes concernées par ta macro et te redis ça au plus tôt !
Excellent samedi à toi Soan.
 

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86