Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel trnaformer des couleurs en nombre

trnaformer des couleurs en nombre

7 réponses
Avatar
dd
bonjour,
j'ai un (très) grand tableau avec comme données des cellules que j'ai mis
soit en vert, en jaune ou en rouge, chacune correspondant symboliquementà une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs sans les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs 1 2 ou 3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Essaie et adapte suivant la couleur :

Sub test()
Dim c As Range
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 4
c.Value = 1
Case 6
c.Value = 2
Case 3
c.Value = 3
End Select
Next c
End Sub

Cordialement.
Daniel

"dd" a écrit dans le message de news:

bonjour,
j'ai un (très) grand tableau avec comme données des cellules que j'ai mis
soit en vert, en jaune ou en rouge, chacune correspondant symboliquementà
une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper
d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs sans
les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs 1 2 ou
3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy


Avatar
dd
GENIAL!!! MERCI BEAUCOUUUUUUUUUUUUUUUUUUP...

poctoy


Bonjour.
Essaie et adapte suivant la couleur :

Sub test()
Dim c As Range
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 4
c.Value = 1
Case 6
c.Value = 2
Case 3
c.Value = 3
End Select
Next c
End Sub

Cordialement.
Daniel

"dd" a écrit dans le message de news:

bonjour,
j'ai un (très) grand tableau avec comme données des cellules que j'ai mis
soit en vert, en jaune ou en rouge, chacune correspondant symboliquementà
une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper
d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs sans
les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs 1 2 ou
3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy







Avatar
dd
oups...en fait je me suis emballé trop vite, désolé. J'ai testé la macro sur
une feuille dans laquelle il y avait déjà des valeurs... sur les autres
feuilles, les cellules restent vides, ça n'a pas marché. Pourquoi tu mets
range (A1), cela ne limite t-il la macro a la cellule A1? mais même en
testant sur A1, ça ne marche pas. Ca vient peut-être aussi des codes
couleurs, parce qu'il y a dans les formats plusieurs types de jaunes, de
verts, de rouge..., comment trouver la correspondance des valeurs des
couleurs?

merci
poctoy


Bonjour.
Essaie et adapte suivant la couleur :

Sub test()
Dim c As Range
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 4
c.Value = 1
Case 6
c.Value = 2
Case 3
c.Value = 3
End Select
Next c
End Sub

Cordialement.
Daniel

"dd" a écrit dans le message de news:

bonjour,
j'ai un (très) grand tableau avec comme données des cellules que j'ai mis
soit en vert, en jaune ou en rouge, chacune correspondant symboliquementà
une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper
d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs sans
les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs 1 2 ou
3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy







Avatar
Daniel
Pour récupérer la valeur "colorindex" de chaque couleur, sélectionne une
cellule et :

Sub QuelleCouleur()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Cordialement.
Daniel
"dd" a écrit dans le message de news:

oups...en fait je me suis emballé trop vite, désolé. J'ai testé la macro
sur
une feuille dans laquelle il y avait déjà des valeurs... sur les autres
feuilles, les cellules restent vides, ça n'a pas marché. Pourquoi tu mets
range (A1), cela ne limite t-il la macro a la cellule A1? mais même en
testant sur A1, ça ne marche pas. Ca vient peut-être aussi des codes
couleurs, parce qu'il y a dans les formats plusieurs types de jaunes, de
verts, de rouge..., comment trouver la correspondance des valeurs des
couleurs?

merci
poctoy


Bonjour.
Essaie et adapte suivant la couleur :

Sub test()
Dim c As Range
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 4
c.Value = 1
Case 6
c.Value = 2
Case 3
c.Value = 3
End Select
Next c
End Sub

Cordialement.
Daniel

"dd" a écrit dans le message de news:

bonjour,
j'ai un (très) grand tableau avec comme données des cellules que j'ai
mis
soit en vert, en jaune ou en rouge, chacune correspondant
symboliquementà
une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper
d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en
couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs
sans
les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs 1 2
ou
3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy









Avatar
dd
bonjour daniel,
j'ai récupéré les codes couleurs, ce sont effectivement ceux qui sont écrits
dans la macro test. Donc le pb ne vient pas de là, ça ne marche tjs pas. J'ai
exécuté la macro par alt+F8 en sélectionnant une plage de cellules, ou une
seule cellule, j'ai un message d'erreur qui affiche juste "400", et c'est
tout. Vois-tu une erreur possible dans la macro, ou alors y a t-il une façon
spéciale de l'exécuter si elle ne s'exécute pas automatiquement?

merci
A+



Pour récupérer la valeur "colorindex" de chaque couleur, sélectionne une
cellule et :

Sub QuelleCouleur()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Cordialement.
Daniel
"dd" a écrit dans le message de news:

oups...en fait je me suis emballé trop vite, désolé. J'ai testé la macro
sur
une feuille dans laquelle il y avait déjà des valeurs... sur les autres
feuilles, les cellules restent vides, ça n'a pas marché. Pourquoi tu mets
range (A1), cela ne limite t-il la macro a la cellule A1? mais même en
testant sur A1, ça ne marche pas. Ca vient peut-être aussi des codes
couleurs, parce qu'il y a dans les formats plusieurs types de jaunes, de
verts, de rouge..., comment trouver la correspondance des valeurs des
couleurs?

merci
poctoy


Bonjour.
Essaie et adapte suivant la couleur :

Sub test()
Dim c As Range
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 4
c.Value = 1
Case 6
c.Value = 2
Case 3
c.Value = 3
End Select
Next c
End Sub

