Label

Résolu/Fermé

eric2027 - 29 avril 2016 à 11:23
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 - 5 mai 2016 à 11:14

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

A voir également:

Label
Cd dvd label maker - Télécharger - Photo & Graphisme
Label printer logiciel - Télécharger - Outils professionnels
Cd label designer - Télécharger - Impression
Label editor - Télécharger - Photo & Graphisme
Acoustica cd label maker - Télécharger - Gravure

15 réponses

Réponse 1 / 15

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
29 avril 2016 à 11:59

Bonjour
Dim Lbl(1 To 127) As New ClasseLabel

montre nous le module classe

Réponse 2 / 15

eric2027
29 avril 2016 à 12:53

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

Réponse 3 / 15

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
Modifié par eric2027 le 30/04/2016 à 11:50

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

Réponse 4 / 15

Maurice
30 avril 2016 à 14:09

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 15

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
30 avril 2016 à 16:16

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

Réponse 6 / 15

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
30 avril 2016 à 18:53

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

Réponse 7 / 15

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
30 avril 2016 à 19:56

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

Réponse 8 / 15

eric2027
2 mai 2016 à 14:51

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 2/05/2016 à 16:41

bonjopur

si, mais c'est très mal expliqué
...
pourquoi 122 labels sur 3 colonnes? : 122/3= 40?66 par colonnes...

Pourquoi tout tes labels portent le même numéro "label1"

pourquoi fais tu appel à un module de classe ?

pourquoi fais un selection.change sur tout la classeur ?

pourquoi demander une couleur alors que tes cellules n'en ont pas ?

A quoi correspondent les 3 colonnes de cellules ?
Tu implémentes jusqu'à 122 lignes mais il n'y en a que 5 de remplies, pourquoi ?

:quand on lit ton texte et qu'on regarde le classeur et les codes, on se dit qu'on met le pied sur une planche savonneuse, voilà pourquoi tu n'as pas de réponses!...

Réponse 9 / 15

eric2027
2 mai 2016 à 16:56

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 2/05/2016 à 17:07

122 LABELS EN TOUT SUR 3 COLONNES ?
122 N'est PAS DIVISIBLE PAR 3
ET
"pourquoi demander une couleur alors que tes cellules n'en ont pas ?
A quoi correspondent les 3 colonnes de cellules ? "

puis je caresser l'espoir d''avoir une réponse ?

Pourquoi envoyer au départ un classeur bidon ?

POUR NOUS FAIRE BOSSER POUR RIEN ?

Réponse 10 / 15

eric2027
2 mai 2016 à 17:38

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

Réponse 11 / 15

Maurice
2 mai 2016 à 18:19

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

Réponse 12 / 15

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
2 mai 2016 à 18:54

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

Réponse 13 / 15

Maurice
2 mai 2016 à 21:15

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

Réponse 14 / 15

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
Modifié par eric2027 le 2/05/2016 à 21:42

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

Réponse 15 / 15

eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
5 mai 2016 à 11:14

J'ai trouvé la solution

Discussions similaires

[VBA] Afficher une variable dans un label

Perte de fichiers

Vous connaissez un site fiable de maillot foot pas cher ?

Affiche une image dans Label Tkinter

Discussions similaires

Newsletters