Microsoft 365 Fusion de deux USERFORM sur EXCEL

[HugoTR35]

Bonjour à vous,

I need help !
Débutant en VBA & userform, je me suis bien renseigné, mais là je n'arrive plus à avancer ...

Je souhaite utiliser un formulaire sous VBA USERFORM, qui permettra de rajouter de l'équipement, de modifier l'équipement existant et voir de le supprimer.
Je souhaite avoir dans le formulaire des listes en cascade jusqu'à à atteindre le ComboBox_EPI (Etape 1 en PJ) qui lui m'affichera l'intégralité des TextBox déjà remplis (Etape2) , si il y a quelque chose déjà présent. De plus je n'arrive pas à rajouter de colonne à mon userform, cellule en rouge dans le tableau Etape2

Je veux donc fusionner mes deux documents Etape1 et Etape2, pour avoir un userform type comme l'image en PJ, cependant je n'y arrive pas, cela devient beaucoup trop technique pour moi. Si une âme charitable pouvait me venir en aide, je lui serait très reconnaissant,
En espérant été avoir clair, je vous remercie d'avance,

Belle journée à vous et belle année 2022,

 

[Dranreb]

Bonjour.
Cette ressource se charge de tout. Il n'y a qu'à spécifier dans la UserForm_Initialize quels contrôles correspondent à quelle colonne du tableau. Au ComboBoxLiées pour les donnée d'identification ou de recherche, au ControlsAssociés pour le reste.

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Il est aussi possible d'équiper le classeur utilisateur des modules de services nécessaires.

 

[HugoTR35]

Merci pour votre retour,
Je vais regarder ça mais au premier coup d'œil ça a l'air de remettre en question toute la base que j'ai créer (copier) au préalable.

 

[HugoTR35]

Aucune autre solution ?

 

[Dranreb]

Pourquoi chercher une autre solution, forcément moins bonne, avec trop de programmation 'applicative' lourde à maintenir ? (La programmation 'de service' ne compte pas puisqu'elle ne nécessite aucune maintenance.)
D'abord, à part qu'il vaudrait mieux lui faire subir une mise sous forme de tableau Excel, pourquoi ça remettrait en question la base ?

 

[HugoTR35]

Bonjour, tout d'abord merci pour votre réponse,

Etant débutant, j'ai du mal à comprendre votre fichier...
Je vais donc m'atteler dessus plus sérieusement pour essayer de comprendre.

 

[Dranreb]

Bonsoir.
Si quelque chose n'est pas clair dans la feuille d'aide du CBxLCtlA.xlsm, n'hésitez pas à me poser des questions.
Si vous joingez un classeur muni de l'UserForm dont vous n'avez fourni que l'image au 1er poste, je le ferais probablement en parallèle en même temps que vous.

 

[HugoTR35]

Je vous remercie beaucoup pour votre aide, voici le document en PJ, c'est pas le même qu'au début car j'avais réussi un début de fusion entre les deux ... Je vais plancher dessus aujourd'hui !

Mon objectif final c'est qu'avec deux critères : Le NOM de la personne et son équipement, les TextBox se remplissent et que je puisse les modifier directement.

 

[Dranreb]

Bonjour.
Je vais vous installer tout ça.
Puis-je mettre sous forme de tableau votre plage A1:N4 ?
En ajoutant d'ailleurs une ligne devant pour des groupes de colonnes Identification, Références, Statut, Dates.

 

[HugoTR35]

Je vous laisse faire ce qui vous semble le plus logique, je vous montrerai aussi ce que j'ai réussi à faire de mon côté !

 

[Dranreb]

Voilà l'ébauche.

 

[HugoTR35]

Mais wouaw en effet c'est parfait ! Milles merci je vais regarder comment vous avez fait, je vous poserai surement des questions !

 

[HugoTR35]

Les questions arrivent !!
Si je souhaite rajouter une listBox à la place d'une combobox,
Où dois je rajouter cette ligne ?

Private Sub UserForm_Initialize()
Set CLs = New ComboBoxLiées: Set CAs = New ControlsAssociés
CLs.Plage Feuil1: Set CAs.Colonnes = CLs.Colonnes
CLs.Add Me.ComboBox_pole, "Pôle"
CLs.Add Me.ComboBox_agence, "Agence"
CLs.Add Me.ComboBox_collaborateur, "Collaborateur"
CLs.Add Me.ComboBox_epi, "EPI"
Dim C As Integer
For C = 5 To CLs.Colonnes.Count
CAs.Add Me("TextBox" & "listbox" & C - 4), CLs.Colonnes(C).Name
Next C
CLs.CouleurSympa
CLs.LMaxDropBtn = 75
CLs.Actualiser
End Sub

 

[Dranreb]

Les ListBox ne sont prises en charge par aucun des deux objets. Pourquoi voudriez-vous remplacer une ComboBox par une ListBox ?

 

[HugoTR35]

Si je veux limiter le choix aux personnes pour l'intégration de certaines données dans le tableau.