Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Coloré des cellules en VBA en fonction d'une selection

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion admin3s
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

admin3s

XLDnaute Nouveau
Bonjour a tous,

Ce forum met très utiles et riche en informations.
Mais je n'ai pas trouve de solution pour mon PB actuel...

je vous expose mon PB.

J’ai récupérer un bout de code VBA pour colorer une cellule en fonction d'un critère (sa fonctionne sans PB) mais je voudrai que selon le critère sa colore plusieurs cellule EX: B1 + C1 + D1 + E1

Mon fichier et un planning donc il faut que l'opération se répète sur tous les jours de l'année...

Et je voudrais aussi utiliser la fonction RGB maos je n'y arrive pas !!!

Dans l'attente d'une reponse je continu mes recherches

Merci d'avance pour votre aide

Voici ci dessous mon petit bout de code VBA :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D😀")) Is Nothing Then
For Each cell In Target
If cell.Value = "SF" Then
cell.Interior.ColorIndex = RGB(0, 255, 0)
ElseIf cell.Value = "SD" Then
cell.Interior.ColorIndex = 5
ElseIf cell.Value = "CD" Then
cell.Interior.ColorIndex = 56
ElseIf cell.Value = "GHV" Then
cell.Interior.ColorIndex = 6
ElseIf cell.Value = "GL" Then
cell.Interior.ColorIndex = 7
ElseIf cell.Value = "TT" Then
cell.Interior.ColorIndex = 3
ElseIf cell.Value = "" Then
cell.Interior.ColorIndex = 0
End If
Next
End If

End Sub
 
Trier par date Trier par votes
Re : Coloré des cellules en VBA en fonction d'une selection

Bonjour Admin3s,

Voici une solution à tester :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        For Each cell In Target
            Select Case cell.Value
                Case "SF"
                    cell.Interior.Color = RGB(0, 255, 0)
                Case "SD"
                    cell.Interior.ColorIndex = 5
                Case "CD"
                    cell.Interior.ColorIndex = 56
                Case "GHV"
                    cell.Interior.ColorIndex = 6
                Case "GL"
                    cell.Interior.ColorIndex = 7
                Case "TT"
                    cell.Interior.ColorIndex = 3
                Case Else
                    cell.Interior.ColorIndex = 0
            End Select
        Next
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : Coloré des cellules en VBA en fonction d'une selection

Pour utiliser la fonction RGB qui permet de s'affranchier de la limite des 56 couleurs indexées d'Excel, il faut utiliser la propriete Color et non ColorIndex
 
Vote positif 0 Vote négatif
Re : Coloré des cellules en VBA en fonction d'une selection

🙂 Bonjour,

Essaie le code ci-dessous en remplaçant "Zone" par le nom adequat et 10 et 20 par tes propres critères.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("zone")) Is Nothing Then
For Each Cell In Target
If Cell.Value = 10 Then
Cell.Select
With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
ElseIf Cell.Value = 20 Then
Cell.Select
With Selection.Interior
        .ColorIndex = 7
        .Pattern = xlSolid
    End With
End If
Next
End If
End Sub
🙂
 
Vote positif 0 Vote négatif
Re : Coloré des cellules en VBA en fonction d'une selection

Pour répondre à la question de colorer plusieurs cellules, supposons que tu indiques "SF" en B1 et que tu veux colorer la cellule B1 et les 3 cellules sur sa droite
Code: 
If Target.Value = "SF" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.ColorIndex = 6
End If
 
Vote positif 0 Vote négatif
Re : Coloré des cellules en VBA en fonction d'une selection

C'est bon sa fonctionne !!!

Voici ci-dessous le code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "SF" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.Color = RGB(255, 255, 153)
End If

If Target.Value = "SD" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.Color = RGB(158, 215, 250)
End If

If Target.Value = "CD" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.Color = RGB(251, 209, 91)
End If

If Target.Value = "GHV" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.Color = RGB(185, 253, 208)
End If

If Target.Value = "GL" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.Color = RGB(254, 184, 254)
End If

If Target.Value = "TT" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.Color = RGB(255, 91, 91)
End If

If Target.Value = "" Then
Range(Target.Address, Target.Offset(0, 3).Address).Interior.ColorIndex = 0
End If

End Sub

Si quelqu’un voit une amélioration à apporter sur ce code je suis preneur….
Encore un grand merci a vous tous....
 
Vote positif 0 Vote négatif
Re : Coloré des cellules en VBA en fonction d'une selection

Sans parler VBA qui ne me cause pas (!) j'utilise, pour la même chose que toi, les "Mises en forme conditionnelle" que tu trouves dans le menu "Format"...

En espérant t'avoir aidé...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
318
jalaba
J
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
856
Dranreb
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
683
Corentin26270
C
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
539
Minus&Cortex
M
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
298
Dranreb
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
767
salma_hayek
S
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
551
Jacky67
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
472
Chaton77
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
638
fanch55
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
505
vgendron
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
829
Nico2978
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
383
BenExcel
B
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
632
darkjedi
D
S
  • Question Question
XL 2019 Problème exécution VBA
Réponses
1
Affichages
437
Phil69970
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
594
Julien_B
J
D
  • Question Question
Microsoft 365 VBA pour répéter - cacher 2 colonnes consécutives selon la valeur d'une cellule.
Réponses
4
Affichages
458
Didjo
D
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
J
  • Question Question
XL 2016 Code VBA pour selectionner une ou plusieurs lignes en fonction du contenue (chaine de caractère) d'une cellule
Réponses
9
Affichages
3 K
Mika2705
M
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…