Macro couleur cellules identiques

DoubleZero

XLDnaute Barbatruc

• 15 Mai 2014

• #2

Re : Macro couleur cellules identiques

Bonjour, merguez59, le Forum,

Une suggestion avec ce code placé dans le module de l'onglet concerné.

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If Not Intersect(c, [a:a]) Is Nothing Then
        Select Case c
        Case "A"
            c.Interior.ColorIndex = 3
        Case "B"
            c.Interior.ColorIndex = 45
        Case "C"
            c.Interior.ColorIndex = 6
        Case "D"
            c.Interior.ColorIndex = 4
        Case "E"
            c.Interior.ColorIndex = 26
        Case Else
            c.Interior.ColorIndex = xlNone
            ''etc... etc...
        End Select
    End If
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Mai 2014

• #3

Re : Macro couleur cellules identiques

Bonsour®
par procedure événementielle (selection et/ou changement)
32 couleurs différentes (max 56)
basées sur le 1er caractère de la cellule ( pour argument=32, majuscule ou minuscule = couleur identique)

attention si couleur = très foncée prévoir changement couleur caractère.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Cells.Count > 1 Then
Exit Sub
Else
If Target <> "" Then Target.Interior.ColorIndex = Asc(Target) Mod 32
End If
End Sub

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Or Target.Cells.Count > 1 Then
Exit Sub
Else
If Target <> "" Then Target.Interior.ColorIndex = Asc(Target) Mod 32
End If
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

merguez59

Guest

• 15 Mai 2014

• #4

Re : Macro couleur cellules identiques

Bonjour merci pour vos réponses, mais lorsque je copie colle vos macro le "débeugeur" d'arrête à la première ligne. J'ai mal saisi?:



Merci d'avance!

 

Pièces jointes

• Sans titre.jpg

  35.2 KB · Affichages: 78
• Sans titre.jpg

  35.2 KB · Affichages: 76

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Mai 2014

• #5

Re : Macro couleur cellules identiques

Bonsour®
🙁 il ne s'agit pas de macro à proprement parler ...
🙄 mais de procédures événementielles à insérer dans un module de feuille et non dans un module standard ...

 

Pièces jointes

• Capture.JPG

  21.4 KB · Affichages: 51
• Capture.JPG

  21.4 KB · Affichages: 57

Dernière édition: 15 Mai 2014

Vote positif 0 Vote négatif

M

merguez59

Guest

• 15 Mai 2014

• #6

Re : Macro couleur cellules identiques

Merci pour ta réponse,
Peux tu m'indiquer où inserer eci du coup? Quand je fais macro, créer un nouvelle macro et que je vais dans feuil1 comme tu l'indique sur la capture d'écran, ca ne fait rien...

Merci d'avance!

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Mai 2014

• #7

Re : Macro couleur cellules identiques

Bonsour®
quand tu as ta feuille excel affichée
click droit sur l'onglet actif en bas
visualiser le code
coller le code fourni précédement

 

Pièces jointes

• Capture.JPG

  32.4 KB · Affichages: 62
• Capture.JPG

  32.4 KB · Affichages: 55

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Mai 2014

• #8

Re : Macro couleur cellules identiques

Re-bonjour, bonjour, Modeste geedee 🙂,

merguez59 à dit:

... le "débeugeur" d'arrête à la première ligne. J'ai mal saisi?:

Regarde la pièce jointe 306568

...

Cliquez pour agrandir...

Le code doit ressembler à ceci :

Pour savoir comment l'utiliser, consulter ceci et Ce lien n'existe plus.

Bon courage et à bientôt 🙂

 

Pièces jointes

• Private Sub.JPG

  28.9 KB · Affichages: 98

Vote positif 0 Vote négatif

M

merguez59

Guest

• 15 Mai 2014

• #9

Re : Macro couleur cellules identiques

Merci pour voter aide.
Ca fonctionne. Par contre, je m'y prends peut-être mal, mais pour "colorer" les cellules, je dois double cliquer sur chacune ou alors m'y placer faire F2 puis entré.

