label Résolu/Fermé

Question

Bonjour le Forum

Une question qui pour moi reste un mystère mais que pour Vous doit être une évidence.
J'ai un userform avec 3 colonnes de 40 Label, ma première fonctionne mais les 2 autres ne fonctionnent pas, il faut dire que j'ai fait un copier/coller de ma première colonne.
Voici le code qui fonctionne avec ma première colonne :

Dim Lbl(1 To 127) As New ClasseLabel

Private Sub UserForm_Activate()
 For i = 1 To 122
   Me("Label" & i).BackColor = Sheets("couleurs").Cells(i, 1).Interior.Color
   Me("Label" & i).ForeColor = Sheets("couleurs").Cells(i, 1).Font.Color
   Me("Label" & i).Caption = Sheets("couleurs").Cells(i, 1)
   Me("Label" & i).ControlTipText = Sheets("couleurs").Cells(i, 2)
      Set Lbl(i).GrLabel = Me("Label" & i)
Next i
With UserForm1 'Enlever 2 si userform 1
.Left = 800 'modifie les chiffre pour faire déplacer la userform
.Top = 100
End With
End Sub

Si vous pouvez m'orienter, je vous en serai très reconnaissant
Cordialement
eric2027



Configuration: Windows 7 / Firefox 45.0

michel_m · Answer

Bonjour
Dim Lbl(1 To 127) As New ClasseLabel 


montre nous le module classe

eric2027 · Answer

Voilà le lien
 http://www.cjoint.com/c/FDDkZ0nU60K
Merci

eric2027 · Answer

Bonjour,

Le problème vient de cette ligne de code
Me("Label" & i).Caption = Sheets("couleurs").Cells(i, 3)
si je change le 3 en 2, je n'ai que la 2 ème colonne or je veux les 3 colonnes, j'ai beau faire des tests, je tombe toujours sur le même problématique, je n'ai qu'une seule colonne

Maurice · Answer

bonjour
je pense a un truc comme ça

Private Sub UserForm_Activate()
L1 = 0
   With Feuil1
      For C = 1 To 3
         For L = 1 To 41
            Controls("Label" & L1 + L).Caption = .Cells(L, C)
         Next
       L1 = L1 + 41
      Next
   End With
End Sub


A+
Maurice

eric2027 · Answer

Bonjour Maurice,
j'ai bien les 3 colonnes, mais cela ne fonctionne pas, quand je click sur une cellule, le texte ne s'incorpore pas

eric2027 · Answer

J'ai beau chercher mais mes label ne sont pas actif

eric2027 · Answer

ça correspond à quoi les lettres que vous avez mis (L, C)

eric2027 · Answer

Bonjour,
Apparemment, il n'y a pas de solutions à mon problème, snif

eric2027 · Answer

Ok je te renvois le fichier avec des explications, ce fichier était un fichier qui correspondait à un autre travail, j'ai voulu le retravailler parce que ma direction m'a donné ce dossier et c'est pas cool, aussi j'enlève le module de classe qui pour ce tableau ne sert à rien, 
pourquoi 122 labels sur 3 colonnes, parce j'ai un tableau excel sur 3 colonnes qui correspond à 3 critère (A, B, C), l'avantage avec ce code ou il n'y a que des labels qui ne sont pas différencier c'est quand tu cliques sur un cellule du fichier excel et qui va chercher n'importe que élément sur la palette, le nom se met sur la cellule active
mot de passe pour la feuille excel b304
http://www.cjoint.com/c/FEco3NXIuHK

Merci merci

eric2027 · Answer

Le classeur correspond à un premier travail et je avais complètement oublié de le nettoyer mais ce n'est est pas un classeur bidon, au départ cela me permettais de mettre différente couleurs pour mieux gérer les congés maladie etc

Les colonnes correspondent ; 
1 colonne : nom
2 colonnes : à des heures
3 : colonne ; aux lieux

Bon ce n'est pas grave 
Excuse moi ainsi que le forum pour le dérangement

Maurice · Answer

Bonjour
voila avec de la couleur
http://www.cjoint.com/c/FEcqr4Yh0aE
A+
Maurice

eric2027 · Answer

Bonjour Maurice,

C'est tout à fait ça, mais quand je clique en A10 onglet SAGA, et quand je reclique dans la palette, rien ne se passe.

L'onglet couleur est une base de donnée, ou les éléments  iront dans l'onglet SAGA quand on fait apparaître la palette.
Quand on active la cellule A10 ou n'importe quelle cellule de SAGA, on clique sur la palette et les éléments se mettent dans la cellule active, mais les cellules ne sont pas actives

Maurice · Answer

Bonjour
je ne comprend plus rien je laisse tomber
A+
Maurice

eric2027 · Answer

Bonjour @ tous,

Je vous remercie, depuis dès années que je suis sur ce forum, vous avez tous fait en sorte que je sorte de mes galères que mes supérieur me demandaient de réaliser, je ne suis qu'un morpion qui abuse de vos connaissance, mais je vous remercie tous, de m'avoir dans les moments qui pour moi était difficile pour retrouver un job de m'avoir aidé, grâce à ce forum, à 56 ans, je suis encore en Vie.
Cordialement et que vive ce Forum jusqu'à l'éternité
Je mets en résolu
eric2027

eric2027 · Answer

J'ai trouvé la solution

Label

15 réponses

Discussions similaires