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

Staple1600

XLDnaute Barbatruc

• 5 Avril 2018

• #2

Bonsoir le fil, le forum

Une solution possible

VB:

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 5 Avril 2018

• #3

Bonjour à tous,

Une solution par MFC

Code:

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

Edit: Bonjour Staple1600

JHA

 

Pièces jointes

• Classeur MFC.xlsx

  11.1 KB · Affichages: 28

Dernière édition: 5 Avril 2018

Vote positif 0 Vote négatif

J

Jérôme DAVOIGNEAU

XLDnaute Nouveau

• 6 Avril 2018

• #4

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,

 

Pièces jointes

• Coloration cellules.xlsx

  86.5 KB · Affichages: 26

Vote positif 0 Vote négatif

J

Jérôme DAVOIGNEAU

XLDnaute Nouveau

• 6 Avril 2018

• #5

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 6 Avril 2018

• #6

Bonjour à tous

voir fichier joint (solution par MFC)

à+
Philippe

 

Pièces jointes

• 111.xlsx

  86.6 KB · Affichages: 24

Vote positif 0 Vote négatif

J

Jérôme DAVOIGNEAU

XLDnaute Nouveau

• 6 Avril 2018

• #7

Merci! A bientôt

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Avril 2018

• #8

Bonsoir le fil, le forum

@Jérôme DAVOIGNEAU

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

Cliquez pour agrandir...

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)

 

Vote positif 0 Vote négatif

J

Jérôme DAVOIGNEAU

XLDnaute Nouveau

• 6 Avril 2018

• #9

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

 

Vote positif 0 Vote négatif