changement de couleur à l'ouverture d'un userform

Version imprimable

05/05/2011, 15h58
eleanor62200

changement de couleur à l'ouverture d'un userform

Bonjour à toutes et à tous,

Mon idée est de créer un fichier excel avec des userforms.

Et j'ai une question très importante si quelqu'un pouvait m'aider.

J'aimerai utiliser un userform, remplir des informations dedans qui seront ensuite inscrites dans une feuille du classeur quand on clique sur un bouton "OK", jusque là tout va bien.
J'aimerai, lors de la fermeture et de la réouverture du fichier, rappeler les informations qui étaient inscrites dans l'userform, là aussi tout se passe bien.

Ma question est la suivante : Est-il possible de changer de couleur d'écriture à chaque fois que je ferme mon userform et que je le réouvre?

Par exemple, aujourd'hui j'écris dans mon userform
Bonjour tout le monde
et demain j'écrirai à la suite de ce qui a déjà été écrit
Bonjour bonjour

J'espère avoir été assez claire. Si vous avez des questions, ou des exemples si vous l'avez déjà fait n'hésitez pas.

Merci
05/05/2011, 20h32
Maxence HUBICHE

Première question : A chaque fois ou chaque jour ? Car les deux cas sont possibles, mais ne se gèreront pas de la même manière...
Autre question : as-tu un ordre pour l'apparition des couleurs, ou bien cela doit-il être aléatoire ?
Enfin : combien de couleur en tout souhaites-tu gérer ?

A toi !
06/05/2011, 08h25
eleanor62200

Bonjour Maxence HUBICHE,

J'aimerai que le changement de couleur se fasse à chaque ouverture de l'userform et non pas à chaque jour, car l'userform en question peut être ouvert plusieurs fois dans la même journée.

Pour l'ordre des couleurs, je n'ai pas vraiment de choix, j'aimerai bien des couleurs qui puissent se voir quand même, comme du noir, du bleu, du vert, du marron, du violet, du rouge et éviter des couleurs du style jaune, rose, blanc,...

J'aimerai bien que cela soit toujours dans le même ordre, mais bon si cela n'est pas possible, ce n'est pas extrêmement gênant.

Le nombre de couleur serait de 10 maximum.

Merci pour ton aide et pour ta réponse

Alors voilà UNE solution...

D'abord, te créer une fonction comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function GetColor()
    Const myAppName           As String = "MonAppli"
    Const mySection           As String = "Config"
    Const myKey               As String = "LastColor"
    Dim sValue                As String
    Dim iValue                As Integer
    Dim vColors               As Variant
    'Définition de la liste des couleurs
    vColors = Array(vbBlue, vbRed, vbYellow, &HFFFF00)
 
    'Récupération de la valeur précédente
    sValue = GetSetting(myAppName, mySection, myKey, UBound(vColors))
    'Contrôle des limites et renvoi de la valeur suivante
    Select Case Val(sValue)
        Case UBound(vColors)     'si on est au bout de la liste, on retourne au début
            iValue = LBound(vColors)
        Case Else               'sinon, on incrémente la position de 1
            iValue = Val(sValue) + 1
    End Select
    'sauvegarde de la valeur
    SaveSetting myAppName, mySection, myKey, CStr(iValue)
    'renvoyer la couleur
    GetColor = vColors(iValue)
End Function

Comme tu veux ton cycle, de manière arbitraire, j'ai choisi un stockage dans la base de registre de la derniere valeur utilisée (d'où les GetSetting et SaveSetting)
Tu peux également définir à volonté le nombre de couleurs que tu veux dans l'Array de vColors. Je t'y ai mis quelques exemples. A toi de jouer avec maintenant.

Pour son application maintenant, il va falloir que, lors de l'initialisation de ton formulaire, tu récupères, dans une variable, la couleur "nouvelle", puis que tu l'affectes à tes contrôles.

En voici un exemple :

Code:

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    Dim lColor As Long
    'récupération de la dernière couleur
    lColor = GetColor()
    'Affectation aux contrôles
    Me.Label1.ForeColor = lColor
End Sub

Voilà :)

09/05/2011, 10h25
eleanor62200

Merci merci pour ton aide, ça fonctionne

Encore merci :)