rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Colorier auto une cellule selon sa valeur

Hector, le jeudi 17 mai 2007 à 12:15:18
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
Répondre à Hector  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Best1, le jeudi 17 mai 2007 à 12:25:36
* 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Hector, le jeudi 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tran, le dimanche 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


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 dandypunk, le dimanche 4 mai 2008 à 10:07:42
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
Logiciels pertinents trouvés dans les téléchargements
Télécharger ADSL Autoconnect 206F7ADSL Autoconnect - ADSL Autoconnect est un logiciel très puissant qui permet de gérer de manière simple et efficace sa connexion Internet ADSL...Catégorie: ADSL
Licence: Freeware/gratuit
Télécharger Coloriage 1.1.4Coloriage - Coloriage est un logiciel de coloriage pour jeunes enfants, à la manière de Tux Paint . Il répertorie quelque 220 dessins à...Catégorie: Dessin
Licence: Freeware/gratuit
Télécharger Autopano SIFT 2.3Autopano SIFT - Autopano-SIFT est un logiciel venant en complément de logiciels tels que Hugin afin de permettre de réaliser très...Catégorie: Retouche photo
Licence: Freeware/gratuit
Télécharger Fab's autobackup 2.2Fab's autobackup - Fab's Autobackup vous permet de sauvegarder et de restaurer des données personnelles comme vos e-mails, documents, favoris...Catégorie: Sauvegarde
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Colorier auto une cellule selon sa valeur »