High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Colorier auto une cellule selon sa valeur

Dernière réponse le 7 jui 2009 à 12:08:06 Hector, le 17 mai 2007 à 12:15:18 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « Colorier auto une cellule selon sa valeur » dans :
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
[Excel] Restreindre l'accès aux cellules VoirEncore une fonction peu connue : Expérimentez : Données / Validation Vous pouvez alors restreindre ou interdire l'accès aux "cellules stratégiques" de votre choix, avec message d'alerte. Vous pouvez faire afficher automatiquement des messages...
Posez votre question Répondre

1

Best1, le 17 mai 2007 à 12:25:36
  • +5

* 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 Rien ne sert de courir, il faut arriver à point

   
Répondre à Best1

2

Hector, le 17 mai 2007 à 12:30:52

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

@+

   
Répondre à Hector

3

tran, le 4 mai 2008 à 09:22:49

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

   
Répondre à tran

4

dandypunk, le 4 mai 2008 à 10:07:42
  • +2

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. Il y a certainement plus simple, mais ça tourne.
SNOC XUA TROM (Vieille devise coloniale)

   
Répondre à dandypunk

5

fredus, le 19 mar 2009 à 10:47:30

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

   
Répondre à fredus

6

Blourte, le 7 jui 2009 à 11:14:21

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.

   
Répondre à Blourte

7

 Blourte, le 7 jui 2009 à 12:08:06

Problème résolu :

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

Merci quand même ^^

   
Répondre à Blourte
Posez votre question Répondre
Ils ont besoin de votre aide