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 Help

Help

9 réponses
Avatar
eric duperier
Bonjour,

Comment dans Excel, créer la fonction suivante :

Si le contenu de la cellule B1 est égal à tel mot, alors en cellule A1
mettre la couleur de remplissage bleue, si le contenu de la cellule B2 est
égal à tel mot, alors en cellule A2 mettre la couleur de remplissage rouge
etc...
Merci,
Claire
Signaler un problème avec ce contenu

9 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
anonymousA
Bonjour,

utiliser la mise en forme conditionnelle.

a+
Avatar
eric duperier
non ce n'est pas ma question
"anonymousA" a écrit dans le message de news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+



Avatar
LSteph
Bonjour,

alors il faudrait la préciser mieux car telle qu'on la lit,
cela semble une excellente réponse!

lSteph

"eric duperier" a écrit dans le message de news:
43ecb23e$0$1145$
non ce n'est pas ma question
"anonymousA" a écrit dans le message de news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+







Avatar
LSteph
Bonjour,
...si l'on s'en tient à l'énnoncé , tu parles d'une fonction, dans cette
mesure la MEFC répond à cette fonctionalité.
Tu n'a pas précisé que tu voulais faire cela en VBA donc effectivement peut
être à tel dessein parlais tu de fonction.
Une fonction ne met pas de couleurs , c'est une procèdure Sub qu'il faut
utiliser,dans ce cas tu définis un Select case
selon les cas que tu veux poser à la plage concernée et pour chaque cas
correspondant la couleur de ton choix
à cet effet tu peux utiliser la propriété .interior.colorindex= (1 à 56
cela fait déjà un bon panel)
Attention les couleurs ne sont pas des calculs si tu changes un texte il
faudra relancer la macro ou la déclancher par un évènement (ce qui est
lourd )
Exemple avec une sélection de cellules comme plage:
''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c
Case Is = "toto"
c.Interior.ColorIndex = 5
Case Is = "titi"
c.Interior.ColorIndex = 3
Case Else
c.Interior.ColorIndex = 7
End Select
Next
End Sub
''***
'lSteph




"eric duperier" a écrit dans le message de news:
43ecb23e$0$1145$
non ce n'est pas ma question
"anonymousA" a écrit dans le message de news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+







Avatar
Jacky
Bonsoir Steph

Comment dans Excel, créer la fonction suivante :
Une fonction, Steph, une Fonction......


La roue existe, il faut mettre l'essieu....;-))
JJ

"LSteph" a écrit dans le message de
news:%
Bonjour,
...si l'on s'en tient à l'énnoncé , tu parles d'une fonction, dans cette
mesure la MEFC répond à cette fonctionalité.
Tu n'a pas précisé que tu voulais faire cela en VBA donc effectivement
peut

être à tel dessein parlais tu de fonction.
Une fonction ne met pas de couleurs , c'est une procèdure Sub qu'il faut
utiliser,dans ce cas tu définis un Select case
selon les cas que tu veux poser à la plage concernée et pour chaque cas
correspondant la couleur de ton choix
à cet effet tu peux utiliser la propriété .interior.colorindex= (1 à 56
cela fait déjà un bon panel)
Attention les couleurs ne sont pas des calculs si tu changes un texte il
faudra relancer la macro ou la déclancher par un évènement (ce qui est
lourd )
Exemple avec une sélection de cellules comme plage:
''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c
Case Is = "toto"
c.Interior.ColorIndex = 5
Case Is = "titi"
c.Interior.ColorIndex = 3
Case Else
c.Interior.ColorIndex = 7
End Select
Next
End Sub
''***
'lSteph




"eric duperier" a écrit dans le message de news:
43ecb23e$0$1145$
non ce n'est pas ma question
"anonymousA" a écrit dans le message de news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+











Avatar
LSteph
Bonjour Jacky,
que veux tu dire?
on peut toujours écrire une fonction pour prédéterminer les couleurs,
mais ce n'est pas elle qui va colorer , à un moment ou un autre il faut bien
qu'une sub y fasse appel , me trompe-je?
En attendant, au vu de la question la solution proposée de MEFC par
Anonymous me parait tout à fait convenable, c'est pourquoi je propose
en outre cette solution, il reste assez simple à Eric de préciser si besoin
(au lieu d'une réponse un peu .., bon peut-être pas utile d'insister
là-dessus).
Cordialement.
lSteph

"Jacky" a écrit dans le message de news:
uL$
Bonsoir Steph

Comment dans Excel, créer la fonction suivante :
Une fonction, Steph, une Fonction......


