Colorier auto une cellule selon sa valeur

Couleur de cellule en fonction du contenu Mettre des couleurs dans une cellule selon tableau de valeur Changer format cellule fonction vba Excel - Colorer des cellules sur conditions » Conseils pratiques - Excel Mettre en couleur une cellule si contenu = celui d'une autre cel [Résolu] (Résolu) » Forum - Excel Couleur de cellule selon contenu » Forum - Excel Associer une couleur de cellule à un résultat [Résolu] (Résolu) » Forum - Bureautique Recup couleur de cellule sans macro (Résolu) » Forum - Bureautique

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.

Forum

Couleur de cellule en fonction du contenu Mettre des couleurs dans une cellule selon tableau de valeur Changer format cellule fonction vba Excel - Colorer des cellules sur conditions » Conseils pratiques - Excel Mettre en couleur une cellule si contenu = celui d'une autre cel [Résolu] (Résolu) » Forum - Excel Couleur de cellule selon contenu » Forum - Excel Associer une couleur de cellule à un résultat [Résolu] (Résolu) » Forum - Bureautique Recup couleur de cellule sans macro (Résolu) » Forum - Bureautique

Web: www.shapebootstrap.net

11 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

* 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 Best1 28

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 26703 internautes ce mois-ci

Reply
réponses:
  • auteur

    merci

  • auteur

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

  • auteur

    merci

  • auteur

    merci

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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

@+

Reply
réponses:
  • auteur

    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

    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.

  • auteur

    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

  • auteur

    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.

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Problème résolu :

Il s'arrêtait sur des cellules dont la valeur était sans reference : #REF!

Merci quand même ^^

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed