XL 2016 donne valeur en fonction d'une couleur

[tinet]

Bonjour le forum,

Je cherche un code à adapté

Voici ma demande, sur ma feuille dans la colonne G ( Il y a environ 800 lignes traitées)


en fonction de la couleur de la cellule trouvée, rajouter une valeur dans la même cellule

Il y a quatre couleurs donc valeur de 1 à 4

Merci pour vos idées

 

[vgendron]

bonjour

sans fichier exemple.. voici une piste

for i=1 to 800
select case range("G" &i).interior.color
case 5 'couleur...?? à rechercher
range("G" &i)=1
case 8 'couleur...?? à rechercher
range("G" &i)=2
....
...
end select

next i

 

[tinet]

Bonjour Vgendron

Un petit fichier

 

[chris]

Bonjour

La couleur ne doit pas être une information mais la mise exergue d'une information

Le souci de ce type de code c'est qu'en cas de changement de couleur il faut penser à ré exécuter le code... d'où risque d'oubli et d'erreur...

 

[vgendron]

voir PJ

Hello Chris... effectivement.... mais bon.. il doit bien avoir une raison particulière pour faire ca..

 

[tinet]

Merci pour le retour

Oui c'est bien embêtant être obligé d'utiliser les couleurs mais j'ai pas le choix malheureusement


Il faut que je trouve une solution car le traitement est beaucoup trop long

 

[Victor21]

Bonjour, tinet, vgendron, chris.

...Oui c'est bien embêtant être obligé d'utiliser les couleurs mais j'ai pas le choix malheureusement...

Je n'en suis pas sûr...
...A moins que l'application des couleurs ne réponde à aucune condition logique, mais dans ce cas le traitement envisagé n'aurait pas de sens.

 

[tinet]

Dans le fichier original, il y a les dates en face de chaque couleur.


Et également un secteur.

Possible d'avoir plusieurs couleurs sur la même date et pour le même secteur



la couleur verte égale satisfaisant, rouge acceptable et noir non satisfaisant.



J'utilise après des filtres dans mon fichier pour restituer les informations

c'est pour cela que j'ai besoin de donner une valeur sur les couleurs.



Autre solution que j'ai trouvée pour le moment c'est de travailler avec une formule

 

[Victor21]

Re,

Sans données, ni critère indiquant le niveau de satisfaction, difficile de proposer quelque chose de cohérent.
Sur ta version d'Excel, disposes-tu du filtre par couleur ?
Si oui, Sélection de la colonne G, Données, Filtrer, Filtre par couleur, Filtre par couleur de cellule, puis choisir la couleur, sélectionner toutes les cellules à renseigner des lignes filtrées, entrer la valeur et valider avec Ctrl+ entrée, puis recommencer pour les autres couleurs.

 

[tinet]

Victor 21, merci pour ta réponse mais c'est pas ce que j'attendais

 

[vgendron]

Il faut que je trouve une solution car le traitement est beaucoup trop long

3s pour 6254 lignes (au lieu des 800 annoncées) ??

 

[tinet]

Bonjour Vgendron,

À la lecture de ton message Je viens de refaire un test sur ta proposition.
Effectivement extrêmement rapide, je ne comprends pas ce qui s'est passé hier.
Merci pour ton aide

 

[tinet]

Bonjour Le forum,

sur le code de vgendron, comment changer en utilisant le gestionnaire de noms
Avec le gestionnaire de noms
Je définis le champ des couleurs codées

 

[Si...]

Salut
autre exemple avec un Tableau (qu'on peut déplacer, compléter à souhait)

 

[tinet]

Bonjour si

Merci pour cette nouvelle version
Mais j'opte plutôt pour le code de vgendron,
Désolé

Il faut juste pouvoir modifier ce code
En ayant le choix des critères
dans Le gestionnaire de nom

Merci le forum de votre aide