La roue existe, il faut mettre l'essieu....;-))
JJ

"LSteph" a écrit dans le message de
news:%
Bonjour,
...si l'on s'en tient à l'énnoncé , tu parles d'une fonction, dans cette
mesure la MEFC répond à cette fonctionalité.
Tu n'a pas précisé que tu voulais faire cela en VBA donc effectivement
peut

être à tel dessein parlais tu de fonction.
Une fonction ne met pas de couleurs , c'est une procèdure Sub qu'il faut
utiliser,dans ce cas tu définis un Select case
selon les cas que tu veux poser à la plage concernée et pour chaque cas
correspondant la couleur de ton choix
à cet effet tu peux utiliser la propriété .interior.colorindex= (1 à 56
cela fait déjà un bon panel)
Attention les couleurs ne sont pas des calculs si tu changes un texte il
faudra relancer la macro ou la déclancher par un évènement (ce qui est
lourd )
Exemple avec une sélection de cellules comme plage:
''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c
Case Is = "toto"
c.Interior.ColorIndex = 5
Case Is = "titi"
c.Interior.ColorIndex = 3
Case Else
c.Interior.ColorIndex = 7
End Select
Next
End Sub
''***
'lSteph




"eric duperier" a écrit dans le message de
news:
43ecb23e$0$1145$
non ce n'est pas ma question
"anonymousA" a écrit dans le message de news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+















Avatar
LSteph
;-))
...alors juste pour te faire plaisir, si c'est bien ce qui est voulu, en une
fonction et une sub:
''***

Function quellecouleur(this As Range)
Select Case this
Case Is = "toto"
quellecouleur = 5
Case Is = "titi"
quellecouleur = 3
Case Else
quellecouleur = 7
End Select
End Function

