XL 2016 Colorer X cellules entre A2 et A20 à partir de la valeur X en A1

[Jérôme DAVOIGNEAU]

Bonsoir,
J'ai un tableau avec en colonne A des chiffres compris entre 1 et 20.
Pour chaque ligne, je souhaite colorer les cellules à partir de la colonne B et après mais seulement autant de fois que le nombre inscrit en colonne A. Comment faire, SVP?

 

[Staple1600]

Bonsoir le fil, le forum

Une solution possible

Sub gribouille()
Dim c As Range
Cells.ColumnWidth = 2
For Each c In Range("a:a").SpecialCells(xlCellTypeConstants, 1)
With c.Offset(, 1).Resize(, c)
.Interior.ColorIndex = 6
.Borders.LineStyle = 1
End With
Next
End Sub

 

[JHA]

Bonjour à tous,

Une solution par MFC

=(COLONNE(B1)-1)<=$A1

Edit: Bonjour Staple1600🙂

JHA

 

[Jérôme DAVOIGNEAU]

Bonjour JHA et Stapple1600,
Je vous remercie pour vos retours. Maintenant, je ne suis pas au niveau.
Pour la solution de Stapple1600, j'ai copié-collé dans macro mais je n'ai pas réussi à faire fonctionner.
Quand à JHA, avec la formule jointe ou le fichier excel, pas plus de succès.
Je suis désolé de ne pas être au niveau.
Puis-je vous demander de mettre la macro en marche dans le fichier joint (Coloration cellules), SVP?
Evidemment, si l'extension du fichier doit être modifiée, allez-y.
Merci,

 

[Jérôme DAVOIGNEAU]

Re-Bonjour,
J'ai refait dans un nouveau doc --> J'ai réussi.
Merci,
Jerome

 

[phlaurent55]

Bonjour à tous

voir fichier joint (solution par MFC)

à+
Philippe

 

[Jérôme DAVOIGNEAU]

Merci! A bientôt

 

[Staple1600]

Bonsoir le fil, le forum

@Jérôme DAVOIGNEAU

J'ai refait dans un nouveau doc --> J'ai réussi.

Quand tu dis que tu as réussi, c'est la solution MFC ou la solution avec macro?

Pour la solution avec macro
1) La macro doit être copiée dans un module standard puis exécutée
(en appuyant sur F5 ou en allant dans l'onglet Développeur puis sur Macros)

2) ton fichier doit être enregistré en *.xlsm (ou *.xls ou *.xlsb mais pas en *.xlsx)

 

[Jérôme DAVOIGNEAU]

Oui avec macro. Je l'ai copiée dans un module et exécutée. Je me suis permis de la modifiée un peu (colonne à utiliser, couleur des cellules, encadrement). Mon fichier est désormais en extension .xlsm. (Je l'avais gardé en xlsx et je n'avais plus de macro...) Merci