La shape d'insertion a été renommée Insertion |
|
Mise en forme conditionnelle de la colonne des dates | |
Ajout code pour changer la couleur du shape Insertion lors d'un changement dans la feuille |
VB:
|
Bonjour,
Le "Ajout code pour changer la couleur du shape Insertion lors d'un changement dans la feuille" réagit correctement, par contre la mise en forme conditionnelle ,elle, ne marche pas sur mon fichier. Y a t il une condition autre à renseigner.
Merci
La shape d'insertion a été renommée Insertion Regarde la pièce jointe 1122202 Mise en forme conditionnelle de la colonne des dates Regarde la pièce jointe 1122203 Ajout code pour changer la couleur du shape Insertion lors d'un changement dans la feuille VB:Private Sub Worksheet_Change(ByVal Target As Range) If WorksheetFunction.CountBlank(Range("A" & [Debut].Row & ":" & "A" & [Fin].Row)) <= 3 Then Shapes("Insertion").OLEFormat.Object.Interior.Color = 49407 ' orange Else Shapes("Insertion").OLEFormat.Object.Interior.Color = 16507848 ' bleu clair End If End Sub