Discussion :

[eliot.raymond]

Bonjour a toutes et tous, forum

J'ai fait un petit code qui permet de changer les couleurs texte, fond de cellule et les styles de bordures

Voir svp pour une meilleure compréhension le fichier ci-joint et plus d'infos

je souhaiterai svp transcrire ce code vers un Userform

En espérant que cela soit possible, merci d'avance

je vous souhaite une bonne journée

Raymond

[ZebreLoup]

Tu veux qu'il fasses quoi le UserForm ?
Et poste ton code plutôt que le classeur.

[eliot.raymond]

Salut ZebreLoup,

je souhaiterai svp avec les petites flèches modifier les couleurs de fond de cellule, texte bordure

Afficher les numéros correspondant afin d'avoir un bel écran avec de belles couleurs bien associées

Merci a plus tard

Raymond

[ZebreLoup]

En fait il te suffit d'associer les codes aux boutons correspondant par exemple le code pour Avance PLUS intérior :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If Not Intersect(Target, [G13]) Is Nothing Then
T = T + 1
 
With [G2:K9]
.Interior.ColorIndex = T
[H13].Value = T
End With
End If

Tu le mets dans le code du UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UpDown1_Change()
    With Worksheets("Feuil1")
        .Range("H13").Value = .Range("H13").Value + 1
        .Range("G2:K9").Interior.ColorIndex = .Range("H13").Value
    End With
End Sub

[eliot.raymond]

Re zebreLoup

Merci pour ta réponse j'ai suivi ton conseil ça marche

en fait je souhaitai faire varier la couleur de fond frame1 et l'écriture de Userform ainsi que les bordures

si tu peux me montrer comment faire svp si possible bien sur

Merci bon app

Raymond

[ZebreLoup]

Le problème, c'est qu'il n'y a pas de notion de colorIndex dans les userForms. Tu pourrais faire varier les valeurs de Rouge, de Vert et de Bleu puis utiliser la fonction RVB pour définir la couleur. Le principe est le même que celui proposé mais en utilisant Frame1.BackColor.