[VBA] Label dynamique
Fermé
Bonjour a tous,
Voila je réalise un petit programme en VBA Excel avec des userforms,
j'ai une ListBox qui est remplit en fonction de ce que l'utilisateur rentre dans un Textbox. par ex si l'utilisateur rentre le nb 3 la listbox affiche D1,D2,D3. Lorsque je clique sur D1, D2 ou D3 un autre userform s'ouvre.Jusqu'a là j'ai pas de pb, ca marche! Mais maintenant j'aimerai que lorsque je ferme le 2ème userform, qu'il affiche le résultat dans un LabelBox sur le userform1. Donc pour résumer il s'agit d'une création automatique de label, j'imagine qu'il faut passer par une variable mais je ne vois pas comment créer les label ( ne pas utiliser cacher/visible), si qlq'un peut m'aide!
Merci de votre aide!!
Jean
Voila je réalise un petit programme en VBA Excel avec des userforms,
j'ai une ListBox qui est remplit en fonction de ce que l'utilisateur rentre dans un Textbox. par ex si l'utilisateur rentre le nb 3 la listbox affiche D1,D2,D3. Lorsque je clique sur D1, D2 ou D3 un autre userform s'ouvre.Jusqu'a là j'ai pas de pb, ca marche! Mais maintenant j'aimerai que lorsque je ferme le 2ème userform, qu'il affiche le résultat dans un LabelBox sur le userform1. Donc pour résumer il s'agit d'une création automatique de label, j'imagine qu'il faut passer par une variable mais je ne vois pas comment créer les label ( ne pas utiliser cacher/visible), si qlq'un peut m'aide!
Merci de votre aide!!
Jean
A voir également:
- Label vba
- Label printer logiciel - Télécharger - Outils professionnels
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- Cd dvd label maker - Télécharger - Photo & Graphisme
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
2 réponses
voila comment crer un label en VBA
Set label_dyna = Controls.Add("forms.label.1", "nom du label" & a, Visible = True) ' creation automatique du label nommé nom de label
label_dyna.top = 50 'label afficher à 50 pixel ds l a user form de hauteur
label_dyna.left = 200 ' label à afficher 200 pixels à gauche
label_dyna.caption = "la valeur voulu"
Set label_dyna = Controls.Add("forms.label.1", "nom du label" & a, Visible = True) ' creation automatique du label nommé nom de label
label_dyna.top = 50 'label afficher à 50 pixel ds l a user form de hauteur
label_dyna.left = 200 ' label à afficher 200 pixels à gauche
label_dyna.caption = "la valeur voulu"