Conditions intégrant une couleur dans VBA
Fermé
Albandso
Messages postés
1
Date d'inscription
vendredi 16 février 2018
Statut
Membre
Dernière intervention
16 février 2018
-
16 févr. 2018 à 11:23
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 16 févr. 2018 à 15:32
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 16 févr. 2018 à 15:32
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
- Intégrer une vidéo dans un powerpoint - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Schéma branchement autoradio couleur fils - Forum Autoradio
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
16 févr. 2018 à 15:32
16 févr. 2018 à 15:32
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
