couleur fond par Vbcolor

[herve62]

Bonsoir
Est-il possible de modifier le VbGreen dans cette expression :

Controls("CheckBox" & i).BackColor = IIf(Controls("CheckBox" & i), vbGreen, vbWhite)

mais AUTRE couleur que les 8 standard ? ( via RGB ou hexa ?)
ou alors autre instruction le permettant ; j'ai déjà essayé pas mal de chose , mais ça ne marche pas
ma couleur serait : #808000 ou [color 12] ou RGB (128 , 128,0) dans les 3 modes

 

[Dranreb]

Re : couleur fond par Vbcolor

bonsoir
soit RGB(r, v, b) soit &hxxxxxx& avec x: 6 chiffes hexa.

 

[herve62]

Re : couleur fond par Vbcolor

Bonsoir
Merci , ça marchait pas car le format est &Hxxxxxx et PAS de 2eme & ! sinon n'ayant pas les couleurs attendu en hexa , donc toujours pas sûr que l'instruction prenne l'hexa ? ,j'ai mis en RGB , mais pas fichu de retrouver dans mon "grenier" ce (vrai) fichier avec tous les 256 codes couleurs de base ( toute base confondue) ... sinon il y en a ???

Le RGB 128 128 0 = en hexa ? juste pour comparer avec ce que j'ai !

 

[Modeste geedee]

Re : couleur fond par Vbcolor

bonsour®

Le RGB 128 128 0 = en hexa ? juste pour comparer avec ce que j'ai !

RGB( Red(256), Green(256), Blue(256))

en Hexa
&H Bleuhexa Verthexa RougeHexa
ce qui donne :
&H008080

les poids faible(R) sont à droite
les poids lourds(B) sont à gauche

🙄

 

[Dranreb]

Re : couleur fond par Vbcolor

Il vaut mieux spécifier le & de fin, même s'il est enlevé quand la valeur ne peut s'exprimer qu'en Long, car &HFFFF pourrait être interprété comme -1 en Integer.

Sub test()
MsgBox "&HFFFF = " & &HFFFF & vbLf & "&HFFFF& = " & &HFFFF&
' ---------------------------------
Const R As Byte = 64, V As Byte = 128, B As Byte = 255
MsgBox "RGB(" & R & ", " & V & ", " & B & ") = &H" & Hex(RGB(R, V, B)) & "& = " & RGB(R, V, B)
End Sub

 

[Dranreb]

Re : couleur fond par Vbcolor

En attendant que je me réécrive un jour mon petit programme Couleurs.exe en Visual Basic 2010, voici au moins déjà un petit classeur qui permet les mêmes calculs.

 

[herve62]

Re : couleur fond par Vbcolor

Bonsoir
Bon en fait ce n'est plus qu'une question de correspondance de couleurs ( pas retrouvé ce fichier qui donnait en clair
tous les codes selon les modes .. il me semble qu'il venait d'ici mais il y a au moins 7 ,8 ans !)
dans mon code et l'instruction spécifique , cela à l'air Rigide ! en RGB aucun soucis mais en hexa !!! Ouf
DRAN : regarde le résultat suite à écris : "&h008080&" ,c'est VBA qui a mis en forme dans le code ? l'autre aussi et c'est pas la même forme ?? un en 4 bit l'autre en 6 ?
plusieurs autres essais avaient donné Erreur , j'ai pas pigé ?

Dim j&, k&
    On Error Resume Next
    If Flag Then Exit Sub
    With Feuil1
        k = Application.Match(choix_NP, .Columns(1), 0)
        On Error GoTo 0
        If k <> 0 Then
            l = choix_NP.ListIndex + 12
            For i = 1 To 26
                Controls("CheckBox" & i) = IIf(.Cells(l, i + 4) = "", 0, 1)
                Controls("CheckBox" & i).BackColor = IIf(Controls("CheckBox" & i), &H8080&, &H404080)
            Next
  
        End If
    End With

Sinon pour terminer le truc qui me gêne ... les codes Couleurs affichés dans les propriétés ne correspondent Aucunement aux codes hexa (#xxxx) que l'on trouve sur le net

 

[Dranreb]

Re : couleur fond par Vbcolor

Avec mon classeur Couleurs il n'y a plus de problème vous trouvez facilement toute les couleur dont vous pouvez avoir besoin en saisissant dans les colonnes approprié tout ce que vous désirez. Vous pouvez donc établir toutes les tables que vous voulez.
Si vous pensez qu'il manque des possibilités vous pouvez me le signaler.
À part ça, oui, c'est un peu gênant qu'il réagisse pour l'hexadécimal un peu comme pour le décimal, supprimant les 0 non significatifs devant et le caractère "&" derrière du type Long désiré quand la valeur est telle que ça ne peut pas être autre chose que Long.

 

[Modeste geedee]

Re : couleur fond par Vbcolor

Bonsour®

Sinon pour terminer le truc qui me gêne ... les codes Couleurs affichés dans les propriétés ne correspondent Aucunement aux codes hexa (#xxxx) que l'on trouve sur le net

😕

Heu...
https://www.excel-downloads.com/threads/couleur-fond-par-vbcolor.20002829/

voir aussi :
Color Palette and the 56 Excel ColorIndex Colors

 

[Dranreb]

Re : couleur fond par Vbcolor

Bonjour.

Ajouté la possibilité dans d'autre types de feuilles de définir plusieurs couleurs en une fois.

 

[CBernardT]

Re : couleur fond par Vbcolor

Bonjour à tous,

Un fichier de définition des couleurs.

Je ne sais si c'est celui évoqué par hervé82 ?

 

[CBernardT]

Re : couleur fond par Vbcolor

Ouppss !

Message à supprimer !

 

[Modeste geedee]

Re : couleur fond par Vbcolor

Bonsour®

Un fichier de définition des couleurs.

😱

bientôt 16 ans...
crée le : mardi 15 février 2000 17:56:51
🙄

 

[Dranreb]

Re : couleur fond par Vbcolor

Ces réalisations ne garantissent pas des luminosité apparentes identiques, ni donc des contrastes constants, quelles que soient les teintes en présence.

 

[Modeste geedee]

Re : couleur fond par Vbcolor

Bonsour® Dranreb

nonobstant 🙄 la pertinence et l'exactitude de tes propositions

Ces réalisations ne garantissent pas des luminosité apparentes identiques, ni donc des contrastes constants, quelles que soient les teintes en présence.

la question de hervé62 est relativement éloignée de ces considérations...
😎