Sub colore2()
Dim c As Range
For Each c In Selection.Cells
c.Interior.ColorIndex = quellecouleur(c)
Next
End Sub
'''**
'lSteph

"Jacky" a écrit dans le message de news:
uL$
Bonsoir Steph

Comment dans Excel, créer la fonction suivante :
Une fonction, Steph, une Fonction......


La roue existe, il faut mettre l'essieu....;-))
JJ

"LSteph" a écrit dans le message de
news:%
Bonjour,
...si l'on s'en tient à l'énnoncé , tu parles d'une fonction, dans cette
mesure la MEFC répond à cette fonctionalité.
Tu n'a pas précisé que tu voulais faire cela en VBA donc effectivement
peut

être à tel dessein parlais tu de fonction.
Une fonction ne met pas de couleurs , c'est une procèdure Sub qu'il faut
utiliser,dans ce cas tu définis un Select case
selon les cas que tu veux poser à la plage concernée et pour chaque cas
correspondant la couleur de ton choix
à cet effet tu peux utiliser la propriété .interior.colorindex= (1 à 56
cela fait déjà un bon panel)
Attention les couleurs ne sont pas des calculs si tu changes un texte il
faudra relancer la macro ou la déclancher par un évènement (ce qui est
lourd )
Exemple avec une sélection de cellules comme plage:
''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c
Case Is = "toto"
c.Interior.ColorIndex = 5
Case Is = "titi"
c.Interior.ColorIndex = 3
Case Else
c.Interior.ColorIndex = 7
End Select
Next
End Sub
''***
'lSteph




"eric duperier" a écrit dans le message de
news:
43ecb23e$0$1145$
non ce n'est pas ma question
"anonymousA" a écrit dans le message de news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+















Avatar
Jacky
Re...
que veux tu dire?
Ce n'était qu'une boutade. ;o)



En attendant, au vu de la question la solution proposée de MEFC par
Anonymous me parait tout à fait convenable


Bien sur..C'est pour cela que j'écrivais
La roue existe, il faut mettre l'essieu....;-))
Maintenant que la roue existe, reste plus qu'a inventer l'essieu



Bon, bon, je rentre chez moi
;o)
A+
JJ



"LSteph" a écrit dans le message de
news:
Bonjour Jacky,
que veux tu dire?
on peut toujours écrire une fonction pour prédéterminer les couleurs,
mais ce n'est pas elle qui va colorer , à un moment ou un autre il faut
bien

qu'une sub y fasse appel , me trompe-je?
En attendant, au vu de la question la solution proposée de MEFC par
Anonymous me parait tout à fait convenable, c'est pourquoi je propose
en outre cette solution, il reste assez simple à Eric de préciser si
besoin

(au lieu d'une réponse un peu .., bon peut-être pas utile d'insister
là-dessus).
Cordialement.
lSteph

"Jacky" a écrit dans le message de news:
uL$
Bonsoir Steph

Comment dans Excel, créer la fonction suivante :
Une fonction, Steph, une Fonction......


La roue existe, il faut mettre l'essieu....;-))
JJ

"LSteph" a écrit dans le message de
news:%
Bonjour,
...si l'on s'en tient à l'énnoncé , tu parles d'une fonction, dans
cette



mesure la MEFC répond à cette fonctionalité.
Tu n'a pas précisé que tu voulais faire cela en VBA donc effectivement
peut

être à tel dessein parlais tu de fonction.
Une fonction ne met pas de couleurs , c'est une procèdure Sub qu'il
faut



utiliser,dans ce cas tu définis un Select case
selon les cas que tu veux poser à la plage concernée et pour chaque
cas



correspondant la couleur de ton choix
à cet effet tu peux utiliser la propriété .interior.colorindex= (1 à
56



cela fait déjà un bon panel)
Attention les couleurs ne sont pas des calculs si tu changes un texte
il



faudra relancer la macro ou la déclancher par un évènement (ce qui est
lourd )
Exemple avec une sélection de cellules comme plage:
''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c
Case Is = "toto"
c.Interior.ColorIndex = 5
Case Is = "titi"
c.Interior.ColorIndex = 3
Case Else
c.Interior.ColorIndex = 7
End Select
Next
End Sub
''***
'lSteph




"eric duperier" a écrit dans le message de
news:
43ecb23e$0$1145$
non ce n'est pas ma question
"anonymousA" a écrit dans le message de news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+



















Avatar
LSteph
Ce n'était qu'une boutade. ;o)
Allez r'viens Jacky t' fôche pas, je t' ai mis la ch'tite fonction avé la

sub juste en dessous.
La roue existe, il faut mettre l'essieu....;-))
Cà ben Mérci j'avais pô compris!



;o)))




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

Re...
que veux tu dire?


En attendant, au vu de la question la solution proposée de MEFC par
Anonymous me parait tout à fait convenable


Bien sur..C'est pour cela que j'écrivais
La roue existe, il faut mettre l'essieu....;-))
Maintenant que la roue existe, reste plus qu'a inventer l'essieu



Bon, bon, je rentre chez moi
;o)
A+
JJ



"LSteph" a écrit dans le message de
news:
Bonjour Jacky,
que veux tu dire?
on peut toujours écrire une fonction pour prédéterminer les couleurs,
mais ce n'est pas elle qui va colorer , à un moment ou un autre il faut
bien

qu'une sub y fasse appel , me trompe-je?
En attendant, au vu de la question la solution proposée de MEFC par
Anonymous me parait tout à fait convenable, c'est pourquoi je propose
en outre cette solution, il reste assez simple à Eric de préciser si
besoin

(au lieu d'une réponse un peu .., bon peut-être pas utile d'insister
là-dessus).
Cordialement.
lSteph

"Jacky" a écrit dans le message de news:
uL$
Bonsoir Steph

Comment dans Excel, créer la fonction suivante :
Une fonction, Steph, une Fonction......


La roue existe, il faut mettre l'essieu....;-))
JJ

"LSteph" a écrit dans le message de
news:%
Bonjour,
...si l'on s'en tient à l'énnoncé , tu parles d'une fonction, dans
cette



mesure la MEFC répond à cette fonctionalité.
Tu n'a pas précisé que tu voulais faire cela en VBA donc effectivement
peut

être à tel dessein parlais tu de fonction.
Une fonction ne met pas de couleurs , c'est une procèdure Sub qu'il
faut



utiliser,dans ce cas tu définis un Select case
selon les cas que tu veux poser à la plage concernée et pour chaque
cas



correspondant la couleur de ton choix
à cet effet tu peux utiliser la propriété .interior.colorindex= (1 à
56



cela fait déjà un bon panel)
Attention les couleurs ne sont pas des calculs si tu changes un texte
il



faudra relancer la macro ou la déclancher par un évènement (ce qui est
lourd )
Exemple avec une sélection de cellules comme plage:
''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c
Case Is = "toto"
c.Interior.ColorIndex = 5
Case Is = "titi"
c.Interior.ColorIndex = 3
Case Else
c.Interior.ColorIndex = 7
End Select
Next
End Sub
''***
'lSteph




"eric duperier" a écrit dans le message de
news:
43ecb23e$0$1145$
non ce n'est pas ma question
"anonymousA" a écrit dans le message de
news:

Bonjour,

utiliser la mise en forme conditionnelle.

a+