bonjour eliot raymond
peut être passer par un array un exemple vu que j'ai pas trop envie de "bosser"
a toi de tout rentrer attention 221 couleurs.... 220 commandbutton adapte!!!
Merci pour réponse et le petit code,
Question svp: je ne vais jamais pourvoir mettre 220 codes hexa dans le code array ???? j'ai peur que ça ralentisse excel ????
Merci Philippe pour ce magnifique fichier haut en couleurs.
Voila j'ai voulu commencer a entrer les données comme conseillé post #2 et ça me génère une erreur d'exécution 380 impossible de définir la propriété Backcolor valeur non valide dès qu'un (&H00) est entrer avant un chiffre 'pouf' erreur voir ci-dessous en gras dans le code
Du coup je suis bloqué, si une autre idée svp.
Private Sub UserForm_Initialize()
Dim s As Variant: Dim X As Long
X = 1
For Each s In Array(&H317FE8, &H1E438A, &HFAFA7B, &H2667A7, &H3B2890, &HC00C4F1, &HF3AAF)
Controls("CommandButton" & (X)).BackColor = s
X = X + 1
Next s
End Sub
Dim s As Variant
On Error Resume Next
x = 1
For Each s In Array(&H317FE8, &H1E438A, &HFAFA7B, &H2667A7, &H3B2890, &HF3AAF, &HA74D88, &HC4F1)
Controls("CommandButton" & (x)).BackColor = s
x = x + 1
Next s
Merci pour le dépannage, ça a l'air d'ètre bon, ça supprime les zéros tout simplement
je vais rentrer tout tranquillement j'espère que ça n'affectera rien au bon fonctionnement du programme
Question: si tu veux bien svp, je peux mettre les 220 codes hexa bout a bout, ça faire une sacré ligne de code
re,
cela va être difficile de mettre dans commmandbutton trop petit???
un autre methode plus claire avec classe converti en hexa.. adapte
autremement mettre dans controlTipText des command... facile a coder.... comme cela des que moussemove sur command... affiche une petite fenetre avec indice...... a voir????