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 Couleur de remplissage selon critères

Couleur de remplissage selon critères

10 réponses
Avatar
eric duperier
Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :
Comment insérer une couleur de remplissage dans une cellule de la (colonne
A) selon un texte contenu dans une cellule de la (colonne E).
Exemple :
Si la celulle E1 contient le texte "titi" alors en cellule A1 couleur de
remplissage bleu,
Si la celullue E2 contient le texte "toto", alors en cellule A2 couleur de
remplissage vert, etc... sans limite de critère.
Il ne s'agit pas de mise en forme conditionnelle car j'aimerais agir sur
deux cellules de colonnes différentes.
Savez-vous comment l'écrire en code VBA ?
Merci pour votre aide précieuse,
Claire
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
Avatar
Francois
Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :



Bonjour,

Pour retrouver les réponses...
http://minilien.com/?QUYgs51u9W


--
François l

Avatar
LSteph
Bonjour,
Comme déjà répondu sur ton fil précédent la MEFC convient très bien
même pour
deux cellules de colonnes différentes.
Sélectionne la plage a1:A2 (ou A1:A..n si plus)

Format MEFC
Condit.1 "laformule est" á="toto"
Format motif Rouge
Condit.2 "laformule est" á="titi"
Format motif Bleu

Nota: toutefois sur ton fil précédent aussi si tu veux en VBA tu y trouvera
3 solutions une avec macro et l'autre avec macro pour colorer et fonction
qui choisit la couleur.
avec "titi' et "toto". et une autre de JB avec "riri" et "roro".
Reste à adapter par condition à tes cellules.

lSteph


"eric duperier" a écrit dans le message de news:
43ef2ea5$0$1156$
Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :
Comment insérer une couleur de remplissage dans une cellule de la (colonne
A) selon un texte contenu dans une cellule de la (colonne E).
Exemple :
Si la celulle E1 contient le texte "titi" alors en cellule A1 couleur de
remplissage bleu,
Si la celullue E2 contient le texte "toto", alors en cellule A2 couleur de
remplissage vert, etc... sans limite de critère.
Il ne s'agit pas de mise en forme conditionnelle car j'aimerais agir sur
deux cellules de colonnes différentes.
Savez-vous comment l'écrire en code VBA ?
Merci pour votre aide précieuse,
Claire



Avatar
LSteph
...pour adapter à ton souhait en vba
sur sélection de A1:A...n pour colorier par rapport à E

''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c.offset(0,4)
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:
43ef2ea5$0$1156$
Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :
Comment insérer une couleur de remplissage dans une cellule de la (colonne
A) selon un texte contenu dans une cellule de la (colonne E).
Exemple :
Si la celulle E1 contient le texte "titi" alors en cellule A1 couleur de
remplissage bleu,
Si la celullue E2 contient le texte "toto", alors en cellule A2 couleur de
remplissage vert, etc... sans limite de critère.
Il ne s'agit pas de mise en forme conditionnelle car j'aimerais agir sur
deux cellules de colonnes différentes.
Savez-vous comment l'écrire en code VBA ?
Merci pour votre aide précieuse,
Claire



Avatar
LSteph
...les égals ont sauté à la recopie dirait-on:

Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c.Offset(0, 4)
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

"eric duperier" a écrit dans le message de news:
43ef2ea5$0$1156$
Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :
Comment insérer une couleur de remplissage dans une cellule de la (colonne
A) selon un texte contenu dans une cellule de la (colonne E).
Exemple :
Si la celulle E1 contient le texte "titi" alors en cellule A1 couleur de
remplissage bleu,
Si la celullue E2 contient le texte "toto", alors en cellule A2 couleur de
remplissage vert, etc... sans limite de critère.
Il ne s'agit pas de mise en forme conditionnelle car j'aimerais agir sur
deux cellules de colonnes différentes.
Savez-vous comment l'écrire en code VBA ?
Merci pour votre aide précieuse,
Claire



Avatar
Titi
Salut eric,

Tu peut placer ceci sur l'événement d'un bouton :

Sub Couleur()
Dim cell As Range

