Conserver la couleur d'un userform à la fermeture

Salut Laurent,

Qu'est-ce qui ne fonctionne pas ? Y'a t-il une erreur ?

As-tu bien collé les lignes dans le code de la UserForm ?
La feuille params est-elle protégée ?


A+
--
Nicolas B.

Bonjour, j'ai testé cela (pris sur le forum)de Pascal
Engelmayer et cela ne fonctionne pas.
Sans doute, j'ai loupé qq chose ?
Merci

par exemple une feuille masquée nommée "params"
mémorisation en A1

Private Sub UserForm_Initialize()
Me.BackColor = Sheets("params").Range("A1")
End Sub

Private Sub UserForm_Terminate()
Sheets("params").Range("A1") = Me.BackColor
End Sub

Bonjour
en fait avec ce test, le userform au lancement est noir,
quelque soit la couleur que je mets.
La feuille params, n'est pas protégée.
Merci pour votre réponse.

-----Message d'origine-----
Salut Laurent,

Qu'est-ce qui ne fonctionne pas ? Y'a t-il une erreur ?

As-tu bien collé les lignes dans le code de la UserForm ?
La feuille params est-elle protégée ?


A+
--
Nicolas B.

Bonjour, j'ai testé cela (pris sur le forum)de Pascal
Engelmayer et cela ne fonctionne pas.
Sans doute, j'ai loupé qq chose ?
Merci

par exemple une feuille masquée nommée "params"
mémorisation en A1

Private Sub UserForm_Initialize()
Me.BackColor = Sheets("params").Range("A1")
End Sub

Private Sub UserForm_Terminate()
Sheets("params").Range("A1") = Me.BackColor
End Sub

.

Je vois pas vraiment où peut être l'erreur...

J'ai mis un exemple ici qui pourra t'aider :
http://perso.wanadoo.fr/nbr/46/couleuruf.xls


A+
--
Nicolas B.

Bonjour
en fait avec ce test, le userform au lancement est noir,
quelque soit la couleur que je mets.
La feuille params, n'est pas protégée.
Merci pour votre réponse.

-----Message d'origine-----
Salut Laurent,

Qu'est-ce qui ne fonctionne pas ? Y'a t-il une erreur ?

As-tu bien collé les lignes dans le code de la UserForm ?
La feuille params est-elle protégée ?


A+
--
Nicolas B.

Bonjour, j'ai testé cela (pris sur le forum)de Pascal
Engelmayer et cela ne fonctionne pas.
Sans doute, j'ai loupé qq chose ?
Merci

par exemple une feuille masquée nommée "params"
mémorisation en A1

Private Sub UserForm_Initialize()
Me.BackColor = Sheets("params").Range("A1")
End Sub

Private Sub UserForm_Terminate()
Sheets("params").Range("A1") = Me.BackColor
End Sub

.

Merci beaucoup, je ne peux le faire maintenant, je le
ferias ultérieurement.
Cordialement
Laurent Gouvier

-----Message d'origine-----
Je vois pas vraiment où peut être l'erreur...

J'ai mis un exemple ici qui pourra t'aider :
http://perso.wanadoo.fr/nbr/46/couleuruf.xls


A+
--
Nicolas B.

Bonjour
en fait avec ce test, le userform au lancement est noir,
quelque soit la couleur que je mets.
La feuille params, n'est pas protégée.
Merci pour votre réponse.

-----Message d'origine-----
Salut Laurent,

Qu'est-ce qui ne fonctionne pas ? Y'a t-il une erreur ?

As-tu bien collé les lignes dans le code de la
UserForm ?

La feuille params est-elle protégée ?


A+
--
Nicolas B.

Bonjour, j'ai testé cela (pris sur le forum)de Pascal
Engelmayer et cela ne fonctionne pas.
Sans doute, j'ai loupé qq chose ?
Merci

par exemple une feuille masquée nommée "params"
mémorisation en A1

Private Sub UserForm_Initialize()
Me.BackColor = Sheets("params").Range("A1")
End Sub

Private Sub UserForm_Terminate()
Sheets("params").Range("A1") = Me.BackColor
End Sub

.

.

Bonsour(®)
Peut-etre que simplement :
Sheets("params").Range("A1") n'est pas initialisé ou
vide ????

donc 0 par défaut et dans ce cas 0, c'est noir !
essuie d'écrire 255 en A1
cela devrait avoir comme résultat la couleur Rouge !!!

attention en A1 il ne faut pas écrire le ColorIndex
mais bien le me.BackColor

mais re-attention cette valeur comprise entre 0 et 64
millions~~
ne trouve correspondance que parmi 56 couleurs possibles
de la palette EXCEL

@+
voir à ce sujet gd-colors.zip sur http://excelabo.net
;-)))

-----Message d'origine-----
Bonjour, j'ai testé cela (pris sur le forum)de Pascal
Engelmayer et cela ne fonctionne pas.
Sans doute, j'ai loupé qq chose ?
Merci

par exemple une feuille masquée nommée "params"
mémorisation en A1

Private Sub UserForm_Initialize()
Me.BackColor = Sheets("params").Range("A1")
End Sub

Private Sub UserForm_Terminate()
Sheets("params").Range("A1") = Me.BackColor
End Sub
.

Merci beaucoup Modeste, c'est plus clair maintenant

-----Message d'origine-----
Bonsour(®)
Peut-etre que simplement :
Sheets("params").Range("A1") n'est pas initialisé ou
vide ????

donc 0 par défaut et dans ce cas 0, c'est noir !
essuie d'écrire 255 en A1
cela devrait avoir comme résultat la couleur Rouge !!!

attention en A1 il ne faut pas écrire le ColorIndex
mais bien le me.BackColor

mais re-attention cette valeur comprise entre 0 et 64
millions~~
ne trouve correspondance que parmi 56 couleurs possibles
de la palette EXCEL

@+
voir à ce sujet gd-colors.zip sur http://excelabo.net
;-)))

-----Message d'origine-----
Bonjour, j'ai testé cela (pris sur le forum)de Pascal
Engelmayer et cela ne fonctionne pas.
Sans doute, j'ai loupé qq chose ?
Merci

par exemple une feuille masquée nommée "params"
mémorisation en A1

Private Sub UserForm_Initialize()
Me.BackColor = Sheets("params").Range("A1")
End Sub

Private Sub UserForm_Terminate()
Sheets("params").Range("A1") = Me.BackColor
End Sub
.

.