Stockage de variable à partir d'un formulaire

Bonjour,

J'ai un petit problème concernant l'utilisation de variables définies à partir d'un formulaire.

Je m'explique. J'ai créé un formulaire qui contient un certain nombre de boutons proposant chacun une couleur différente. Lorsqu'on clique dessus j'enregistre les référence de la couleur choisie pour pouvoir l'utiliser par la suite. Voici le code simplifié du formulaire avec deux couleurs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim Couleur_RGB As String Dim R_Interior, G_Interior, B_Interior As Integer   Private Sub Orange1_Click() Couleur_RGB = "R207 G077 B018" Call Charte End Sub   Private Sub Violet1_Click() Couleur_RGB = "R106 G029 B088" Call Charte End Sub   Sub Charte()   ' Décode des valeurs RGB R_Interior = Mid(Couleur_RGB, 2, 3) G_Interior = Mid(Couleur_RGB, 7, 3) B_Interior = Mid(Couleur_RGB, 12, 3)   End Sub

---

N'étant pas du tout familier de l'utilisation des formulaires ou des "private sub" je ne sais pas comment sont gérées les variables enregistrées... (je mets toujours toutes les macros dans un seul module).

Le but est d'utiliser ces variables pour mettre le fond de nombreux en-tête avec la couleur définie initialement par l'utilisateur quand il a cliqué sur le formulaire. En l'occurrence je fais un appel du formulaire dans le module contenant toutes mes macros :

Code:

---

1 2 3 4 5 6

Sub Charte_Open()   Charte_Graphique_Formulaire.Show Range("B2").Interior.Color = RGB(R_Interior, G_Interior, B_Interior)   End Sub

---

Mais mes variables définies en dehors de ma macro dans le code du formulaire ne sont apparemment pas enregistrées. J'ai tenté de mettre le "Dim... As" au niveau du module mais ce n'est manifestement pas le problème.

Ma macro générale est assez longue et va chercher plusieurs fichiers .csv pour les enregistrer en tant qu'onglet etc. tout le traitement (en tout cas la mise en forme de ces onglets) doit utiliser la couleur déterminée initialement.

Je suppose que la réponse doit être très simple... :oops:

Citation:

---

Envoyé par Areis

---

Bonjour,

Vous pourriez enregistrer vos valeurs dans des cellules d'un onglet de paramètres par exemple.

Ah oui c'est une idée effectivement... Si je ne m'en sors pas je ferai certainement comme ça mais je préférerais les stocker :P.

Salut

Une piste.

Pour ce qui est de la couleur, tu n'es pas obligé de stocker les valeur RVB, la couleur est aussi défini par une valeur numérique de type Long. La fonction RVB renvoie cette valeur, il est alors plus simple de stocker cette valeur numérique plutôt qu'une chaine de caractère contenant les valeurs RVB.

Si tu tiens vraiment à stocker ça sous forme de texte ( mais je n'y vois aucun intérêt), tu peux aussi les stocker sous cette forme ("rrr,vvv,bbb") et ensuite utiliser la fonction split pour découper cette chaine en utilisant "," comme séparateur.
Tu te retrouve alors avec un tableau contenant en 0 la valeur "rrr", en 1 "vvv" et en 2 "bbb"

++
Qwaz

Bonjour,

pour que ta variable soit visible de tous les modules il faut la déclarer (toujours dans un module Standard) avec Public et non Dim.
Stocke plutôt en Long .Color comme déjà dit.
eric

re
si l'utilisation de cette variable est utiliser ailleurs que dans le userform tu doit la mettre en public dans un module standard
mais / OU !!!
si cette variable est utilisé ailleurs PENDANT !! que le userform est affiché tu peux la mettre en public DANS !! le userform

et l'utiliser
par
exemple si l'userform s'appelle "UserForm1"

Code:

---

msgbox UserForm1.couleur_rgb

---

ET ENTRE parenthèse
quand dans ton userform tu fais couleur_RGB=rgb(255,145,168) par exemple
ta variable est un numerique car vba traduit immediatement en Long couleur
alors attention si tu a besoins des 3 valeurs séparément il te faudra alors une variable de type bit pour jouer avec R OU G OU B

Merci pour ces infos sur la déclaration des variables en "public" (je ne connaissais pas du tout ça...) :oops: ça règle tous mes problèmes.