Faire une diagonale en couleur

[bloomby]

Bonjour,

j'aimerais Créer une diagonale en Jaune (de la cellule A1 à la cellule ZZZ10000)
Bref, le max que Excel2007 permet

Le haut de la diagonal en bleu
et le bas en noire, comme dans l'exemple;

j'ai commencé et je me suis dit que si quelqu'un serait capable de créer une macro pour faire cette tâche, je gagnerais beaucoup de temps 🙂

Merci

 

[mfb]

Re : Faire une diagonale en couleur

Bonjour le Forum.
Bloomby voici sur le fichier joint un début de solution.
Pour balayer le champ que tu souhaites il faudra adapter les données.
A+
Daniel

 

[BOISGONTIER]

Re : Faire une diagonale en couleur

Bonjour,

Voir PJ

JB

 

[bloomby]

Re : Faire une diagonale en couleur

Bonjour mfb,
Bonjour Boisgontier,

J'ai du mal m'expliquer, car se que je désire est vraiment comme le présente mon fichier
lorsque je dit une diagonal c'est la Cellule A1,B2,C3,D4,E5 .... (en couleur jaune)

Par la suite les cellule situé au dessus de la diagonal donc: B1,C1,C2,D1,D2,D3 ... En bleu
les cellules situé en dessous de la diagonal: A2,A3,A4,A5,B3,B4,B5,C4,C5 ... En Noire

Merci

 

[mfb]

Re : Faire une diagonale en couleur

Bonjour dominical à tous.
Bloomby regarde la PJ.
J' espère que cela corresponds à ce que tu recherches car je n'ai pas pu ouvrir ton fichier qui est en xls.x.

Pour la macro il y a peut être mieux à faire mais que veux tu !!!!

Bon dimanche
A+
Daniel

 

[mfb]

Re : Faire une diagonale en couleur

Re,
Voir la solution 2 qui est + simple.
A+
Daniel

 

[pierrejean]

Re : Faire une diagonale en couleur

bonjour a tous

Ma version (je regarde les votres)

Sub diagonale()
Application.ScreenUpdating = False
For m = 5 To [COLOR=blue]255[/COLOR]
  Range(Cells(m - 4, 1), Cells(m - 4, m - 1)).Interior.ColorIndex = 1
  Cells(m - 4, m).Interior.ColorIndex = 6
  Range(Cells(m - 4, m + 1), Cells(m, [COLOR=blue]256[/COLOR])).Interior.ColorIndex = 8
Next m
Range(Cells([COLOR=blue]252[/COLOR], 1), Cells([COLOR=blue]65536[/COLOR], [COLOR=blue]256[/COLOR])).Interior.ColorIndex = 1
Cells([COLOR=blue]252[/COLOR], [COLOR=blue]256[/COLOR]).Interior.ColorIndex = 6
Application.ScreenUpdating = True
End Sub

Arf !!!
A la relecture, je m'aperçois qu'il est question de 2007
Les nombres en bleu devront etre adaptés (256 etant le max de colonnes et 65536 etant le max de lignes : version 2000)

 

[mfb]

Re : Faire une diagonale en couleur

Re Tatous,
Pierre Jean tu n' as pas du apprendre grand chose en regardant mon fil
contrairement à moi ou j' ai appris grâce au tien quand ajoutant
"Application.ScreenUpdating = False etTrue"
que tous les "sauts" d'écran au cours du déroulement de ma macro
pouvaient disparaitre.
Alors merci Pierre Jean
ainsi je quitte ce fil et me dirige vers la sieste.
A+
Daniel