Label
Résolu
eric2027
-
eric2027 Messages postés 289 Date d'inscription Statut Membre Dernière intervention -
eric2027 Messages postés 289 Date d'inscription Statut Membre Dernière intervention -
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
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
- Label printer logiciel - Télécharger - Outils professionnels
- Ronyasoft cd dvd label maker - Télécharger - Photo & Graphisme
- Cd label designer - Télécharger - Impression
- Barcode Label Printing Software TFORMER - Télécharger - Bureautique
- Label maker - Télécharger - Photo & Graphisme
15 réponses
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
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
bonjour
je pense a un truc comme ça
A+
Maurice
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
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
j'ai bien les 3 colonnes, mais cela ne fonctionne pas, quand je click sur une cellule, le texte ne s'incorpore pas
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!...
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!...
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
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
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 ?
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 ?
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
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
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
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
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
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