Discussion :

[crissud]

Bonjour

Je reviens vers vous une nouvelle fois
j'ai aucune idée où placer dans ma macro une couleur du texte qui est retourné vers ma feuille

.PatternColorIndex = 3 ' pour le rouge

voici mon Code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
ReDim Preserve Tableau(Compteur)
Tableau(Compteur - 1) = fichier
LigneCompteur = Compteur + 1
 
Worksheets("Maj").Select
ActiveSheet.Range("k" & LigneCompteur).Value = Tableau(Compteur - 1)
 
Compteur = Compteur + 1
fichier = Dir()
Loop
End Sub

Merci d'avance
Christian

[wilfried_42]

bonjour


le pattern ne correspond pas au caractere mais definit un fond de cellule comme un hachuré ou des points. la couleur du caractère est :
eviter les select, ca ralentit le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Maj").Range("k" & LigneCompteur).Value = Tableau(Compteur - 1)
Worksheets("Maj").Range("k" & LigneCompteur).font.colorindex = 1

[crissud]

Merci beaucoup, grâce à votre aide j'améliore mon code

A+
Christian