Colorier auto une cellule selon sa valeur

Valeur

Hector -
romb - 24 mai 2018 à 15:17

Bonjour,

J'ai un tableau dans lequel sont inscrites des données clients ! Je souhaiterais que, par l'intermediaire d'une macro, pour une selection de cellules prédéfinie, on verifie chaque cellule de la selection ainsi que son contenu et que l'on lui attribut un fond de couleur.

Pour chaque cellule comportant la valeur M pour masculin on colorie la cellule en bleu ou F pour feminin on colorie la cellule en rose.

Merci d'avance.

Configuration: Windows XP
Internet Explorer 7.0

Afficher la suite

A voir également:

Colorer une cellule excel en fonction de sa valeur
Fonction si ou excel - Guide
Colorer une cellule excel selon de sa valeur - Guide
Proteger cellule excel - Guide
Excel si cellule contient partie texte ✓ - Forum Excel
Déplacer une colonne excel - Guide

3 réponses

Réponse 1 / 3

Best1 Messages postés 105 Date d'inscription Statut Membre Dernière intervention 90

* sélectionner les cellules
* Menu : Format/mise en forme conditionnelle
* condition1/valeur cellule égale/M ensuite cliquer sur format et choisir la couleur désirer
* clic sur ajouter et faire pareil avce valeur cellule M
* valider et c'est tout

merci

Théo

Merci pour ces explications... Elles m'ont été très utiles

wafa

merci

romb

merci

Réponse 2 / 3

Hector

Salut,

Range("A1:G85").Select 'Permet de selectionner plusieurs cellules
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Cell.Value = "M" Then 'Si la valeur = M alors
Cell.Interior.ColorIndex = 1 'Colorie la couleur de la cellule
End If
If Cell.Value = "F" Then 'Si la valeur = F alors
Cell.interior.ColorIndex = 2 'Colorie la couleur de la cellule
End If
Next

Pour cell.interior.colorindex, a toi de choisir ta couleur en testant avec plusieurs chiffre pour que le fond corresponde à la couleur que tu veux

Bon courage à toi

@+

tran

Bonjour,
j'ai copier votre macro dans macro-VB editor, mais rien est fait
pourquoi ?

votre macro
Range("A1:G85").Select 'Permet de selectionner plusieurs cellules
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Cell.Value = "M" Then 'Si la valeur = M alors
Cell.Interior.ColorIndex = 1 'Colorie la couleur de la cellule
End If
If Cell.Value = "F" Then 'Si la valeur = F alors
Cell.interior.ColorIndex = 2 'Colorie la couleur de la cellule
End If
Next

Merci de votre aide

dandypunk Messages postés 838 Statut Membre 83 > tran

Range("A1:G85") permet de sélectionner la plage commençant à la cellule A1 et se terminant à la cellule G85.
Si ton tableau ne vérifie pas ces conditions rien de peut se passer.

De plus les condition "M" et "F" sont des exemple. A toi de modifier ces conditions en fonction de tes propres conditions.

fredus > tran

ta formule marche impec mais si je veut colorée une cellule comprise entre 0 et 10 par exemple toujours en utilisant les macro?

Range("B2:B4").Select 'Permet de selectionner plusieurs cellules
For Each Cell In Selection 'Pour chaque cellule dans la selection
If Cell.Value = "0" Then 'Si la valeur = M alors
Cell.Interior.ColorIndex = 5 'Colorie la couleur de la cellule
End If
If Cell.Value = "27" Then 'Si la valeur = F alors
Cell.Interior.ColorIndex = 15 'Colorie la couleur de la cellule
End If
Next
End Sub

Blourte > fredus

Bonjour,

J'ai le même soucis : Seulement quand j'execute cette macro, le message : "Erreur d'execution 13 , Incompatibilité de ce type" apparaît, et la ligne :

If cell.Value = "0" Then

est surlignée.

Merci d'avance pour votre aide.

Discussions similaires

Couleur de cellule sous OpenOffice.calc

récup valeur sélectionnée dans select en PHP

EXCEL ne pas afficher #VALEUR

[Excel] Valeur vide

Excel: Calcul selon intervalle de valeurs

[MySQL] remplacer un caractère par d'autres

Discussions similaires

Newsletters