Foncion RGB en VBA

Résolu
andre-anne Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
 Sam -
Bonjour,
je dois faire un programme en VBA qui permet de melanger 3 couleurs avec 3 Scrollbars différent dans un UserForm, chacun controllant une couleur (Rouge, Vert et Bleu). A date, je peux melanger 2 couleurs et aussitot que je joue avec la troisième, la couleur résultante est blanche. Aussi, quand je joue avec les differents niveaux dans le scrollbar, je n'obtient pas des nuances de la couleur... Peut être c'Est parce que je n'ai pas compris comment la fonction RGB marche. J'apprécierais que quelqu'un m'aide.
Merci,
André-Anne

8 réponses

Réponse 1 / 8
andre-anne Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonsoir,
Voici ce que j'ai. Je crois que mon erreur est dans la maniere que je controlle mes Scrollbar. C'est un nouveau concept pour moi et je ne suis pas sur de bien comprendre/maitriser.

Private Sub Bleu_Change()
lblCouleur.BackColor = RGB(Rouge, Vert, Bleu)
End Sub

Est-ce qu'il me manque quelque chose?
1
Réponse 2 / 8
le père
 
Bonjour

à mettre dans to form_load : 
Randomize
Rouge=int(256*rnd())
Vert=int(256*rnd())
Bleu=int(256*rnd())

je crois que ça suffit, le fait d'affecter une valeur suffit à provoqier l'appel à Rouge_change, etc
1
Réponse 3 / 8
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonsoir,

Sans doute une erreur dans ton code mais pas forcément dans RGB() parce que tu en as vite fait le tour de cette fonction. Peut-être dans la gestion de tes scrollbars ou une variable réutilisée à tort...
Execute le en pas à pas et contrôle les valeurs que prennent R, G et B. Tu peux utiliser la fenetre espion et poser des points d'arret.
eric
0
Réponse 4 / 8
le père
 
Bonsoir

Les propriétés min et max des 3 scrollbars sont elles bien 0 et 255 ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
andre-anne Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonsoir,
oui j'ai par la suite mit le min et max des 3 scrollsbars a 0 et 255 respectivement mais la les 3 me donnent des nuances de rouge...
0
Réponse 6 / 8
andre-anne Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   1
 
ok, la ca marche mon affaire!! Me reste seulement a trouver comment mettre un Random la dedans pour mettre des valeurs aleatoires aux valeurs des 3 scrollsbars quand on lance l'application. Des idées?
0
Réponse 7 / 8
andre-anne Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   1
 
Bon je comprends ton code mais je n'ai pa de form_load dans mon code. Ou-est ce que je doi le mettre?
0
Réponse 8 / 8
Sam
 
Dis moi, André-Anne, ça serait tu pour le cours d'Informatique pour Actuaires ton truc? :P
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Ventilateurs ne s'allume pas en rgb
Matis -
T3chN0g3n -

1 réponse
probleme de chauffe cpu
sylvain_1216 -
rabi -

14 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses