[ExcelVBA] Userform dynamique

Bonjour à tous,

J'ai une petite problématique, je suis actuellement dans la construction d'un petit userform permettant à un opérateur de saisir des heures passées sur une pièce.

Voici un schéma de mon userform
Pièce jointe 575441

Actuellement ma ligne ajouter opération saisie des données dans une feuille annexe appelé "temporaire".

Afin de faciliter la lecture je voudrais savoir s'il est possible d'afficher la valeur dans une fenêtre en dessous ( encart bleu) et le cas échant créer un petit bouton modifier pour éventuellement modifier la raquette

Merci d'avance,

PS: A ce stade je ne pense pas qu'il est nécessaire de partager je le ferais volontiers si vous le demandez.

Salut SAP,

Pour te guider au mieux dans ton projet, je ne peux que te conseiller la lecture de cet Excel'ent, tutoriel de Pierre F.
Très facilement modifiable pour correspondre à ton besoin.

https://fauconnier.developpez.com/tu...eau-structure/

Bat
MFoxy

Salut,

En plus du tuto proposé par mfoxy (merci pour cette référence ;) ), je te propose ma contribution qui illustre la modélisation des interactions entre un userform et un tableau structuré...

J'espère que tu y trouveras ton bonheur...

Bonjour à vous deux,


Merci pour ces "tutos" sur le userform! bien utile j'ai " Optimisé" mes premières lignes de code pour remplir le userform ( Oui je n'avais pas utilisé de modélisation par tableau). Je peux maintenant en renseignant un numéro de matricule afficher directement le nom de l'opérateur

Cependant je n'arrive à réaliser l'opération que je voulais faire initialement, à savoir créer des combobox en fonction du nombre d'opération saisie, il y a très certainement une étape que je fais mal.
Pour le moment j'ai dimensionné un tableau structuré de 2 colonnes dans un onglet "temporaire", la première pour le type d'opération et la seconde le nombre d'heure.
Jusqu'à la pas de problème cependant mon userform ne s'incrémente pas avec l'apparition de combobox ( idéalement dans l'encart bleu de mon poste initial).
J'imaginais suivre un code un peu similaire à celui que Pierre Fauconnier propose,... sans succès:calim2:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test() Dim Counter As Long Dim r As Range Dim t As ListObject   Set t = Range("t_contacts").ListObject Set r = t.ListRows(2).Range For Counter = 1 To r.Count Debug.Print r(Counter).Value Next End Sub

---

Je ne comprends pas ce que tu souhaites réaliser.

Je pense qu'avant de vouloir ajouter des combobox de façon dynamique, il y a d'autres choses à tester, en fonction de ce que tu souhaites obtenir. Si tu veux pouvoir choisir parmi plusieurs lignes pour en modifier une, une listbox pourrait être une solution intéressante.

Bonjour,

En réalité je souhaite créer un " masque de saisie" sur excel puis la rubrique " envoyer le formulaire "qui transmets directement le formulaire à la personne chargé de ventiler les heures.
J'ai commencé par la partie envoyer par mail car je pensais que cela serait compliqué mais en faite pas du tout.
D'ailleurs sur la ligne envoyer le formulaire je souhaite ajouter une ligne pour effacer le contenu de ma feuille temporaire.

Code:

---

worksheets("Temporaire").Cells.Clear

---

Bonjour,

Dans ton cas, si tu souhaites "visualiser" les données avant envoi, l'idéal est la ListBox (idée de Pierre Fauconnier :salut:)

Exemple :
Type de contrôles dans le Userform ==> Noms des contrôles (propriété Name)

ComboBox ==> CbxMatricule
TextBox ==> TxtOperateur
ComboBox ==> CbxMachine
TextBox ==> TxtDate
TextBox ==> TxtOF
TextBox ==> TxtArticle
ComboBox ==> CbxOperation
TextBox ==> TxtTemps
CommandButton ==> CmbVisualiser
ListBox ==> LbxResume

Dans la procédure d'initialisation de l'UserForm (ou mieux, en dur dans les propriétés) :

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() Me.LbxResume.ColumnCount = 8 Me.LbxResume.ColumnWidths = "50;50;50;50;50;50;50;50" Me.LbxResume.Width = 450 End Sub

---

Le code du bouton "visualiser" (va transférer le contenu de chacun des contrôles cités ci-dessus dans la ListBox) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CmbVisualiser_Click() With Me.LbxResume .AddItem CbxMatricule.Value .List(.ListCount - 1, 1) = Me.TxtOperateur.Value .List(.ListCount - 1, 2) = Me.CbxMachine.Value .List(.ListCount - 1, 3) = Me.TxtDate.Value .List(.ListCount - 1, 4) = Me.TxtOF.Value .List(.ListCount - 1, 5) = Me.TxtArticle.Value .List(.ListCount - 1, 6) = Me.CbxOperation.Value .List(.ListCount - 1, 7) = Me.TxtTemps.Value End With End Sub

---

Deux tutoriels intéressants :
https://silkyroad.developpez.com/VBA/UserForm/
https://silkyroad.developpez.com/VBA/ControlesUserForm/

Bonjour Pijaku,

Je te remercie c'est exactement ce que je recherchais.

Merci également à Pierre Fauconnier et MFoxy
Je passe maintenant le sujet en résolu .