Colorier des cases par rapport a des noms
Fermé
pomme de pin
-
6 juil. 2014 à 12:04
Raymond PENTIER Messages postés 58388 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 17 avril 2024 - 6 juil. 2014 à 17:20
Raymond PENTIER Messages postés 58388 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 17 avril 2024 - 6 juil. 2014 à 17:20
A voir également:
- Colorier des cases par rapport a des noms
- Les noms des animaux - Télécharger - Études & Formations
- Plan rapport de stage - Guide
- Excel impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
- Numéro de téléphone par nom de famille - Forum Mobile
- Mise en forme conditionnelle excel par rapport à une autre cellule - Guide
2 réponses
via55
Messages postés
14399
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 avril 2024
2 701
6 juil. 2014 à 12:54
6 juil. 2014 à 12:54
Bonjour
Apparemment tu ne veux pas faire la coloration par une mise en forme conditionnelle (il en faut une par nom) mais en fonction d'une base de cellules préremplies avec les noms possibles et précolorées ?
Dans ce cas il faut passer apr une macro
Exemple , avec une liste de 10 noms en Feuil1 de A1 à A10
pour colorer de la même manière toute entrée de nom en Feuil 2
Alt F11 pour ouvrir l'éditeur VBa Selectionner la feuille 2 dans l'arborescence
et coller la macro suivante dans la fenêtre de droite :
Private Sub Worksheet_Change(ByVal Target As Range)
For n = 1 To 10
If Target.Value = Sheets("Feuil1").Range("A" & n) Then Target.Interior.ColorIndex = Sheets("Feuil1").Range("A" & n).Interior.ColorIndex: Exit For
Next
End Sub
A adapter à tes besoins
Cdlmnt
Apparemment tu ne veux pas faire la coloration par une mise en forme conditionnelle (il en faut une par nom) mais en fonction d'une base de cellules préremplies avec les noms possibles et précolorées ?
Dans ce cas il faut passer apr une macro
Exemple , avec une liste de 10 noms en Feuil1 de A1 à A10
pour colorer de la même manière toute entrée de nom en Feuil 2
Alt F11 pour ouvrir l'éditeur VBa Selectionner la feuille 2 dans l'arborescence
et coller la macro suivante dans la fenêtre de droite :
Private Sub Worksheet_Change(ByVal Target As Range)
For n = 1 To 10
If Target.Value = Sheets("Feuil1").Range("A" & n) Then Target.Interior.ColorIndex = Sheets("Feuil1").Range("A" & n).Interior.ColorIndex: Exit For
Next
End Sub
A adapter à tes besoins
Cdlmnt
Raymond PENTIER
Messages postés
58388
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
17 avril 2024
17 088
6 juil. 2014 à 17:20
6 juil. 2014 à 17:20
Envoie-nous ton fichier Excel, pour qu'on te dise quelles règles il faut appliquer.
Pour cela va dans https://www.cjoint.com/ pour créer le lien, que tu reviendras coller ici.
Pour cela va dans https://www.cjoint.com/ pour créer le lien, que tu reviendras coller ici.