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 mise en condition

mise en condition

13 réponses
Avatar
martin Ducharme
Avoir la posssibilter dans un groupe de cellule d'inscrire un texte tel que p1 et qui devient rouge
ou choisir c3 et il devient vert ect,...
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Ricky [MVP]
Bonsoir à toi aussi *martin Ducharme* (et tous les lecteurs)

| Avoir la posssibilter dans un groupe de cellule d'inscrire un texte
| tel que p1 et qui devient rouge, ou choisir c3 et il devient vert
| ect,...

Format / Mise en forme conditionnelle

La valeur de la cellule est égale à "P1" ---> clic sur Format et fais ton choix
Ajouter
La valeur de .......................................................................................................................

A faire ou a copier avec le pinceau dans toutes les cellules qui doivent réagir

Merci

Pas de quoi.


--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
ChrisV
Bonjour Martin,

Ou encore, si tu as besoin d'un nombre plus important de conditions.
Dans la feuille de code de l'onglet concerné, avec la plage de données
nommée ici Zn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3
Case "b2": c.Font.ColorIndex = 2
Case "c3": c.Font.ColorIndex = 4
Case "f4": c.Font.ColorIndex = 23
Case "g5": c.Font.ColorIndex = 13
Case "k6": c.Font.ColorIndex = 9
Case "m9": c.Font.ColorIndex = 5
Case Else: c.Font.ColorIndex = xlAutomatic
End Select
Next
End If
End Sub


ChrisV


"martin Ducharme" a écrit dans le message de
news:
Avoir la posssibilter dans un groupe de cellule d'inscrire un texte tel
que p1 et qui devient rouge,

ou choisir c3 et il devient vert ect,...


Avatar
Céd
GE-NIAL !!! Tout simplement GE-NIAL !!

Je me suis cassé la tête pendant des jours car j'avais
plus de 3 conditions à mettre et j'ai fini par y renoncer !
J'ai donc recopié ton code et essayé de l'adapter à mes
besoins mais j'ai un blèm :

