Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

REPT et couleur

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

Kahyasse

XLDnaute Nouveau
Bonjour,

Je cherche actuellement à mettre en place des barres de "conformité" dans un fichier excel.
En faite j'ai trois catégorie C (Conforme), NC (Non Conforme) et AV (A Vérifier).
Chacune est représentée par un pourcentage et le total des trois fait 100%.
Pour l'instant j'ai réussi à effectué une barre de conformité prenant en compte chacun des pourcentage avec la fonction REPT:
=REPT("l";D3)&REPT("l";E3)&REPT("l";F3)
Le seul problème qu'il me reste est le changement de couleur entre les REPT. En effet je voudrais que les "l" par rapport à D3 soit Vert, les "l" par rapport à E3 rouge et les "l" par rapport à F3 gris.
Maintenant je crois pas que cela soit faisable par les formules mais peut-être par VBA alors j’attends votre aide car malgré mes recherches je n'ai pas trouvé se que je voulais.

Merci d'avance pour votre aide.

Kahyasse
 

Pièces jointes

Trier par date Trier par votes
Re : REPT et couleur

Merci ralph45 pour ta réponse

l'idée est bonne mais je chercher vraiment des barres de conformités en face de chaque textes afin de pouvoir les classer par ordre de pourcentage croissant ou inversement lorsque tout mes textes seront présent.
J'ai déjà testé de mettre des graphes en face de chaque textes mais lors du tri, ces graphiques disparaissent ou ne suivent pas les lignes.

A plus...

Kahyasse
 
Vote positif 0 Vote négatif
Re : REPT et couleur

Bonjour à tous,

