Déclaration de Constante

Version imprimable

25/11/2020, 12h52
jpma75

Déclaration de Constante
Bonjour,

Un contributeur m'avait fait remarquer au détour d'un fil de discussion, qu'il était préférable de déclarer ma "couleur" comme constante plutôt que comme variable.

J'ai donc remplacé ceci :
Code:

1 2 Dim bleu_clair As String bleu_clair = RGB(177, 246, 253)
par cela :

Code:

Const bleu_clair As String = RGB(177, 246, 253) 'erreur

... mais ça génère une erreur ! (j'ai essayé Variant à la place de String, au cas où mais en vain)

Besoin de vos lumières, si vous voulez bien,
Cordialement,
jp
25/11/2020, 13h03
Thumb down

bonjour,
normal, déjà il ne s'agit pas d'un string mais d'un long, de plus RGB est une fonction et ne peut en aucun cas renseigner une constante!

Code:

Const bleu_clair As Long = 16643761 'RGB(177, 246, 253)
25/11/2020, 13h10
jpma75

Bonjour et merci !

Citation:

il ne s'agit pas d'un string mais d'un long

Ce qu'un Variant aurait pu "résoudre" (provisoirement, tout au moins, le temps du test) ?

Y a-t-il un moyen "simple" de convertir RGB(177, 246, 253) en 16643761 ? J'imagine que ce dernier format est incontournable ?!
25/11/2020, 13h36
jurassic pork

1 pièce(s) jointe(s)

hello,
dans la fenêtre d'exécution de vba editor tape :

Code:

?int(RGB(177,246,253))

Résultat :
Pièce jointe 584982

Ami calmant, J.P
25/11/2020, 13h39
jpma75

Bonjour Ami Calmant :D

Great !! Merci beaucoup !

jp
25/11/2020, 14h01
Philippe Tulliez
Bonjour,
En général et étant donné que les goûts des couleurs ne sont pas toujours les mêmes entre le développeur et les utilisateurs, j'ai pour habitude de placer cela dans une feuille paramètre et alors il suffit de lire les propriétés de la cellule "paramètre" et les placer directement dans la plage de travail ainsi c'est totalement transparent. Pour la maintenance, c'est simple car il suffit de remplacer la couleur sans se tracasser du code RGB
Exemple pour une cellule paramètre nommé pColorAlert
Code:

1 2 3 With ThisWorkbook.Worksheets("Rapport") .Range("A4:J4").Interior.Color = Range("pColorAlert").Interior.Color End With
Cela peut bien entendu être étendu aux couleurs de police et tous les attributs, Gras, Italique, etc.
25/11/2020, 14h25
jpma75

Bonjour et merci pour ce qui ressemble à un "bon tuyau" mais j'avoue que je n'ai pas compris. Désolé.
25/11/2020, 14h51
Philippe Tulliez

Bonjour,
Si vous avez besoin d'un code RGB, c'est dans le but de l'appliquer à la propriété d'un objet quelconque ?
Donc le "tuyau" ou l'"astuce" consiste a placer la couleur de la cellule et/ou de la police dans une cellule dite "paramètre" pour l'appliquer à l'objet en question.
Comme a l'ouverture de cette discussion, vous évoquez une autre discussion dont vous ne donnez pas le lien, je ne peux savoir ce que vous voulez faire avec ce code RGB sinon, j'aurais été plus explicite.

Désolé pour mon manque de précision(s),

Au début, je rappelle qu'un contributeur m'avait fait remarquer judicieusement (même si ce n'était pas l'objet de la question) qu'il ne fallait pas déclarer une "couleur" en variable. J'ai voulu mettre son conseil en oeuvre.
Tout ça pour mettre un peu de nuances dans "mes" tableaux.
Exemple (sans doute beaucoup trop détaillé) pour illustrer ma présente réponse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim zone_saisies As String
'Dim rose_pale As String
 
'   rose_pale = RGB(255, 220, 220)
    Const rose_pale As Long = 14474495   'pour convertir n° RGB > fenêtre exécution (Ctrl+G) > ?int(RGB(255, 220, 220))
 
    entete_lign = "c6:abl6"  
    entete_col = "a7:a18"
    zone_saisies = "c7:abl18" 
 
    If Target.Address = "$A$3:$A$4" Then  'Cells(3, 1) Then  'Export en pdf
        MenuPrint.Show
        [a6].Select
    End If
 
'    With ActiveSheet
        Range(entete_lign).Interior.ColorIndex = 2  'blanc
        Range(entete_col).Interior.ColorIndex = 2   'blanc
'    End With
 
    If Not Intersect(Range(zone_saisies), Target) Is Nothing And Target.Count = 1 Then
        Range("A" & ActiveCell.Row).Interior.Color = rose_pale             
        Cells([6], Target.Column).Resize(1, 1).Interior.Color = rose_pale  
    End If
End Sub

Bonjour,
Et bien pour illustrer l'astuce que j'ai proposée avec les lignes 22 à 25 du dernier code publié
Code:

1 2 3 4 If Not Intersect(Range(zone_saisies), Target) Is Nothing And Target.Count = 1 Then Range("A" & ActiveCell.Row).Interior.Color = rose_pale Cells([6], Target.Column).Resize(1, 1).Interior.Color = rose_pale End If
à la place de définir une constante nommée rose_pale, je prévois une cellule nommée (par exemple rose_pale) que je place dans une feuille où se trouve tous les paramètres et dans laquelle je vais mettre la couleur (rose pâle)
et la ligne de code sera alors
Code:

1 2 3 4 If Not Intersect(Range(zone_saisies), Target) Is Nothing And Target.Count = 1 Then Range("A" & ActiveCell.Row).Interior.Color = Range("rose_pale").Interior.Color Cells([6], Target.Column).Resize(1, 1).Interior.Color = Range("rose_pale").Interior.Color End If
Code non testé (modification faite de mémoire)

Il est évident que rose_pale n'est pas le nom idéal a utiliser pour cette cellule puisque comme je l'expliquais, nous pourrions placer du Bleu foncé ou du rouge pâle dans la cellule nommée se trouvant dans la feuille "paramètre"
L'usage de la constante est évidemment intéressant, ce que je propose est une solution parmi d'autres et dépend de contexte particulier où je choisis arbitrairement une couleur pour mettre en évidence certaines choses mais que l'utilisateur peux modifier cette couleur dans une feuille "Paramètre"

Ne pas oublier qu'il reste bien entendu la mise en forme conditionnelle qui dans 98% des cas est à privilégier.

25/11/2020, 16h03
jpma75

Merci pour toutes ces précisions ; c'est plus clair pour le néophyte que je suis.
Je fais un usage très ponctuel de ces "colorisations" de cellules.
A mon humble niveau, récupérer la code décimal (puisque je sais maintenant que c'est lui qu'il faut utiliser pour déclarer une constante de ce type) est vraiment très rapide avec la pipette de FatsStone Capture (par exemple) et cela répond pour l'instant à mes besoins. Je conserve néanmoins cette proposition "pro". Merci encore.

Cordialement,
jp