Comment faire pour que le fond de la cellule change aussi
de couleur ? A chaque fois que je le fais, c'est la
cellule suivante qui prend la couleur :-(

Et tant que j'y suis, est-ce que tu sais où on pourrait
trouver les numéros qui correspondent aux couleurs ?

Merci d'avance

Céd
-----Message d'origine-----
Bonjour Martin,

Ou encore, si tu as besoin d'un nombre plus important de
conditions.

Dans la feuille de code de l'onglet concerné, avec la
plage de données

nommée ici Zn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing
Then

For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3
Case "b2": c.Font.ColorIndex = 2
Case "c3": c.Font.ColorIndex = 4
Case "f4": c.Font.ColorIndex = 23
Case "g5": c.Font.ColorIndex = 13
Case "k6": c.Font.ColorIndex = 9
Case "m9": c.Font.ColorIndex = 5
Case Else: c.Font.ColorIndex = xlAutomatic
End Select
Next
End If
End Sub


ChrisV


"martin Ducharme" a écrit
dans le message de

news: 79D4A4F0-8061-4980-9565-


Avoir la posssibilter dans un groupe de cellule
d'inscrire un texte tel


que p1 et qui devient rouge,
ou choisir c3 et il devient vert ect,...



.




Avatar
ChrisV
Bonjour Céd,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3: c.Interior.ColorIndex = 38
Case "b2": c.Font.ColorIndex = 2: c.Interior.ColorIndex = 40
Case "c3": c.Font.ColorIndex = 4: c.Interior.ColorIndex = 36
Case "f4": c.Font.ColorIndex = 23: c.Interior.ColorIndex = 35
Case "g5": c.Font.ColorIndex = 13: c.Interior.ColorIndex = 34
Case "k6": c.Font.ColorIndex = 9: c.Interior.ColorIndex = 37
Case "m9": c.Font.ColorIndex = 5: c.Interior.ColorIndex = 39
Case Else: c.Font.ColorIndex = xlAutomatic:
c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub

Pour les codes couleurs... dans un classeur vierge:
(le numéro de ligne correspond au code couleur de la cellule)

Sub zaza()
Dim i As Integer
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Next i
End Sub


ChrisV


"Céd" a écrit dans le message de news:
072f01c3db37$04343380$
GE-NIAL !!! Tout simplement GE-NIAL !!

Je me suis cassé la tête pendant des jours car j'avais
plus de 3 conditions à mettre et j'ai fini par y renoncer !
J'ai donc recopié ton code et essayé de l'adapter à mes
besoins mais j'ai un blèm :

Comment faire pour que le fond de la cellule change aussi
de couleur ? A chaque fois que je le fais, c'est la
cellule suivante qui prend la couleur :-(

Et tant que j'y suis, est-ce que tu sais où on pourrait
trouver les numéros qui correspondent aux couleurs ?

Merci d'avance

Céd
-----Message d'origine-----
Bonjour Martin,

Ou encore, si tu as besoin d'un nombre plus important de
conditions.

Dans la feuille de code de l'onglet concerné, avec la
plage de données

nommée ici Zn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing
Then

For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3
Case "b2": c.Font.ColorIndex = 2
Case "c3": c.Font.ColorIndex = 4
Case "f4": c.Font.ColorIndex = 23
Case "g5": c.Font.ColorIndex = 13
Case "k6": c.Font.ColorIndex = 9
Case "m9": c.Font.ColorIndex = 5
Case Else: c.Font.ColorIndex = xlAutomatic
End Select
Next
End If
End Sub


ChrisV


"martin Ducharme" a écrit
dans le message de

news: 79D4A4F0-8061-4980-9565-


Avoir la posssibilter dans un groupe de cellule
d'inscrire un texte tel


que p1 et qui devient rouge,
ou choisir c3 et il devient vert ect,...



.




Avatar
Céd
FA-BU-LEUX !

Je n'étais pas si loin que ça mais au lieu de mettre les :
je tapais AND. Je vais pouvoir reprendre mon projet si
vite abandonné.

Un grand M E R C I ChrisV

Par contre, je dois être un peu "nouille" mais je ne vois
pas ce que je dois faire avec le code des couleurs. Je
l'ai copié et tapé de 1 à 56 dans les cases mais rien ne
se passe...

-----Message d'origine-----
Bonjour Céd,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing
Then

For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3:
c.Interior.ColorIndex = 38

Case "b2": c.Font.ColorIndex = 2:
c.Interior.ColorIndex = 40

Case "c3": c.Font.ColorIndex = 4:
c.Interior.ColorIndex = 36

Case "f4": c.Font.ColorIndex = 23:
c.Interior.ColorIndex = 35

Case "g5": c.Font.ColorIndex = 13:
c.Interior.ColorIndex = 34

Case "k6": c.Font.ColorIndex = 9:
c.Interior.ColorIndex = 37

Case "m9": c.Font.ColorIndex = 5:
c.Interior.ColorIndex = 39

Case Else: c.Font.ColorIndex = xlAutomatic:
c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub

Pour les codes couleurs... dans un classeur vierge:
(le numéro de ligne correspond au code couleur de la
cellule)


Sub zaza()
Dim i As Integer
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Next i
End Sub


ChrisV


"Céd" a écrit dans
le message de news:

072f01c3db37$04343380$
GE-NIAL !!! Tout simplement GE-NIAL !!

Je me suis cassé la tête pendant des jours car j'avais
plus de 3 conditions à mettre et j'ai fini par y
renoncer !

J'ai donc recopié ton code et essayé de l'adapter à mes
besoins mais j'ai un blèm :

Comment faire pour que le fond de la cellule change aussi
de couleur ? A chaque fois que je le fais, c'est la
cellule suivante qui prend la couleur :-(

Et tant que j'y suis, est-ce que tu sais où on pourrait
trouver les numéros qui correspondent aux couleurs ?

Merci d'avance

Céd
-----Message d'origine-----
Bonjour Martin,

Ou encore, si tu as besoin d'un nombre plus important de
conditions.

Dans la feuille de code de l'onglet concerné, avec la
plage de données

nommée ici Zn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing
Then

For Each c In Target
Select Case c.Value
Case "p1": c.Font.ColorIndex = 3
Case "b2": c.Font.ColorIndex = 2
Case "c3": c.Font.ColorIndex = 4
Case "f4": c.Font.ColorIndex = 23
Case "g5": c.Font.ColorIndex = 13
Case "k6": c.Font.ColorIndex = 9
Case "m9": c.Font.ColorIndex = 5
Case Else: c.Font.ColorIndex = xlAutomatic
End Select
Next
End If
End Sub


ChrisV


"martin Ducharme" a écrit
dans le message de

news: 79D4A4F0-8061-4980-9565-


Avoir la posssibilter dans un groupe de cellule
d'inscrire un texte tel


que p1 et qui devient rouge,
ou choisir c3 et il devient vert ect,...



.




.





Avatar
ChrisV
je ne vois pas ce que je dois faire avec le code
des couleurs


Sur un nouveau classeur, clic-droit sur un onglet/Visualiser le code
Dans l'éditeur VB, Insertion/Module
Tu colles le code dans la fenêtre principale (Général) puis, depuis un
onglet quelconque du classeur, Outils/Macro/Macros...
sélectionne "zaza" puis Exécuter


ChrisV


"Céd" a écrit dans le message de news:
071601c3db44$66e88780$
FA-BU-LEUX !

Je n'étais pas si loin que ça mais au lieu de mettre les :
je tapais AND. Je vais pouvoir reprendre mon projet si
vite abandonné.

Un grand M E R C I ChrisV

Par contre, je dois être un peu "nouille" mais je ne vois
pas ce que je dois faire avec le code des couleurs. Je
l'ai copié et tapé de 1 à 56 dans les cases mais rien ne
se passe...

Avatar
Céd
ça marche...!!!

Qu'est-ce qu'on ferait sans toi ??!?

En tout cas un grand merci pour ton aide ChrisV.

Bonne journée

Céd
-----Message d'origine-----
je ne vois pas ce que je dois faire avec le code
des couleurs


Sur un nouveau classeur, clic-droit sur un
onglet/Visualiser le code

Dans l'éditeur VB, Insertion/Module
Tu colles le code dans la fenêtre principale (Général)
puis, depuis un

onglet quelconque du classeur, Outils/Macro/Macros...
sélectionne "zaza" puis Exécuter


ChrisV


"Céd" a écrit dans
le message de news:

071601c3db44$66e88780$
FA-BU-LEUX !

Je n'étais pas si loin que ça mais au lieu de mettre les :
je tapais AND. Je vais pouvoir reprendre mon projet si
vite abandonné.

Un grand M E R C I ChrisV

Par contre, je dois être un peu "nouille" mais je ne vois
pas ce que je dois faire avec le code des couleurs. Je
l'ai copié et tapé de 1 à 56 dans les cases mais rien ne
se passe...


.




Avatar
sabatier
ah! ce chrisV....y a rien à faire : toujours aussi incomplet dans se
réponses que je ne qualifierais pas de GE-NIALES moaaaaaaaaaaa!
écoute-moi, cèd : une fois que tu es dans l'éditeur VB (où chris t'a
donc envoyé à la limite du manu militari) et que tu as collé sa proc
dans le module, tu cliques gauche quelque part à l'intérieur du texte de
la Sub pour y positionner le trait qui bat comme le petit coeur d'une
misange dans la froide nuit de vitry, puis tu cliques sur l'icône en
forme de flèche bleue dirigée vers la droite (et c'est là où notre
lakota n'a pas été bon car en matière de flèches, il s'y connaît) dont
la bulle te dit "Exécuter Sub/Userform" et tu vas voir s'installer dans
la feuille de ton classeur le beau travail de chris que, depuis, j'ai
décidé d'appeler Sitting Rainbow...
jps

ChrisV a écrit:
je ne vois pas ce que je dois faire avec le code
des couleurs



Sur un nouveau classeur, clic-droit sur un onglet/Visualiser le code
Dans l'éditeur VB, Insertion/Module
Tu colles le code dans la fenêtre principale (Général) puis, depuis un
onglet quelconque du classeur, Outils/Macro/Macros...
sélectionne "zaza" puis Exécuter


ChrisV


"Céd" a écrit dans le message de news:
071601c3db44$66e88780$
FA-BU-LEUX !

Je n'étais pas si loin que ça mais au lieu de mettre les :
je tapais AND. Je vais pouvoir reprendre mon projet si
vite abandonné.

Un grand M E R C I ChrisV

Par contre, je dois être un peu "nouille" mais je ne vois
pas ce que je dois faire avec le code des couleurs. Je
l'ai copié et tapé de 1 à 56 dans les cases mais rien ne
se passe...





Avatar
sabatier
question que tu te poseras moins, céd, quand je t'aurai dit que
l'ignoble chrisV a déserté ce forum pendant de longs mois...bon
d'accord, c'est moi qui ai assuré l'intérim mais quand même, ça ne se
fait pas...et Wakan Tanka sait si, pourtant, le volatile l'a appelé
souvent de ses roucoulements et invité à rejoindre la tribu!
jps

Céd a écrit:
ça marche...!!!

Qu'est-ce qu'on ferait sans toi ??!?

En tout cas un grand merci pour ton aide ChrisV.

Bonne journée

Céd

-----Message d'origine-----

je ne vois pas ce que je dois faire avec le code
des couleurs


Sur un nouveau classeur, clic-droit sur un


onglet/Visualiser le code

Dans l'éditeur VB, Insertion/Module
Tu colles le code dans la fenêtre principale (Général)


puis, depuis un

onglet quelconque du classeur, Outils/Macro/Macros...
sélectionne "zaza" puis Exécuter


ChrisV


"Céd" a écrit dans


le message de news:

071601c3db44$66e88780$
FA-BU-LEUX !

Je n'étais pas si loin que ça mais au lieu de mettre les :
je tapais AND. Je vais pouvoir reprendre mon projet si
vite abandonné.

Un grand M E R C I ChrisV

Par contre, je dois être un peu "nouille" mais je ne vois
pas ce que je dois faire avec le code des couleurs. Je
l'ai copié et tapé de 1 à 56 dans les cases mais rien ne
se passe...


.







Avatar
ChrisV
Pfff...
;-)

ChrisV


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

question que tu te poseras moins, céd, quand je t'aurai dit que
l'ignoble chrisV a déserté ce forum pendant de longs mois...bon
d'accord, c'est moi qui ai assuré l'intérim mais quand même, ça ne se
fait pas...et Wakan Tanka sait si, pourtant, le volatile l'a appelé
souvent de ses roucoulements et invité à rejoindre la tribu!
jps


1 2