Couleur par macro

J

Jacky

Guest
Bonsoir
J'utilise cette macro pour mettre des couleurs manuelles suivant
les lettres que j'ecrits dans les cellules.Par contre,est il possible
de conserver la couleur rouge dans une ou plusieurs cellules,
que j'ai mis avec la palette, sachant que à chaque fois que je
change de lettres dans mon tableau je refait un test couleur.
Là ou il y a la couleur rouge,il n'y a pas de lettre
Je suppose que dans la macro,il faut faire référence à cette couleur
Merci à tous pour votre aide

Sub Change_Couleurs(Plage As Range)
Dim Cel As Range
For Each Cel In Plage
With Cel
Select Case .Value
'test en cas de cellule vide :
Case ""
.Interior.ColorIndex = xlNone
Case "A"
.Interior.ColorIndex = Jaune
Case "B"
.Interior.ColorIndex = Vert
Case "C"
.Interior.ColorIndex = Bleu
Case "D"
.Interior.ColorIndex = Noir
End Select
End With
Next Cel
End Sub

Sub Test_Couleur()
Change_Couleurs Range("A1:C10")
End Sub
 
S

STéphane

Guest
bonjour

et si tu remplaces

le bloc case ""

par

Case ""
if .interior.colorindex=vbred then
else
.Interior.ColorIndex = xlNone
end if

les cellules rouges qui si j'ai bien compris ne contiennent rien resteront en rouge

bye
stephane
 
T

Thierry

Guest
Salut Jacky, Bonjour STéphane

Pour 1 ou 2 autres couleurs (je comprends pour les couleurs de cellules vides "peintes à la main) (?)... alors tu peux faire comme çà avec "Or" (si tu as plus de couleurs vaudrait mieux si prendre autrement avec une collection des couleurs) :

3 = Rouge
7 = Rose foncé
15 = Gris clair

Sub Change_Couleurs(Plage As Range)
Dim Cel As Range
For Each Cel In Plage
With Cel
ColCel = .Interior.ColorIndex
Select Case .Value
'test en cas de cellule vide :
Case ""
If .Interior.ColorIndex = 3 _
Or .Interior.ColorIndex = 7 _
Or .Interior.ColorIndex = 15 Then
Else
.Interior.ColorIndex = xlNone
End If
Case "A"
.Interior.ColorIndex = 6 'Jaune
Case "B"
.Interior.ColorIndex = 4 'vert
Case "C"
.Interior.ColorIndex = 32 'bleu
Case "D"
.Interior.ColorIndex = 1 'noir
End Select
End With
Next Cel
End Sub

Bon Dimanche
@+Thierry
 
H

hayssam

Guest
ouverture d'un fichier corropu (URGENT) SVP ?

bonjour,

suite à une tentative d'enregistrement d'un fichier excel .xls (excel 97 sous NT 4.0), j'ai eu un message : serveur saturé, et donc je ne peux plus ouvrir le fichier avec excel j'ai la réponse impossible d'ouvrir le fichier avec le Dr watson derier ... et fermeture d'excel.

ce doc est supper important .. pouvez vous me donner des pistes pour recupperer ce fichier, ou un visioneur de fichier excel pour au moins que je puisse imprimer le contenu de ce fichier ?

je vous pris de repondre vite et sur mon email ;: hzeaiter@yahoo.com en copie

MERCI
 
H

hayssam

Guest
ouverture d'un fichier corropu (URGENT) SVP ?

bonjour,

suite à une tentative d'enregistrement d'un fichier excel .xls (excel 97 sous NT 4.0), j'ai eu un message : serveur saturé, et donc je ne peux plus ouvrir le fichier avec excel j'ai la réponse impossible d'ouvrir le fichier avec le Dr watson derier ... et fermeture d'excel.

ce doc est supper important .. pouvez vous me donner des pistes pour recupperer ce fichier, ou un visioneur de fichier excel pour au moins que je puisse imprimer le contenu de ce fichier ?

je vous pris de repondre vite et sur mon email ;: hzeaiter@yahoo.com en copie

MERCI
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 794
Membres
101 817
dernier inscrit
carvajal