Comment colorier des labels ajoutés dynamiquement dans une frame

[dindin]

Bonjour le forum

j'aurais besoin d'aide SVP.
j'ai récuperé un fichier sur le forum que j'ai adapter à mes besoins . et il fonctionne parfaitement.
il me reste jsuste à modifier la couleur de qqes labels et text box.
je m'explique
dans une frame , se trouve 26 labels et 26 textbox ajoutés dynamiquement .
Est il possible de changer la couleur des labels et textbox N° 13/17/21/25 du bleu au rouge.

Merci de votre aide .

 

[jp14]

Re : Comment colorier des labels ajoutés dynamiquement dans une frame

Bonjour

Ci dessous le code à écrire pour cette modification

Sub INITIALISATION_USF_1()
...............................................
For i = 1 To ActiveSheet.UsedRange.Columns.Count


    With LABELS_USF_1
      .Left = 2
      .Width = 100
      .Height = 16
      .Top = TOP_CONTROLES
      Select Case i
        Case 13, 17, 21, 25
        .BackColor = &HFFFFFF ' couleur à modifier
        .ForeColor = &HFF&
        Case Else
        .BackColor = &HFFFFFF
        .ForeColor = &H800000
        End Select
 .............................

    With TEXTBOXES_USF_1
..................................
      .Top = TOP_CONTROLES
      Select Case i
        Case 13, 17, 21, 25
        .BackColor = &HFFFFFF
        .ForeColor = &HFF&
        Case Else
        .BackColor = &HFFFFFF
        .ForeColor = &H800000
        End Select
      .WordWrap = False
 ..................................
End Sub

A tester

JP

 

[dindin]

Re : Comment colorier des labels ajoutés dynamiquement dans une frame

Rebonjour
JP, un trés grand merci à toi , t'as bien assuré. ton code fonctionne avec merveille. . Rien à dire.
encore mille merci.

 

[dindin]

Re : Comment colorier des labels ajoutés dynamiquement dans une frame

bonjour
Encore une petite question si c'est possible . Peut t'on couper la frame 1 en 2 partie
une affichera les 9 premières colonne et la 2 ème affichera le reste .
Merci d'avance

 

[jp14]

Re : Comment colorier des labels ajoutés dynamiquement dans une frame

Bonjour (Re)

Ci joint le code.

TOP_CONTROLES = 0

For i = 1 To ActiveSheet.UsedRange.Columns.Count

If i = 10 Then TOP_CONTROLES = 0
If i > 9 Then
Set LABELS_USF_1 = .Frame5.Controls.Add("Forms.Label.1", , True) ' CREATION DES LABELS
Set TEXTBOXES_USF_1 = .Frame5.Controls.Add("Forms.TextBox.1", , True) ' CREATION DES TEXTBOXES
Else
Set LABELS_USF_1 = .Frame1.Controls.Add("Forms.Label.1", , True) ' CREATION DES LABELS
Set TEXTBOXES_USF_1 = .Frame1.Controls.Add("Forms.TextBox.1", , True) ' CREATION DES TEXTBOXES
End If

    With LABELS_USF_1

Il faut modifier le "Frame1" Height = 160
Ensuite créer le "Frame5"

JP

 

[dindin]

Re : Comment colorier des labels ajoutés dynamiquement dans une frame

encore un grand merci
le code fonctionne parfaitement.
Bonne soirée