XL 2016 Changement couleur de ligne...

WEIDER

XLDnaute Occasionnel
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.
 

Fichiers joints

soan

XLDnaute Accro
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
 

Fichiers joints

WEIDER

XLDnaute Occasionnel
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...
 

WEIDER

XLDnaute Occasionnel
Fichtre :) Effectivement, cela fonctionne !
Pourquoi cette action pour déclencher la chose !?

Je vais regarder ça en détail et je reviens vers toi....

Merci à toi.
 

soan

XLDnaute Accro
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
 

WEIDER

XLDnaute Occasionnel
OK, je vois ça, car sur mon fichier final, car les colonnes concernées sont différentes...
Du coup, en mettant ton 'module' et en actionnant ta macro, bein... ça grise pas au bonne endroit :rolleyes:
 

soan

XLDnaute Accro
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 Accro
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 Accro
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 Occasionnel
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.
 

soan

XLDnaute Accro
Bonjour @WEIDER,

non, c'est inutile : dis-moi seulement de quelle colonne à quelle colonne ;
par exemple : de G à L ; ça suffira. ;)

et pour les lignes, c'est toujours à partir de la ligne 12 ? ou autre ?


soan
 

WEIDER

XLDnaute Occasionnel
De la colonne AL à AU.
A partir de la ligne 12 oui, jusqu'à...... au moins 200.

L'idéal pour moi, serait que tu mettes des commentaires dans ta macro, histoire de pouvoir la modifier par moi même si nécessaire !

Mille mercis à toi Soan !
 

soan

XLDnaute Accro
@WEIDER

voilà, l'adaptation est faite ! :) compare les 2 codes pour voir les différences ;

la dernière ligne utilisée est détectée automatiquement, donc ça peut être 200 ;
ou moins ; ou plus... même 65 000 ou 1 000 000 ! ;) la seule restriction est
pour la 1ère ligne du tableau ; tu en liras le détail dans mes commentaires.

(j'ai posté le même fichier dans le post #18, avec code VBA commenté)


soan
 

Fichiers joints

Dernière édition:

soan

XLDnaute Accro
@WEIDER

Lis d'abord mon post #17 précédent.

Le fichier joint ci-dessous est celui de mon post #17,
avec beaucoup de commentaires en plus. :)

à te lire pour avoir ton avis. ;)


soan
 

Fichiers joints

WEIDER

XLDnaute Occasionnel
Merci pour ton retour et excuses moi pour mon retard. Ce matin nous étions chez notre notaire pour signer la vente de notre maison ;)
Grosse journée pour nous aujourd'hui.
Je regarde tout ça et te redis...
Merci d'avance !!!!!!!!
 

WEIDER

XLDnaute Occasionnel
Bonjour Soan,

Comment vas tu en ce lundi !

7h30 au boulot, je viens de mettre ta macro dans mon fichier final ! Parfait ! Merci !!!

Crois-tu qu'il soit possible d'ajouter dans cette macro, quelques lignes de commande pour intervenir sur les 4 colonnes 'AN', 'AO', 'AQ' et 'AU' ?
Je m'explique...

Je souhaiterai que les 'MTO CODE', les 'MODELES', les 'TEMPS' ainsi que les 'Tack time' ne soient pas répéter sur chaque ligne s'ils sont identique à ceux de la première ligne.
ATTENTION, il ne faudrait pas les SUPPRIMER ! Car ils sont utiles dans cette 'usine à gaz' pour d'autres calculs.
Non, il faudrait juste que la couleur de la police de caractère soit identique à celle du fond de la cellule.

Vois ma copie d'écran jointe...

Crois tu la chose possible ?!

Excellente journée à toi !
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas