Mise en forme selon cellule de référence en VBA
Résolu/Fermé
SylvainToulouse
Messages postés
4
Date d'inscription
lundi 10 août 2015
Statut
Membre
Dernière intervention
10 août 2015
-
10 août 2015 à 16:33
SylvainToulouse Messages postés 4 Date d'inscription lundi 10 août 2015 Statut Membre Dernière intervention 10 août 2015 - 10 août 2015 à 17:17
SylvainToulouse Messages postés 4 Date d'inscription lundi 10 août 2015 Statut Membre Dernière intervention 10 août 2015 - 10 août 2015 à 17:17
A voir également:
- Mise en forme selon cellule de référence en VBA
- Mise en forme conditionnelle excel - Guide
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Excel mise en forme conditionnelle autre cellule ✓ - Forum Excel
- Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel
- Présentation d'une diapositive - Forum Bureautique
1 réponse
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
59
Modifié par Kuartz le 10/08/2015 à 17:09
Modifié par Kuartz le 10/08/2015 à 17:09
Bonjour,
Essayez ce code :
Si vous voulez que ce soit automatique, dans le projet VBA, double cliquez sur la Feuil 1 (panneau de gauche) puis collez directement ce code :
Cordialement.
Essayez ce code :
Sub Macro1()
Dim DL As Long
DL = Cells(Application.Rows.Count, 12).End(xlUp).Row
For i = 2 To DL 'A supposer que la première ligne de vos prix soit la ligne 2
If Range("L" & i).Value > Range("BL1").Value Then 'Si la cellule de la ligne i colonne L est supérieure à BL1 alors
Range("B" & i).Interior.Color = RGB(255, 192, 0) 'Coloration de la cellule B
Range("L" & i).Interior.Color = RGB(255, 192, 0) 'Coloration de la cellule L
Else: Rows(i).Interior.ColorIndex = xlColorIndexNone
End If
Next i
End Sub
Si vous voulez que ce soit automatique, dans le projet VBA, double cliquez sur la Feuil 1 (panneau de gauche) puis collez directement ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DL As Long
DL = Cells(Application.Rows.Count, 12).End(xlUp).Row
For i = 2 To DL 'A supposer que la première ligne de vos prix soit la ligne 2
If Range("L" & i).Value > Range("BL1").Value Then 'Si la cellule de la ligne i colonne L est supérieure à BL1 alors
Range("B" & i).Interior.Color = RGB(255, 192, 0) 'Coloration de la cellule B
Range("L" & i).Interior.Color = RGB(255, 192, 0) 'Coloration de la cellule L
Else: Rows(i).Interior.ColorIndex = xlColorIndexNone
End If
Next i
End Sub
Cordialement.
10 août 2015 à 17:17
merci infiniment