Affecter une couleur à des cellules suivant leur contenu au format texte

Michou9 · 22 Décembre 2011

Bonjour le Forum

Je souhaiterais pouvoir affecter une couleur à certaines cellules d’une même colonne en fonction de leur contenu « Texte »

Serait-il possible de réaliser une macro (il y a beaucoup de cellules concernées) pour faire cette tâche qui serait bien longue autrement.

Je ne souhaite pas utiliser une mise en forme conditionnelle

Exemple colonne G
Toutes les cellules contenant le texte Exemple01 en Bleu
Toutes les cellules contenant le texte Exemple02 en Jaune
Toutes les cellules contenant ………..

Comme il y a plusieurs colonnes possibles et qu’il y beaucoup de « textes » différents, il serait nécessaire pour le choix de la colonne que celle-ci soit paramétrable et pour les textes des cellules quelle soit interactive.

Merci d’avance pour une aide éventuelle

gilbert_RGI · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

bonjour

Serait-il possible que cette macro soit plutôt interactive avec par exemple une MsgBox pour rentrer le contenu texte d’un type de cellule ?

Il faudrait le texte a rechercher et aussi la couleur a employer faites pour cela un userform

Michou9 · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Bonjour Staple1600, bonjour gilbert_RGI

J'ai du mal m'expliquer.

C'est vrai qu'une MsgBox est d'afficher un Message

Mais j'ai déjà utilisé une macro (Ce n'est pas moi qui l'ai réalisée)
Où par le biais d'une MsgBox, cette macro demande de rentrer les coordonnées des cellules à traiter à l’intérieur cette MsgBox
Puis ensuite une autre MsgBox apparait demandant une valeur

Cette macro n’a bien sûr rien à voir avec ce que j’attends
Mais c’est le principe que j’aurai aimé retrouver

Pour essayer d’être plus clair
Voila ce que je souhaiterais si possible obtenir 🙄

1) Je lance la macro
2) Cette macro interactive me demande de rentrer à l’intérieur d’une MsgBox la zone concernée (Exemple G1 :G1000)
3) Puis une autre MsgBox apparait me demandant cette fois le texte concerné (Exemple quelconque « Voiture »)
4) Puis une dernière MsgBox apparait me demandant la couleur à attribuer (Exemple : Violet)

Finalité : toutes les cellules contenant le texte « Voiture » dans la zone G1 :G1000 prennent la couleur violet.

gilbert_RGI · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

ce n'est pas une MsgBox mais une InputBox

Michou9 · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Re,

Excuse-moi pour l’erreur
Mes connaissances sont un peu justes comme tu as pu le remarquer

J’en prends bonne note et je rectifie alors mon post

Pour essayer d’être encore plus clair
Voila ce que je souhaiterais si possible obtenir

1) Je lance la macro
2) Cette macro interactive me demande de rentrer à l’intérieur d’une ImputBox la zone concernée (Exemple G1 :G1000)
3) Puis une autre ImputBox apparait me demandant cette fois le texte concerné (Exemple quelconque « Voiture »)
4) Puis une dernière ImputBox apparait me demandant la couleur à attribuer (Exemple : Violet)

Finalité : toutes les cellules contenant le texte « Voiture » dans la zone G1 :G1000 prennent la couleur violet.

gilbert_RGI · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

un exemple de code à mettre dans un module

Code:

Sub test1()
Dim Rg As Range
On Error Resume Next
Set Rg = Application.InputBox(prompt:="Sélectionner la ou les colonne(s)", Type:=8)
If Rg Is Nothing Then MsgBox "Boîte de dialoque annuler": Exit Sub
MsgBox Rg.Address 
End Sub

Michou9 · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Pour le 1) : C'est exactement ce que je souhaitais

gilbert_RGI · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Michou9 à dit:
Pour le 1) : C'est exactement ce que je souhaitais

maintenant pour la suite

Code:

Sub test1()
    Dim Rg As Range
    Dim coul As String
    On Error Resume Next
    Set Rg = Application.InputBox(prompt:="Sélectionner la colonne", Type:=8)
    If Rg Is Nothing Then MsgBox "Boîte de dialoque annuler": Exit Sub
    MsgBox Rg.Address
    coul = InputBox("Quelle couleur")
    'MsgBox coul
    Select Case coul
    Case "jaune"
        MsgBox "vous avez choisi " & coul
    Case "bleue"
        MsgBox "vous avez choisi " & coul
    Case "rouge"
        MsgBox "vous avez choisi " & coul
    Case "orange"
        MsgBox "vous avez choisi " & coul
    Case Else
        MsgBox "cette couleur n'est pas validée"
    End Select
