Modifier un code pour UserForm

[eliot raymond]

Bonsoir a toutes et tous, forum

Je souhaiterai svp afficher uniquement les couleurs du tableau dans l'userform

mais après maintes essais je n'arrive pas a modifier le code, si quelqu'un veut m'aider svp

Voir svp fichier plus infos ci-joint

Merci a vous et de votre temps

Cordialement

 

[laetitia90]

Re : Modifier un code pour UserForm

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!!!

 

[eliot raymond]

Re : Modifier un code pour UserForm

Bien le bonsoir Laetitia90

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 ????

il ni a pas un autre moyen svp.

Merci a plus tard

Raymond

 

[laetitia90]

Re : Modifier un code pour UserForm

re, c'est jamais que 220 boucles pas de souci a ce niveau

 

[eliot raymond]

Re : Modifier un code pour UserForm

Re laetitia90

merci pour la réponse et pour l'info

je ne vois pas comment faire autrement, je vais tout faire un par un, si pas autre solution

Première fois que je vois un fichier avec tout les noms de la couleur affichée merci

Raymond

 

[Philippe68]

Re : Modifier un code pour UserForm

Bonsoir à tous

Comme Raymond est à fond dans les couleurs en ce moment, voilà un autre échantillon

 

[eliot raymond]

Re : Modifier un code pour UserForm

Bonjour a toutes et tous, forum

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

Merci a vous et bonne semaine

Raymond

 

[laetitia90]

Re : Modifier un code pour UserForm

re,
as tu essaye de faire l'impasse sur celui la???

 

[eliot raymond]

Re : Modifier un code pour UserForm

Salut laetitia

oui j'ai fait des essais mais dès que j'entre le &H00 erreur

sinon chiffres ou lettres ça marche

A+

 

[laetitia90]

Re : Modifier un code pour UserForm

re,
essai avec on erreur

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

 

[eliot raymond]

Re : Modifier un code pour UserForm

Re laetitia,

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

Merci a toi

A+

 

[laetitia90]

Re : Modifier un code pour UserForm

re, il faut faire des retours de ligne
exemple

For Each s In Array(&H317FE8, &H1E438A, &HFAFA7B, &H2667A7 _
, &H3B2890, &HF3AAF, &HA74D88, &HC4F1)

ect

question tu veus faire quoi avec ca apres???

 

[eliot raymond]

Re : Modifier un code pour UserForm

Re laetitia

Merci pour ton aide c'est sympa je vais pouvoir avancer

Donc un programme "Assistant couleur" dans un UserForm, regarde svp sur le forum , j'ai poster sous le mème nom, ça te donnera une idée

j'ai déjà vu un programme du mème style, je t'en dit plus un peu plus tard si tu veux, mes essais ont étés concluant

avec l'aide des gens du forum, d'ailleurs salut a tous,

encore merci a dans 1 heure

Raymond

 

[eliot raymond]

Re : Modifier un code pour UserForm

Re Laetitia

Comment faire svp pour afficher dans les commandbuttons de l'UserForm le N° des couleurs par rapport a la liste du fichier que m'a envoyer hier soir

ça m'aiderai bien de 0 à 220

pour info départ en haut a gauche 0 >>> 22
23 >>> 44 etc etc
Merci beaucoup et si c'est possible bien sur

Raymond

 

[laetitia90]

Re : Modifier un code pour UserForm

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????