Couleur par macro

[Jacky]

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

 

[STéphane]

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

 

[Jacky]

Bonsoir

Je vais essayer ça tout de suite
je confirme les cellules rouges ne contiennent rien

Merci encore
A+

 

[Jacky]

Bonsoir

Désolé Stéphane mais ça ne fonctionne pas

A+

 

[STéphane]

bonjour

un exemple en pj

bye
stephane

 

[Jacky]

Bonsoir
Bravo Stéphane c'est parfait,ça marche impec
Merci encore de ton aide

Jacky

 

[Jacky]

Bonjour

J'abuse!!!!!!!!!!!!!!!!

Cette macro fonctionne avec une couleur,mais est il possible de l'utiliser avec deux couleurs ou plus

Merci et A+

 

[Thierry]

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

 

[Jacky]

Merci Thierry
Oui ce sont bien des cellules "Peintes à la main"

Bon dimanche à toi aussi

Jacky

 

[hayssam]

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

 

[hayssam]

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