Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mises en formes conditionnelles et couleur dans les formules

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pingouinal

XLDnaute Occasionnel
Bonjour,

Voilà je suis tout nouveau sur ce forum que j'ai un peu parcouru pour trouver des réponses à mes questions, mais je n'en ai pas trouvé.

Je pose donc ici mes deux questions :

- sur une feuille excel, j'aurais besoin d'utiliser 14 mises en forme conditionnelles, mais apparemment le maximum est de 3. Quelqu'un aurait-il une solution pour en ajouter?

- sur cette même feuille excel, j'ai besoin de faire la somme des cellule de la même couleur (suite aux MFC ci-dessus), mais je n'arrive pas à inclure la couleur de la cellule comme condition dans ma formule. Est-ce possible?

J'espère que mes questions ne paraîtront pas trop bête et surtout que des réponses positives existent. ^_^'.

En tous cas, merci d'avance.
 
Trier par date Trier par votes
Re : Mises en formes conditionnelles et couleur dans les formules

Arf Pingouinal, quand tu nous auras tout dit...

Ce code n'a pas vraiment été étudié pour gérer le collage de données. Cependant, si tu copies-colles UNE SEULE cellule en colonne E, tu verras que ça fonctionne, par contre, si tu tentes de copier des plages entières (je suppose que c'est ce que tu indiques cette fois), alors là, évidemment, ça ne fonctionnera pas. Et pour cause, tu verras dans mon code plus haut l'indication suivante : "Ne gère pas les sélections de plages" (c'était pas pour faire joli... 😱)