Comment "appliquer l'action" sur toute la plage? je n'ai pas trouvé l'info sur ton lien DoubleZero

merci d'avance,

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Mai 2014

• #10

Re : Macro couleur cellules identiques

Re-bonjour,

merguez59 à dit:

... Ca fonctionne. Par contre, je m'y prends peut-être mal, mais pour "colorer" les cellules, je dois double cliquer sur chacune ou alors m'y placer faire F2 puis entré...

Cliquez pour agrandir...

😕

Avec les codes suggérés supra, nul besoin de clic double. La coloration intervient dès changement d'une valeur en colonne a.

merguez59 à dit:

... Comment "appliquer l'action" sur toute la plage? je n'ai pas trouvé l'info sur ton lien DoubleZero...

Cliquez pour agrandir...

Les liens mentionnés en #8 sont uniquement destinés à savoir où et comment loger un code.

A bientôt 🙂

 

Vote positif 0 Vote négatif

M

merguez59

Guest

• 16 Mai 2014

• #11

Re : Macro couleur cellules identiques

Bonjour,
à nouveau, merci pour ton aide. Néanmoins, effectivement, en cas d'ajout d'une donnée dans une nouvelle cellule de la colonne, A, il y a bien automatiquement une couleur qui s'affiche.
Mais je souhaite que l'action de colorer les cellules, se fasse également et automatiquement pour celle déjà écrites.

de plus, j'aimerais que les couleurs trop foncées soient évitées (ou au pire le noir): afin que les cellules restent visible.

Je remarque également que le blanc est une "couleur", mais j'aimerais que cette couleur soit réservée au cellules vides de la colonne A

Merci d'avance

 

Vote positif 0 Vote négatif

V

Vba72

Guest

• 16 Mai 2014

• #12

Re : Macro couleur cellules identiques

bonjour merguez59 ;

Je pense que la mise en forme conditionnelle pourra bien vous aidez.

 

Vote positif 0 Vote négatif

M

merguez59

Guest

• 16 Mai 2014

• #13

Re : Macro couleur cellules identiques

Je me rends également compte qu'en voulant simplier ma demande avec un exemple "trop simpliste", le code que tu m'as indiqué ne prends en compte que la 1ere lettre de la cellule pour attribuer la couleur de la cellule.

Si en A1 j'ai ABO, il me met une couleur
Si en A2, j'ai APO il me met la même couleur, mais je ne veux pas que ce soit la même couleur. Je veux que ce soit exactement le caractère inscrit dans la cellule qui détermine la couleur.

merci beaucoup!

 

Vote positif 0 Vote négatif

M

merguez59

Guest

• 16 Mai 2014

• #14

Re : Macro couleur cellules identiques

Bonjour VBA

Merci pour ton message, néanmoins, je n'ai pas l'impression qu'avec une Mise en forme conditionnelle, ce soit possible: en tout cas, je n'ai pas réussi à attribuer une couleur différente à chaque, paire, triplet, quadruplet, etc.. de "doublon"

J'essaie de me ré-expliqer:

a1 = merguez ==> cellule bleu
a2= olive ===> cellule verte
a3= pizza ===> cellule jaune
a4 = pomme ==> cellule rouge
a5= merguez ==> cellule bleu
a6 = merguez ===> cellule bleu
a7 = merguez ===> cellule bleu
a8= olive ===> cellule verte
a9 = pomme ==> cellule rouge


Sachant que dans cette ex, il n'y a que 4 article, et donc 4 couleur, mais qu'en vrai, il y a bien plus d'article et donc de couleur.

Et que dans l'idéal je souhaite que les couleurs soient définies automatiquement (peu importe le choix de la couleur attribuée à l'article). En évitant les couleurs trop sombre (ou au moins le noir)

Merci d'avance!

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 16 Mai 2014

• #15

Re : Macro couleur cellules identiques

Bonjour à toutes et à tous,

Fichier retiré (cf. #16)

A bientôt 🙂

 

Dernière édition: 16 Mai 2014

Vote positif 0 Vote négatif