Cordialement.
Daniel

"dd" a écrit dans le message de news:

bonjour,
j'ai un (très) grand tableau avec comme données des cellules que j'ai
mis
soit en vert, en jaune ou en rouge, chacune correspondant
symboliquementà
une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper
d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en
couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs
sans
les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs 1 2
ou
3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy














Avatar
Daniel
Bonjour.
Bizarre. Essaie d'enlever la première de code :
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
et de sélectionner la plage à modifier avant d'exécuter ton code.
Sinon, exécute la macro en mode pas à pas et regarde quelle instruction
provoque l'erreur.
Cordialement.
Daniel
"dd" a écrit dans le message de news:

bonjour daniel,
j'ai récupéré les codes couleurs, ce sont effectivement ceux qui sont
écrits
dans la macro test. Donc le pb ne vient pas de là, ça ne marche tjs pas.
J'ai
exécuté la macro par alt+F8 en sélectionnant une plage de cellules, ou une
seule cellule, j'ai un message d'erreur qui affiche juste "400", et c'est
tout. Vois-tu une erreur possible dans la macro, ou alors y a t-il une
façon
spéciale de l'exécuter si elle ne s'exécute pas automatiquement?

merci
A+



Pour récupérer la valeur "colorindex" de chaque couleur, sélectionne une
cellule et :

Sub QuelleCouleur()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Cordialement.
Daniel
"dd" a écrit dans le message de news:

oups...en fait je me suis emballé trop vite, désolé. J'ai testé la
macro
sur
une feuille dans laquelle il y avait déjà des valeurs... sur les autres
feuilles, les cellules restent vides, ça n'a pas marché. Pourquoi tu
mets
range (A1), cela ne limite t-il la macro a la cellule A1? mais même en
testant sur A1, ça ne marche pas. Ca vient peut-être aussi des codes
couleurs, parce qu'il y a dans les formats plusieurs types de jaunes,
de
verts, de rouge..., comment trouver la correspondance des valeurs des
couleurs?

merci
poctoy


Bonjour.
Essaie et adapte suivant la couleur :

Sub test()
Dim c As Range
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 4
c.Value = 1
Case 6
c.Value = 2
Case 3
c.Value = 3
End Select
Next c
End Sub

Cordialement.
Daniel

"dd" a écrit dans le message de news:

bonjour,
j'ai un (très) grand tableau avec comme données des cellules que
j'ai
mis
soit en vert, en jaune ou en rouge, chacune correspondant
symboliquementà
une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper
d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en
couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs
sans
les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs
1 2
ou
3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy
















Avatar
dd
cette fois ça y est, ça fonctionne. MERCI BEAUCOUP DE TA PATIENCE.
A+
dd


Bonjour.
Bizarre. Essaie d'enlever la première de code :
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
et de sélectionner la plage à modifier avant d'exécuter ton code.
Sinon, exécute la macro en mode pas à pas et regarde quelle instruction
provoque l'erreur.
Cordialement.
Daniel
"dd" a écrit dans le message de news:

bonjour daniel,
j'ai récupéré les codes couleurs, ce sont effectivement ceux qui sont
écrits
dans la macro test. Donc le pb ne vient pas de là, ça ne marche tjs pas.
J'ai
exécuté la macro par alt+F8 en sélectionnant une plage de cellules, ou une
seule cellule, j'ai un message d'erreur qui affiche juste "400", et c'est
tout. Vois-tu une erreur possible dans la macro, ou alors y a t-il une
façon
spéciale de l'exécuter si elle ne s'exécute pas automatiquement?

merci
A+



Pour récupérer la valeur "colorindex" de chaque couleur, sélectionne une
cellule et :

Sub QuelleCouleur()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Cordialement.
Daniel
"dd" a écrit dans le message de news:

oups...en fait je me suis emballé trop vite, désolé. J'ai testé la
macro
sur
une feuille dans laquelle il y avait déjà des valeurs... sur les autres
feuilles, les cellules restent vides, ça n'a pas marché. Pourquoi tu
mets
range (A1), cela ne limite t-il la macro a la cellule A1? mais même en
testant sur A1, ça ne marche pas. Ca vient peut-être aussi des codes
couleurs, parce qu'il y a dans les formats plusieurs types de jaunes,
de
verts, de rouge..., comment trouver la correspondance des valeurs des
couleurs?

merci
poctoy


Bonjour.
Essaie et adapte suivant la couleur :

Sub test()
Dim c As Range
Range(("A1"), Range("A1").SpecialCells(xlCellTypeLastCell)).Select
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 4
c.Value = 1
Case 6
c.Value = 2
Case 3
c.Value = 3
End Select
Next c
End Sub

Cordialement.
Daniel

"dd" a écrit dans le message de news:

bonjour,
j'ai un (très) grand tableau avec comme données des cellules que
j'ai
mis
soit en vert, en jaune ou en rouge, chacune correspondant
symboliquementà
une
valeur (respectivement 1; 2 et 3). Le hic c'est qu'au lieu de taper
d'abord
mes nombres dans mes cellules et de mettre ensuite mes cellules en
couleur
par une mise en forme conditionnelle, j'ai d'abord mis les couleurs
sans
les
valeurs.
Donc aujourd'hui je souhaite afficher dans ces cellules les valeurs
1 2
ou
3
en fonction des couleurs. Comment faire? avec une mise en forme
conditionnelle "inversée", une macro?
merci
poctoy