Un essai en VBA avec ce code (bien que j'adore la proposition de Ralph 🙂 )

Code: 
Sub Macro1()
Dim c As Range
Dim Serie1 As Long, Serie2 As Long, Serie3 As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
    .Range("G2:G" & .Cells(Rows.Count, 7).End(xlUp).Row) = .Range("G2:G" & .Cells(Rows.Count, 7).End(xlUp).Row).Value
    For Each c In .Range("G2:G" & .Cells(Rows.Count, 7).End(xlUp).Row)
        Serie1 = c.Offset(0, -3)
        Serie2 = c.Offset(0, -2)
        Serie3 = c.Offset(0, -1)
 
        With c.Characters(Start:=1, Length:=Serie1).Font
            .Color = -11489280
        End With
        With c.Characters(Start:=Serie1 + 1, Length:=Serie2).Font
            .Color = -16776961
        End With
        With c.Characters(Start:=Serie1 + Serie2 + 1, Length:=Serie3).Font
            .Color = -4165632
        End With
    Next c
End With
Application.ScreenUpdating = True
End Sub

Bonne journée ,

mth
 
Dernière édition:
Vote positif 0 Vote négatif
Re : REPT et couleur

Bonjour mth et merci pour ta réponse.

J'ai testé ton code en VBA mais j'ai le message d'erreur suivant qui apparait:

Erreur d'execution '13'
Incompatibilité de type

Merci d'avance pour ta réponse

Kahyasse
 
Vote positif 0 Vote négatif
Re : REPT et couleur

RE mth,

Petit souci en fait. J'ai pu voir que ton code ne prend en compte que les 6 premières ligne du tableau. Comment je dois faire pour changer ceci et que la procédure aille jusqu’à la fin lorsque je rajoute des lignes.

Merci d'avance pour ton aide

Kahyasse
 
Vote positif 0 Vote négatif
Re : REPT et couleur

re 🙂

Non, le code prend en compte l'intégralité des cellules remplies de la colonne G, pour la mise en couleur.
En revanche, il faut que les formules REPT soient présentes avant l'exécution du code, ce qui pour l'instant n'est pas fait.
Souhaites-tu que le code gère également l'insertion de la formule jusqu'à la dernière ligne renseignée?

@ +

mth
 
Vote positif 0 Vote négatif
Re : REPT et couleur

re 🙂

Au cas où essaie ainsi:

Code: 
Sub Macro1()
Dim c As Range
Dim Serie1 As Long, Serie2 As Long, Serie3 As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
     .Range("G2:G" & .Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = _
        "=REPT(""l"",RC[-3])&REPT(""l"",RC[-2])&REPT(""l"",RC[-1])"
    .Range("G2:G" & .Cells(Rows.Count, 7).End(xlUp).Row) = .Range("G2:G" & .Cells(Rows.Count, 7).End(xlUp).Row).Value
    For Each c In .Range("G2:G" & .Cells(Rows.Count, 7).End(xlUp).Row)
        Serie1 = c.Offset(0, -3)
        Serie2 = c.Offset(0, -2)
        Serie3 = c.Offset(0, -1)
 
        With c.Characters(Start:=1, Length:=Serie1).Font
            .Color = -11489280
        End With
        With c.Characters(Start:=Serie1 + 1, Length:=Serie2).Font
            .Color = -16776961
        End With
        With c.Characters(Start:=Serie1 + Serie2 + 1, Length:=Serie3).Font
            .Color = -4165632
        End With
    Next c
End With
Application.ScreenUpdating = True
End Sub

@ +

mth
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Question Question
XL 2019 Code couleur automatisé
Réponses
2
Affichages
490
JHA
J
C
  • Question Question
Autres Apprentissage d'une langue : adapter la couleur des cellules en fonction du pourcentage d'évaluation
Réponses
2
Affichages
574
crocrocro
C
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
980
Oneida
T
  • Résolu(e)
Microsoft 365 Fichier Excel trop lourd (transformer mes formules en macro?)
Réponses
5
Affichages
1 K
Thomexcel
T
L
  • Résolu(e)
Microsoft 365 UserForm pour choix chantiers et modif dans planning
2 3
Réponses
38
Affichages
4 K
lolo_excelbeginner
L
L
  • Question Question
Microsoft 365 UserForm pour associer couleurs et chantiers aux cases
Réponses
0
Affichages
669
lolo_excelbeginner
L
U
  • Résolu(e)
XL 2019 aide macro couleur
Réponses
2
Affichages
927
unijambiste
U
F
  • Résolu(e)
Microsoft 365 Calcul couleur differente par colonne
Réponses
4
Affichages
765
Fressard Pierre
F
A
  • Question Question
XL 2019 Double click et couleur
Réponses
4
Affichages
566
aziz
A
A
  • Question Question
XL 2013 Formule EXCEL pour comparaison des fournisseurs moins-distant
Réponses
5
Affichages
4 K
Amine05
A
D
  • Question Question
XL 2016 Formulaire permettant de masquer et/ou d'afficher une ligne VBA en fonction d'un caractère et/ou d'une couleur
Réponses
9
Affichages
2 K
doby
D
S
  • Question Question
XL 2010 copier coller colonne paire et impaire dans nouveau fichier
Réponses
4
Affichages
3 K
staros
S
L
  • Question Question
XL 2016 Incrémenter la valeur d'une cellule par rapport à une autre
Réponses
9
Affichages
2 K
laurent54000
L
D
  • Question Question
XL 2016 Couleur dans une cellule
Réponses
2
Affichages
782
James007
F
  • Question Question
Microsoft 365 Aide à la construction d'un tableur de contrôle de données avec des formules uniquement.
Réponses
1
Affichages
848
fredd
F
J
  • Question Question
Microsoft 365 Décaler une date calculée si jours fériés, samedi ou dimanche
Réponses
5
Affichages
4 K
jesustherockstar
J
F
  • Question Question
XL 2016 mise conditionnelle mettre couleur dominante
Réponses
2
Affichages
557
flexi2202
F
P
  • Question Question
XL 2016 Taux de fidélité et TCD
2
Réponses
17
Affichages
3 K
parades
P
W
  • Question Question
XL 2016 Excel code couleur et tri proposition excel matching (débit = crédit)
Réponses
2
Affichages
2 K
WTF
F
  • Question Question
XL 2013 Regrouper et format fraction avec même dénominateur
Réponses
6
Affichages
3 K
Francis200
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…