Foncion RGB en VBA

Résolu/Fermé

andre-anne Messages postés 5 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 27 novembre 2007 - 26 nov. 2007 à 21:28
Sam - 3 déc. 2007 à 22:08

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

A voir également:

Foncion RGB en VBA
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Sq-tower 06t rgb - noir - fenêtre en verre - Forum Processeur
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

8 réponses

Réponse 1 / 8

andre-anne Messages postés 5 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 27 novembre 2007 1
26 nov. 2007 à 23:35

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?

Réponse 2 / 8

le père
27 nov. 2007 à 07:49

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

Réponse 3 / 8

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 260
26 nov. 2007 à 23:20

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

Réponse 4 / 8

le père
26 nov. 2007 à 23:50

Bonsoir

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

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 lundi 26 novembre 2007 Statut Membre Dernière intervention 27 novembre 2007 1
27 nov. 2007 à 00:02

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

Réponse 6 / 8

andre-anne Messages postés 5 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 27 novembre 2007 1
27 nov. 2007 à 00:08

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?

Réponse 7 / 8

andre-anne Messages postés 5 Date d'inscription lundi 26 novembre 2007 Statut Membre Dernière intervention 27 novembre 2007 1
27 nov. 2007 à 16:46

Bon je comprends ton code mais je n'ai pa de form_load dans mon code. Ou-est ce que je doi le mettre?

Réponse 8 / 8

Sam
3 déc. 2007 à 22:08

Dis moi, André-Anne, ça serait tu pour le cours d'Informatique pour Actuaires ton truc? :P

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Ventilateurs ne s'allume pas en rgb

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA