Conditions intégrant une couleur dans VBA
Albandso
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Conditions intégrant une couleur dans VBA
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Intégrer une vidéo dans un powerpoint - Guide
- A quoi servent les boutons de couleur sur une telecommande - Guide
1 réponse
Bonjour,
Faire Alt F11 sur la feuille concernée et mettre ce code:
Voir ceci pour les couleurs:
https://www.excel-pratique.com/fr/vba/couleurs.php
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
