Recherche code couleurs exacts

[patsyl60]

Bonjour à tous,

J'ai besoin de faire une macro pour compter le nombre de couleur d'un tableau existant ( 7 couleurs différentes) . Comment puis je récupérer les codes exacts des couleurs de ce tableau ?

Merci de votre aide.

Patsyl60 😕

 

[cibleo]

Re : Recherche code couleurs exacts

Bonjour le forum,
Bonjour patsyl60,

Pas sûr d'avoir compris, mais vois le lien ci-dessous.
https://www.excel-downloads.com/threads/compter-dans-tableau-nbr-de-couleurs-par-colonnes.70758/

Amicalement Cibleo

 

[job75]

Re : Recherche code couleurs exacts

Bonjour à tous,

Voici une macro qui compte le nombre de couleurs de fond différentes utilisées dans le tableau nommé Tab.

Elle crée une collection des couleurs du tableau.

Sub CompteCouleur()
Dim Cel As Range, c As New Collection
On Error Resume Next
For Each Cel In Range("Tab")
If Cel.Interior.ColorIndex > 0 Then c.Add Cel.Interior.ColorIndex, CStr(Cel.Interior.ColorIndex)
Next
On Error GoTo 0
MsgBox c.Count
End Sub

A+

 

[13GIBE59]

Re : Recherche code couleurs exacts

Bonjour, Patsyl60


Si tu veux, essaye cette macro :

Sub liste_couleurs()
Dim i As Long
For i = 2 To 57
Cells(i, 1).Interior.ColorIndex = i - 1
Cells(i, 2) = i - 1
Next Range("A1") = "Couleurs"
Range("B1") = "N° d'index"
End Sub

Tu auras tout ! 😉

JB

 

[job75]

Re : Recherche code couleurs exacts

Re,

Pour connaître les codes couleurs du tableau Tab, utiliser le code suivant :

Sub CompteCouleur()
Dim Cel As Range, c As New Collection, i As Byte
On Error Resume Next
For Each Cel In ActiveSheet.Range("Tab")
If Cel.Interior.ColorIndex > 0 Then c.Add Cel.Interior.ColorIndex, CStr(Cel.Interior.ColorIndex)
Next
On Error GoTo 0
For i = 1 To c.Count
MsgBox c(i)
Next
End Sub

A+

 

[patsyl60]

Re : Recherche code couleurs exacts

Merci à tous pour votre aide . J'ai opté pour la macro de job75 qui correspond exactement à ma recherche. Encore merci à tous.

Patsyl60 😉