End Sub

alors après la dernière Msgbox il faut encore une suite

Michou9 · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Pour la sélection de la zone et de la couleur, c’est parfait 😱

Reste la sélection du texte

Et surtout le plus dur le traitement

gilbert_RGI · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

pénard le Michou9 😛

Code:

Sub test1()
    Dim Rg As Range
    Dim coul As String, letexte As String
    On Error Resume Next
    Set Rg = Application.InputBox(prompt:="Sélectionner la colonne", Type:=8)
    If Rg Is Nothing Then MsgBox "Boîte de dialoque annuler": Exit Sub
questcoul:
    coul = InputBox("Quelle couleur")
    Select Case coul
    Case "rouge"
        MsgBox "vous avez choisi " & coul
        couleur = RGB(255, 32, 12)    'exemple
        GoTo suite
    Case "bleue"
        MsgBox "vous avez choisi " & coul
        GoTo suite
    Case "jaune"
        MsgBox "vous avez choisi " & coul
        GoTo suite
    Case "orange"
        MsgBox "vous avez choisi " & coul
        GoTo suite
    Case Else
        MsgBox "cette couleur n'est pas validée": GoTo questcoul
    End Select
suite:
    letexte = InputBox("inscrivez pour quel texte")
    col = Right(Rg.Address, 1)
    derl = Range(col & "65536").End(xlUp).Row
    For i = 5 To derl
        If Cells(i, col).Value = letexte Then
            Cells(i, col).Interior.Color = couleur
        End If
    Next
End Sub

reste à ajouter le code RGB pour chaque couleur comme dans le rouge

Michou9 · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

pénard le Michou9

Je suis suppoter !
C'est la seule chose que mes moyens me permettent
Alors j'encourage 😛

La saisie de la couleur, la zone, le texte
Fonctionne impeccable

Mais je n’obtiens aucun changement. 😡

J’ai essayé avec le rouge dont le code est déjà dans la macro

Je précise qu’après la saisie de la zone
La confirmation de la zone n’est pas retournée
Comme c’était le cas avec le 1er jet
Cela ne me dérange pas du tout
Mais serait-ce l’explication du problème 😕

gilbert_RGI · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

reste à ajouter le code RGB pour chaque couleur comme dans le rouge

couleur = RGB(255, 32, 12)

ça veut dire qu'il faut donner des valeurs différentes à R , à G , et à B ( )

voir ce lien

http://i48.servimg.com/u/f48/11/38/07/30/exempl10.jpg

Michou9 · 28 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Re,

Merci pour le tableau des couleurs

Mais ce que je disais, c’est que en essayant avec la couleur rouge
Dont le code est déjà rentré
Il n’y pas de changement de couleur qui s’opère

J’ai essayé avec plusieurs textes
Et rien ne se passe

gilbert_RGI · 29 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

comment ça?

voir ceci en cliquant ici

Michou9 · 29 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Bonjour

Peinard le Michou et 100% satisfait 😱

En fait je commettais une erreur dans la sélection de la zone
Je continuais de rentrer ma zone comme dans la précédente macro
Soit « G1 :G5000 »
Alors que je devais juste cliquer sur la colonne G 😡

Je viens de la tester dans mon fichier
Cela fonctionne parfaitement
Et en plus c’est ultra rapide
Une merveille 😱😱

En prime une bonne leçon dans le domaine des macros

Un grand merci
Et bonnes fêtes de fin d’année 🙄

gilbert_RGI · 29 Décembre 2011

Re : Affecter une couleur à des cellules suivant leur contenu au format texte

Michou9 à dit:
Bonjour

Peinard le Michou et 100% satisfait 😱

Et bonnes fêtes de fin d’année 🙄

Bonnes Fêtes à vous aussi

Affecter une couleur à des cellules suivant leur contenu au format texte

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

gilbert_RGI

XLDnaute Barbatruc

Discussions similaires

Affecter une couleur à des cellules suivant leur contenu au format texte

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency