VBA programme création de diagonales

[vbaprogramstu]

Bonjour,
Je souhaiterai créer un programme qui permet de créer une diagonale dans un sens puis une seconde diagonale dans l’autre sens en noircissant les cellules.
Pourriez-vous m’aider sur ce programme.
Merci d’avance.

[Johnny]

Hello,

Difficile de t’aider sans un fichier de savoir exactement où est ce que tu souhaites cette diagonale

sinon ça donne simplement ça et encore lol

teste.xlsm (26,4 Ko)

[vbaprogramstu]

Bonsoir,

Merci beaucoup, le script est sympa je vais essayer de m’en inspirer.

En espérant que cela fonctionne, je te joins deux captures de ce que je souhaite.

[vbaprogramstu]

Voici la base avec le cadre que j’utilise.

BASE DIAG DESS.xlsm (17,2 Ko)

[Johnny]

Hello,

Teste et dis moi

Belle journée

BASE DIAG DESS.xlsm (24,7 Ko)
*

[vbaprogramstu]

Bonjour,

Le programme colore toutes les cellules en noir sur mon PC.
N’avez-vous pas une méthode plus simple qui permet de colorier la cellule à l’aide des coordonnées ? En utilisant par exemple la fonction « Cells(i, j).Interior.Color » pour colorier la cellule ?

Merci

[vbaprogramstu]

Car actuellement j’utilise Cells(1, 1).Interior.Color" puis Cells(2, 2).Interior.Color" mais cela est très fastidieux.