Discussion :

[shaku]

Bonsoir , je dois écrire une fonction qui étant donnée une plage de cellules sélectionnée et coloriée , renvoie en dessous de cette plage une chaine de caractère qui correspond aux codes ( RGB ) des couleurs de chaque cellule .

Mon algo est celui ci :

On colorie la plage sélectionnée
On parcourt la plage et à chaque passage sur une cellule on envoie le code numérique de la couleur dans la seconde plage .

Voici mon code qui ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function code(plage As Range) As String
Dim i As Integer, j As Integer, nbLig As Integer, nbCol As Integer, plage1 As Range
nbLig = plage.Rows.Count
nbCol = plage.Columns.Count
Set plage1 = Range(Cells(10, 13), Cells(10, 75))
    coloriage plage
    For i = 1 To nbLig
        For j = 1 To nbCol
        Ici je vois pas le code à écrire pour mettre le code des couleurs dans une autre plage
        Next j
    Next i
End Function

La fonction doit renvoyer une chaine de caractères .

Est ce que quelqu'un aurait des indices pour m'aider svp ?
merci bien .

PS : pas de code tout fait je ne lirai pas le message si on me donne la réponse toute faite .

[Invité]

Bonjour

Si tu veux des indices, as-tu lu cet article : Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB/

Philippe

[shaku]

salut philippe , ton article bien qu'intéressant je ne peux pas l'utiliser , seuls sont autorisées les propriétés et méthodes des objets range et cells .

Donc on a une cellule coloriée , mettons cells(2,8) , que doit on écrire pour avoir le code numérique de sa couleur ?

J'ai essayé cells(2,8).value= ça ne marche pas...

[fred65200]

bonjour,

Je pense que tu peux adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Couleur_RGB()
Dim CoulRVB As Long
Dim Bleu As Integer
Dim Vert As Integer
Dim Rouge As Integer
 
    CoulRVB = ActiveCell.Interior.Color
 
    Rouge = Int(CoulRVB Mod 256)
    Vert = Int((CoulRVB Mod 65536) / 256)
    Bleu = Int(CoulRVB / 65536)
 
MsgBox (Rouge & ", " & Vert & ", " & Bleu)
End Sub

Je te laisse adapter à ta boucle.
Cordialement

[shaku]

salut fred , euh non je ne peux pas adapter , je dois avoir en 1 ligne :

on lit la cellule active colorée , et on renvoie en chaine de caractère le code numérique de sa couleur .

Comment écrire ça en vba...

[fred65200]

je ne comprends pas bien ce que tu veux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
Selection = Couleur_RGB(Selection)
End Sub
Function Couleur_RGB(R As Range) As String
Dim CoulRVB As Long
Dim Bleu As Integer
Dim Vert As Integer
Dim Rouge As Integer
 
    CoulRVB = R.Interior.Color
 
    Rouge = Int(CoulRVB Mod 256)
    Vert = Int((CoulRVB Mod 65536) / 256)
    Bleu = Int(CoulRVB / 65536)
 
Couleur_RGB = "RGB(" & Rouge & ", " & Vert & ", " & Bleu & ")"
End Function

@+