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

Colorier lignes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion yves03
  • Date de début Date de début

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
Y

yves03

XLDnaute Occasionnel
Bonsoir à tous,

J'ai cette macro qui me permet de colorier une ligne selon des criteres.
Mais je ne voudrais pas colorier toute la ligne , je voudrais colorier de la colonne A à la colonne AG
Merci d'avance de votre aide.


Code: 
Sub Accredite()
' Colorier en bleu ligne Ind, cofrac, accredite
Application.ScreenUpdating = False
Sheets("MP").Select
Range("O2:O5000").Select
For Each o In Selection
If o.Value = "ind" Or o.Value = "IND" Or o.Value = "IND COFRAC" Or o.Value = "ACCREDITE" Or o.Value = "cofrac" Then
    
o.EntireRow.Interior.ColorIndex = 8
End If
Tri.CommandButton1.SetFocus
Range("A2").Select
Sheets("Accueil").Select
Next
Application.ScreenUpdating = True
End Sub
 
Trier par date Trier par votes
Re : Colorier lignes

Bonsoir yves03,

Pour cela, il te suffit de remplacer :
Code: 
o.EntireRow.Interior.ColorIndex = 8

par :
Code: 
Range(cells(o.Row, 1),cells(o.Row, 33)).Interior.ColorIndex = 8

et le tour est joué.

Bonne fin de soirée
 
Vote positif 0 Vote négatif
Re : Colorier lignes


Bonjour,
J'ai bien remplacé la ligne

Code: 
o.EntireRow.Interior.ColorIndex = 8
par

Code: 
Range(cells(o.Row, 1),cells(o.Row, 33)).Interior.ColorIndex = 8

Mais ça ne fonctionne pas, il n'y a plus rien qui passe en couleur.
Si quelqu'un a une idée.
Merci d'avance
 
Vote positif 0 Vote négatif
Re : Colorier lignes

Bonjour Yves03,

yves03 à dit:
ça ne fonctionne pas, il n'y a plus rien qui passe en couleur.
Si quelqu'un a une idée.
Merci d'avance
Cliquez pour agrandir...

Mon code fonctionne, ton probléme vient des lignes :
Code: 
Range("A2").Select
Sheets("Accueil").Select

Regarde le fichier ci-joint, j'y ai mis ta macro, modifié et commenté.

Elle fonctionne à 100%. N'hésites pas, si tu veux plus de précision.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Précision

Re-lut

yves03 à dit:
J'ai simplement rajouté : Sheets("MP").select.
Cliquez pour agrandir...

C'était pas nécessaire, tu l'avais déjà dans ta macro. Il te suffit juste d'enlever, ou déplacer à l'extérieur de ta boucle "For Each/next", les lignes :
Code: 
Range("A2").Select
Sheets("Accueil").Select

Car à part faire colorier la mauvaise page, elles ne servent à rien! Cf fichier joint dans mon précédent post.
 
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

  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
186
deudecos
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
254
cathodique
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
711
job75
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
431
patricktoulon
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
277
LaurentVasseur
L
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
780
youguybass
Y
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
408
Hecatonchire
H
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
849
nat54
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
492
sylvanu
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
531
KTM
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
527
xavieralvaro
X
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
647
AtTheOne
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
751
un internaute
U
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
587
dysorthographie
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
333
job75
C
  • Question Question
XL 2010 masquer lignes
Réponses
14
Affichages
727
chti59xcel
C
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…