Conditions intégrant une couleur dans VBA
Albandso
Messages postés
1
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour à tous,
Cela fait quelques jours que je travaille la mise en forme d'un planning sous VBA.
Cependant, je n'arrive pas pas à effectuer une manip.
Voilà mon soucis:
J'aimerais mettre en bleue une case d'une plage de données sélectionné quand le nombre de caractères de celle ci est égal à 19.
J'espère que vous comprendrez ma requête.
Merci par avance
Alban
Cela fait quelques jours que je travaille la mise en forme d'un planning sous VBA.
Cependant, je n'arrive pas pas à effectuer une manip.
Voilà mon soucis:
J'aimerais mettre en bleue une case d'une plage de données sélectionné quand le nombre de caractères de celle ci est égal à 19.
J'espère que vous comprendrez ma requête.
Merci par avance
Alban
1 réponse
-
Bonjour,
Faire Alt F11 sur la feuille concernée et mettre ce code:
Option Explicit 'https://www.excel-pratique.com/fr/vba/couleurs.php Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim longueur As Integer If Not Application.Intersect(Target, Range("A1")) Is Nothing Then ' adapter la cellule longueur = Len(ActiveSheet.Cells(1, 1).Value) If longueur = 19 Then Range("A1").Interior.ColorIndex = 11 'bleu Range("A1").Font.ColorIndex = 2 'blanc Else Range("A1").Interior.Pattern = xlNone ' on rétabli Range("A1").Font.ColorIndex = 1 'noir End If End If End Sub
Voir ceci pour les couleurs:
https://www.excel-pratique.com/fr/vba/couleurs.php