For Each cell In Range("E:E")
With cell.Offset(0, -4)
Select Case cell.Value
Case "Titi"
.Interior.ColorIndex = 5
Case "Toto"
.Interior.ColorIndex = 4
Case Else
.Interior.ColorIndex = -4142
End Select
End With
Next

End Sub


Salutations,
Titi
Avatar
LSteph
Bonjour François
c'est curieux qd je passe par ce minilien le texte de mon code (je l'ai
recopier pour adapter à E et A) revient sans les signes "=" alors qu'ils y
étaient bien à l'origine.
Encore un caprice HTML.

lSteph
"Francois" a écrit dans le message de news:

Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :



Bonjour,

Pour retrouver les réponses...
http://minilien.com/?QUYgs51u9W


--
François l



Avatar
eric duperier
ma cellule n'est pas égale à "toto", "titi", mais contient entre autres ce
texte...
Merci
Claire
"LSteph" a écrit dans le message de news:
%
...pour adapter à ton souhait en vba
sur sélection de A1:A...n pour colorier par rapport à E

''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c.offset(0,4)
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:
43ef2ea5$0$1156$
Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :
Comment insérer une couleur de remplissage dans une cellule de la
(colonne A) selon un texte contenu dans une cellule de la (colonne E).
Exemple :
Si la celulle E1 contient le texte "titi" alors en cellule A1 couleur de
remplissage bleu,
Si la celullue E2 contient le texte "toto", alors en cellule A2 couleur
de remplissage vert, etc... sans limite de critère.
Il ne s'agit pas de mise en forme conditionnelle car j'aimerais agir sur
deux cellules de colonnes différentes.
Savez-vous comment l'écrire en code VBA ?
Merci pour votre aide précieuse,
Claire







Avatar
LSteph
Ok!
remplace ="titi" par
="*titi*"

(idem pour toto)
;o)
"eric duperier" a écrit dans le message de news:
43ef3ab1$0$1149$
ma cellule n'est pas égale à "toto", "titi", mais contient entre autres ce
texte...
Merci
Claire
"LSteph" a écrit dans le message de news:
%
...pour adapter à ton souhait en vba
sur sélection de A1:A...n pour colorier par rapport à E

''***
Sub colore()
Dim c As Range
For Each c In Selection.Cells
Select Case c.offset(0,4)
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: 43ef2ea5$0$1156$
Bonjour à tous,

J'ai déjà posé cette question, mais je suis perdue...
La revoici :
Comment insérer une couleur de remplissage dans une cellule de la
(colonne A) selon un texte contenu dans une cellule de la (colonne E).
Exemple :
Si la celulle E1 contient le texte "titi" alors en cellule A1 couleur de
remplissage bleu,
Si la celullue E2 contient le texte "toto", alors en cellule A2 couleur
de remplissage vert, etc... sans limite de critère.
Il ne s'agit pas de mise en forme conditionnelle car j'aimerais agir sur
deux cellules de colonnes différentes.
Savez-vous comment l'écrire en code VBA ?
Merci pour votre aide précieuse,
Claire











Avatar
eric duperier
Merci pour votre réponse.
Après essai voici le message d'erreur qui s'affiche :
"Erreur d'exécution 13", "Incompatibilité de type".
Avez-vous une solution SVP ?
Merci,
Claire
"Titi" a écrit dans le message de news:

Salut eric,

Tu peut placer ceci sur l'événement d'un bouton :

Sub Couleur()
Dim cell As Range

For Each cell In Range("E:E")
With cell.Offset(0, -4)
Select Case cell.Value
Case "Titi"
.Interior.ColorIndex = 5
Case "Toto"
.Interior.ColorIndex = 4
Case Else
.Interior.ColorIndex = -4142
End Select
End With
Next

End Sub


Salutations,
Titi
Avatar
Titi
Salut,

Sub Couleur() est une procédure !

On appelle une procédure par : Call nomprocédure

Sur l'évennement Click d'un bouton on appelle la procédure comme ceci
:

Private Sub CommandButton1_Click()
Call Couleur
End Sub

Salutations,
Titi