XL 2016 donne valeur en fonction d'une couleur

vgendron

XLDnaute Barbatruc

• 20 Novembre 2018

• #2

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 20 Novembre 2018

• #3

Bonjour Vgendron

Un petit fichier

 

Pièces jointes

• Classeur1.xlsx

  43.1 KB · Affichages: 32

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 20 Novembre 2018

• #4

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...

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Novembre 2018

• #5

voir PJ

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

 

Pièces jointes

• Classeur1 (4).xlsm

  48.4 KB · Affichages: 30

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 20 Novembre 2018

• #6

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 20 Novembre 2018

• #7

Bonjour, tinet, vgendron, chris.

tinet à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 20 Novembre 2018

• #8

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 20 Novembre 2018

• #9

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.

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 20 Novembre 2018

• #10

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Novembre 2018

• #11

tinet à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 21 Novembre 2018

• #12

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

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 21 Novembre 2018

• #13

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 21 Novembre 2018

• #14

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

 

Pièces jointes

• Fond Tableau.xlsm

  20.1 KB · Affichages: 21

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 21 Novembre 2018

• #15

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

 

Vote positif 0 Vote négatif