Bon, je viens de tenter une ultime modification du fichier exemple, pour tenter de répondre à ta demande :
Code: 
[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Worksheet_Change([COLOR=navy]ByVal[/COLOR] Target[COLOR=navy] As [/COLOR]Range)
[COLOR=green]'myDearFriend! - Août 2006[/COLOR]
[COLOR=navy]Dim [/COLOR]C[COLOR=navy] As [/COLOR]Range
[COLOR=navy]Dim [/COLOR]TabTemp[COLOR=navy] As Variant
Dim [/COLOR]L[COLOR=navy] As Long[/COLOR]
      [COLOR=navy]If [/COLOR]Application.Intersect(Target, Columns(5))[COLOR=navy] Is Nothing Then Exit Sub[/COLOR]
      [COLOR=green]'Rédéfinit l'objet Target pour ne réprésenter que les cellules en colonne E[/COLOR]
      [COLOR=navy]Set[/COLOR] Target = Application.Intersect(Target, Columns(5))
      [COLOR=green]'Pour chaque cellule de la plage Target[/COLOR]
      [COLOR=navy]For Each[/COLOR] C[COLOR=navy] In [/COLOR]Target.Cells
            [COLOR=navy]If [/COLOR]C.Value <> "" [COLOR=navy]Then[/COLOR]
                  [COLOR=navy]If [/COLOR]IsNumeric(C.Value) [COLOR=navy]Then[/COLOR]
                        [COLOR=navy]With[/COLOR] Range("MFCmultiples")
                              [COLOR=green]'Charge les préférences dans un tableau variant temporaire[/COLOR]
                              TabTemp = .Value
                              [COLOR=green]'Détermine le format à utiliser suivant la valeur de la cellule[/COLOR]
                              [COLOR=navy]For [/COLOR]L = 1[COLOR=navy] To UBound[/COLOR](TabTemp, 1)
                                    [COLOR=navy]If [/COLOR]C.Value > TabTemp(L, 1) [COLOR=navy]Then[/COLOR]
                                          [COLOR=green]'Applique le fond de couleur à la ligne[/COLOR]
                                          C.EntireRow.Range("A1:F1").Interior.ColorIndex = .Cells(L - 1, 1).Interior.ColorIndex
                                          [COLOR=navy]Exit[/COLOR] For
                                    [COLOR=navy]End If[/COLOR]
                              [COLOR=navy]Next[/COLOR] L
                        [COLOR=navy]End With[/COLOR]
                  [COLOR=navy]End If[/COLOR]
            [COLOR=navy]Else[/COLOR]
                  [COLOR=green]'Efface le fond de couleur[/COLOR]
                  C.EntireRow.Range("A1:F1").Interior.ColorIndex = xlNone
            [COLOR=navy]End If[/COLOR]
      [COLOR=navy]Next[/COLOR] C
[COLOR=navy]End[/COLOR] Sub[/SIZE]
Cordialement,
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Mises en formes conditionnelles et couleur dans les formules

Rebonjour Didier,

Désolé de ne pas avoir précisé plus tôt que je copiais collais mes cellules, je ne pensais pas que ça aurait de l'importance.
Pour la ligne "Ne gère pas les sélections de plages", je n'avais tout simplement pas compris que ça parlais du copié collé.

En tous cas ton fichier marche à la perfection. Avec ça j'espère être à même de finir mon fichier.

Merci beaucoup à toi Didier et à tous les autres qui m'ont aidé aussi et bon week-end. 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
250
tuti
T
  • Question Question
XL 2021 Mises en formes Conditionnelles.
2
Réponses
26
Affichages
2 K
TooFatBoy
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
301
sylvanu
A
  • Résolu(e)
XL 2013 mise en forme conditionnelle celons 2 critères
Réponses
7
Affichages
227
Auriane
A
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
888
GClaire
G
M
  • Question Question
Mises en forme conditionnelles
Réponses
2
Affichages
698
MLH NDR
M
J
  • Question Question
Microsoft 365 Besoin AIDE formules ou mise en forme conditionnelle
Réponses
8
Affichages
781
JaGAF
J
M
  • Résolu(e)
XL 2019 Mettre une valeur dans des cellules, en fonction d'une autre valeur
2
Réponses
15
Affichages
2 K
soan
S
L
  • Résolu(e)
XL 2016 Création fonction personnalisée Couleur
Réponses
7
Affichages
960
Lolote83
L
M
  • Résolu(e)
Microsoft 365 Récupérer données d'une autre feuille en fonction de ma selection dans une liste
Réponses
2
Affichages
842
minamas
M
V
  • Question Question
XL pour MAC Priorités de mises en forme conditionnelles et problème de reconnaissance de langues
Réponses
2
Affichages
870
valerievdg
V
A
Bonjour à toutes et tous je peux aider hors VBA pour les logiciels SuperNova et ZoomText (Agrandisseurs) + FUSION JAWS et NVDA (Lecteurs d'écran)
Réponses
1
Affichages
690
dysorthographie
  • Question Question
XL 2021 Collecter des données et les restituer après mise en forme dans un autre onglet
Réponses
8
Affichages
707
JoBar57
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
M
  • Résolu(e)
Microsoft 365 enregistrement copie du classeur ouvert avec mot de passe et incrémentation
2
Réponses
27
Affichages
2 K
meyscal
M
K
  • Résolu(e)
Microsoft 365 Utiliser une colonne "référence" pour des mises en forme et les recopier selon les valeurs
Réponses
2
Affichages
1 K
Kref-Arou
K
H
  • Question Question
XL 2019 Trouver le nom d’une colonne et reporter les erreurs dans un tableau de bord
Réponses
7
Affichages
776
Homero18
H
A
  • Question Question
Microsoft 365 Copie VBA d'un tableau présent et identique sur 12 onglets dans un autre onglet dont seules les lignes complétées sont copiées
Réponses
4
Affichages
694
AlexiaC
A
L
  • Résolu(e)
Microsoft 365 Comment copier 2 colonnes d'une ligne en fonction d'un mot dans une autre feuille
2
Réponses
24
Affichages
2 K
lilicorail46
L
  • Question Question
Microsoft 365 Multiples tableaux en un
Réponses
2
Affichages
758
Sha_do
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…