[XL-2007] Transcrire un petit code vers Userform [Résolu]

[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 :

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 :

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.

[eliot.raymond]

RE zebreLoup

bon j'ai essayer je dois mal faire j'obtiens rien

je ne sais pas du tout programmer les userforms

il faudrait que je progresse avec des exemples comme tu

as fait ce matin, comme ça je comprends mieux au fur et a

mesure, mais bon peut être tu n'a pas le temps

merci pour l'info bonne après midi

Raymond

[ZebreLoup]

Voici un petit fichier exemple. Moins complet que ce que tu veux faire, mais avec ça et un bon tuto, tu devrais t'en sortir.

[eliot.raymond]

Re merci de ton aide je cherche un tuto sur quel thème svp parce que je suis capable d'avoir tous les tutos sauf celui que j'ai besoin avant que je trouve un bon, on sera pas loin de noël 2012

je regarde ton code

A plus tard

[ZebreLoup]

Celui-là et celui-là sont très bien. Pour info, j'ai juste cliqué sur "Tutoriels Excel" en bas de cette page, puis "Userforms et controles" pour les avoir.

[eliot.raymond]

Re ZebreLoup,

Merci pour ton aide et ta patience, j'ai mis les liens de coté, je vais lire ça avant de continuer.

je te souhaite une bonne fin d'après midi

Encore merci

Cordialement Raymond