Conditions intégrant une couleur dans VBA Fermé

Question

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

cs_Le Pivert · Answer

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

Conditions intégrant une couleur dans VBA

1 réponse

Discussions similaires