Création d'un userform dynamique avec plusieurs labels
Résolu/Fermé
MastJager
Messages postés
21
Date d'inscription
jeudi 27 avril 2017
Statut
Membre
Dernière intervention
13 mars 2018
-
Modifié le 27 avril 2017 à 09:42
MastJager Messages postés 21 Date d'inscription jeudi 27 avril 2017 Statut Membre Dernière intervention 13 mars 2018 - 4 mai 2017 à 11:41
MastJager Messages postés 21 Date d'inscription jeudi 27 avril 2017 Statut Membre Dernière intervention 13 mars 2018 - 4 mai 2017 à 11:41
A voir également:
- Création d'un userform dynamique avec plusieurs labels
- Tableau croisé dynamique - Guide
- Creation compte gmail - Guide
- Création organigramme - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
6 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
27 avril 2017 à 10:23
27 avril 2017 à 10:23
Bonjour,
sans voir le classeur...
Dans l’attente
sans voir le classeur...
Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci dans votre message
Dans l’attente
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
Modifié le 27 avril 2017 à 16:07
Modifié le 27 avril 2017 à 16:07
Bonjour
Donc j'aimerai créer un USF dynamique et dans ce USF aurai 4 labels et 1 labels avec des variables.
Plusieurs remarques :
1- il n'est pas possible de créer un USF dynamique (c'est à dire disparaissant à la fermeture du classeur). En revanche, on peut créer via VBA dans le projet VBA un USF avec les contrôles et le code associé mais il faudra alors le supprimer avant la fermeture du classeur.
2- il est possible de créer dynamiquement des contrôles dans un USF qui disparaissent à son déchargement ou à la fermeture du classeur.
3- quel est l'intérêt ?? En général, la création de contrôles dynamiques est lié à la création de nouveaux objets dans le classeur (feuilles, graphiques, TCD,...) mais j'en vois moins la nécessité pour un USF.
Donc j'aimerai créer un USF dynamique et dans ce USF aurai 4 labels et 1 labels avec des variables.
Plusieurs remarques :
1- il n'est pas possible de créer un USF dynamique (c'est à dire disparaissant à la fermeture du classeur). En revanche, on peut créer via VBA dans le projet VBA un USF avec les contrôles et le code associé mais il faudra alors le supprimer avant la fermeture du classeur.
2- il est possible de créer dynamiquement des contrôles dans un USF qui disparaissent à son déchargement ou à la fermeture du classeur.
3- quel est l'intérêt ?? En général, la création de contrôles dynamiques est lié à la création de nouveaux objets dans le classeur (feuilles, graphiques, TCD,...) mais j'en vois moins la nécessité pour un USF.
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
27 avril 2017 à 18:42
27 avril 2017 à 18:42
Bonjour,
Juste pour info, il est possible de créer un UserForm dynamique qui est supprimé à sa fermeture.
Voir la réponse de KIKI
https://www.developpez.net/forums/d1151084/logiciels/microsoft-office/excel/macros-vba-excel/userform-dynamique/
@+ Le Pivert
Juste pour info, il est possible de créer un UserForm dynamique qui est supprimé à sa fermeture.
Voir la réponse de KIKI
https://www.developpez.net/forums/d1151084/logiciels/microsoft-office/excel/macros-vba-excel/userform-dynamique/
@+ Le Pivert
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
Modifié le 27 avril 2017 à 19:19
Modifié le 27 avril 2017 à 19:19
Cs_Le_Pivert
Il ne s'agit pas d'un "UserForm dynamique", le terme est impropre. Il s'agit comme je l'ait dit, d'un Userform créé dans le projet VBA par du code et qui ne se supprime pas automatiquement après fermeture du classeur. Il faut rajouter du code pour le supprimer, sinon il reste présent dans le classeur.
Il ne s'agit pas d'un "UserForm dynamique", le terme est impropre. Il s'agit comme je l'ait dit, d'un Userform créé dans le projet VBA par du code et qui ne se supprime pas automatiquement après fermeture du classeur. Il faut rajouter du code pour le supprimer, sinon il reste présent dans le classeur.
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 27 avril 2017 à 20:40
Modifié le 27 avril 2017 à 20:40
J'ai essayé, a part le code de départ, il ne reste aucune trace de l'UserForm.
Je ne comprends pas ton explication!
voici un exemple:
http://www.cjoint.com/c/GDBsN3oBytQ
@+
Je ne comprends pas ton explication!
voici un exemple:
http://www.cjoint.com/c/GDBsN3oBytQ
@+
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
27 avril 2017 à 20:45
27 avril 2017 à 20:45
Si tu as essayé le code indiqué dans ton lien, la dernière instruction :
effectue la suppression du Userform créé dans le projet VBA . Si cette dernière instruction n'est pas présente, le UserForm sera conservé à la fermeture du classeur.
ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=UsfForm--
effectue la suppression du Userform créé dans le projet VBA . Si cette dernière instruction n'est pas présente, le UserForm sera conservé à la fermeture du classeur.
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
27 avril 2017 à 20:54
27 avril 2017 à 20:54
Justement elle est présente, donc tout ton discours ne sert à rien!!!!!!!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
27 avril 2017 à 22:00
27 avril 2017 à 22:00
C'est ton avis et je te le laisse.
Pour ma part, je pense qu'il est utile de savoir comment fonctionne ce type de Userform pour le gérer en fonction des besoins du programme : veux-t-on conserver ses valeurs ?, veux-t-on l'utiliser plusieurs fois en y effectuant des changements ou non ? , veux-t-on même le conserver à la fermeture du classeur ? ....
Pour ma part, je pense qu'il est utile de savoir comment fonctionne ce type de Userform pour le gérer en fonction des besoins du programme : veux-t-on conserver ses valeurs ?, veux-t-on l'utiliser plusieurs fois en y effectuant des changements ou non ? , veux-t-on même le conserver à la fermeture du classeur ? ....
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
28 avril 2017 à 17:05
28 avril 2017 à 17:05
Une nouvelle mouture avec une image dans le commandbutton:
http://www.cjoint.com/c/GDCpd1XpNOQ
http://www.cjoint.com/c/GDCpd1XpNOQ
MastJager
Messages postés
21
Date d'inscription
jeudi 27 avril 2017
Statut
Membre
Dernière intervention
13 mars 2018
4 mai 2017 à 08:35
4 mai 2017 à 08:35
Une personne m'a aidé à résoudre mon problème, elle a eu l'idée d’affecter un système de recherche selon une référence.
Exemple
Sub Buchholz()
reference = "Buchholz"
Call colonnes
adresse_ref = Sheets("Contenu").Range("A:A").Cells.Find(reference).Address
ligne_ref = Split(adresse_ref, "$")(2)
'TEST_DYNAMIQUE.caption = Sheets("Contenu").Range(col_nom & ligne_ref).Value
TEST_DYNAMIQUE.Label1.Caption = Sheets("Contenu").Range("C" & ligne_ref).Value
TEST_DYNAMIQUE.Label2.Caption = Sheets("Contenu").Range("D" & ligne_ref).Value
TEST_DYNAMIQUE.Label3.Caption = Sheets("Contenu").Range("E" & ligne_ref).Value
TEST_DYNAMIQUE.Label4.Caption = Sheets("Contenu").Range("F" & ligne_ref).Value
TEST_DYNAMIQUE.Label_ref = reference
TEST_DYNAMIQUE.Show
End Sub
Exemple
Sub Buchholz()
reference = "Buchholz"
Call colonnes
adresse_ref = Sheets("Contenu").Range("A:A").Cells.Find(reference).Address
ligne_ref = Split(adresse_ref, "$")(2)
'TEST_DYNAMIQUE.caption = Sheets("Contenu").Range(col_nom & ligne_ref).Value
TEST_DYNAMIQUE.Label1.Caption = Sheets("Contenu").Range("C" & ligne_ref).Value
TEST_DYNAMIQUE.Label2.Caption = Sheets("Contenu").Range("D" & ligne_ref).Value
TEST_DYNAMIQUE.Label3.Caption = Sheets("Contenu").Range("E" & ligne_ref).Value
TEST_DYNAMIQUE.Label4.Caption = Sheets("Contenu").Range("F" & ligne_ref).Value
TEST_DYNAMIQUE.Label_ref = reference
TEST_DYNAMIQUE.Show
End Sub
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
>
MastJager
Messages postés
21
Date d'inscription
jeudi 27 avril 2017
Statut
Membre
Dernière intervention
13 mars 2018
Modifié le 4 mai 2017 à 11:41
Modifié le 4 mai 2017 à 11:41
si tu avais suivi le conseil de michel_m, il aurait été plus facile de t'aider!
Nous sommes tous bénévoles, ce genre de comportement n'encourage pas à continuer à aider!
https://forums.commentcamarche.net/forum/affich-34553531-creation-d-un-userform-dynamique-avec-plusieurs-labels#1
Penses-tu que la macro que tu as postée va aider quelqu'un?
Nous sommes tous bénévoles, ce genre de comportement n'encourage pas à continuer à aider!
https://forums.commentcamarche.net/forum/affich-34553531-creation-d-un-userform-dynamique-avec-plusieurs-labels#1
Penses-tu que la macro que tu as postée va aider quelqu'un?
MastJager
Messages postés
21
Date d'inscription
jeudi 27 avril 2017
Statut
Membre
Dernière intervention
13 mars 2018
4 mai 2017 à 11:41
4 mai 2017 à 11:41
Excusez moi mais je ne pouvais pas me permettre de link mon Excel il comporte du contenu confidentiel.
Désolé pour la gêne occasionné.
Désolé pour la gêne occasionné.
