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

Microsoft 365 Mise en forme conditionnel / vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pierrof
  • Date de début Date de début

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

pierrof

XLDnaute Occasionnel
Bonjour,

Je souhaite sur mon projet mettre en évidence des valeurs d'un tableau par rapport à un autre. Les tableaux peuvent être de dimension variables.
A l'aide d'un code VBA, j'aimerais pouvoir mettre en forme la MFC et d'un autre la supprimer.

Je vous laisse un fichier exemple pour plus de clarté.

Merci d'avance de votre aide.

Cordialement
 

Pièces jointes

Solution
Bonjour Pierrof,
Un essai en PJ sans passer par des MFC XL, avec :
VB: 
Sub MFC()
    Application.ScreenUpdating = False
    For Col = 3 To 10                           ' Toutes les colonnes
        For Lig = 2 To [A65500].End(xlUp).Row   ' Toutes les lignes
            If Cells(Lig, Col) = Cells(Lig, Col + 28) Then
                Cells(Lig, Col).Interior.Color = RGB(150, 200, 80)  ' Si = alors Vert
            ElseIf Cells(Lig, Col) < Cells(Lig, Col + 28) Then
                Cells(Lig, Col).Interior.Color = RGB(255, 200, 0)   ' Si < alors Orange
            Else
                Cells(Lig, Col).Interior.Color = RGB(255, 0, 0)     ' Sinon Rouge
            End If
        Next Lig
    Next Col
End Sub
Sub RazColor()
    Range("C2:J" &...
Trier par date Trier par votes
Bonjour Pierrof,
Un essai en PJ sans passer par des MFC XL, avec :
VB: 
Sub MFC()
    Application.ScreenUpdating = False
    For Col = 3 To 10                           ' Toutes les colonnes
        For Lig = 2 To [A65500].End(xlUp).Row   ' Toutes les lignes
            If Cells(Lig, Col) = Cells(Lig, Col + 28) Then
                Cells(Lig, Col).Interior.Color = RGB(150, 200, 80)  ' Si = alors Vert
            ElseIf Cells(Lig, Col) < Cells(Lig, Col + 28) Then
                Cells(Lig, Col).Interior.Color = RGB(255, 200, 0)   ' Si < alors Orange
            Else
                Cells(Lig, Col).Interior.Color = RGB(255, 0, 0)     ' Sinon Rouge
            End If
        Next Lig
    Next Col
End Sub
Sub RazColor()
    Range("C2:J" & [A65500].End(xlUp).Row).Interior.Color = xlNone
End Sub
J'ai supposé que les deux tableaux commençaient en colonne B et AE, sinon il faut reprendre le code.
pierrof à dit:
Les tableaux peuvent être de dimension variables.
Cliquez pour agrandir...
J'ai supposé que c'est leurs longueur qui change.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
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

  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
512
Cousinhub
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
417
TooFatBoy
  • Résolu(e)
XL pour MAC Mise en forme d'un TCD
Réponses
9
Affichages
183
pilou010
P
  • Résolu(e)
XL 2016 Mise en forme conditionnel Doublon ligne par ligne
Réponses
3
Affichages
109
sylvanu
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
462
Yogean
Y
A
  • Résolu(e)
Microsoft 365 Afficher Masquer tableau selon critères + MàJ Autom. TCD en VBA
Réponses
8
Affichages
415
Amilo
A
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
229
flea
F
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
304
Danyk01
D
C
  • Résolu(e)
XL 2016 mise en forme conditionnelle dans tableau
Réponses
3
Affichages
184
Colette29
C
R
  • Question Question
Microsoft 365 mise en forme conditionnelle
Réponses
2
Affichages
153
ridzo
R
M
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur feuille entière
2
Réponses
24
Affichages
523
sylvanu
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
444
mimednejma
M
  • Résolu(e)
XL 2010 Mise en forme d’un graphique spécifique
Réponses
6
Affichages
164
jeanmi
F
  • Question Question
XL 2016 Mise en forme conditionnelle d'une forme (cartographie)
Réponses
9
Affichages
435
francois95
F
K
  • Question Question
Microsoft 365 Organisation - Liste des taches
Réponses
3
Affichages
415
JHA
J
A
  • Résolu(e)
XL 2013 mise en forme conditionnelle celons 2 critères
Réponses
7
Affichages
281
Auriane
A
S
  • Résolu(e)
Microsoft 365 Appliquer par vba une mise en forme conditionnelle d'après une liste de cellules mises en forme
Réponses
9
Affichages
783
Dranreb
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle si *mot* dans cellule
Réponses
10
Affichages
501
TooFatBoy
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
303
TooFatBoy
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
874
jeanmi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…