Userform et classeur Excel

Question

Je reviens vers vous aujourd'hui car je débute à peine sur la création d'une userform ! Et j'aurais besoins de votre aide pour pouvoir coder toutes mes petites ComboBox et zone de texte modifiable... En effet, j'ai créer toutes mes Userform (en multipage), et j'aimerais savoir comment coder ces ComboBox et zone de texte modifiable pour que chaque entrée de ma Userform se recopie automatiquement dans mon fichier Excel dans la bonne colonne et ligne ainsi que dans une feuille spécifique du classeur. Voici un exemple : Dans le fichier Excel que je vous joins, J'aimerais que (dans l'onglet "Accueil" de ma Userform), par exemple pour la première ligne "adresse du site" que le texte que l'on rentrera dans la zone de texte modifiable (à coté), soit recopié dans la feuille "Informations générales" en colonne G ligne 6 . De même, dans ma ComboBox "Pays" de l'onglet Accueil de ma Userform, j'aimerais afficher les valeurs se trouvant en colonne P de ma feuille "Informations générales" (France, Suisse, etc.) et une fois que cette liste déroulante est créer, j'aimerais que la valeur choisi dans cette liste (dans la Userform) soit recopié automatiquement en colonne G ligne 10 de ma feuille "Informations générales". J'espère avoir été clair dans mes explications... J'espère également qu'une personne pourra m'éclairer sur les codes à utiliser car même en regardant des tutoriels sur internet je n'arrive pas à afficher une quelconque valeur.... Merci à tous pour votre aide et bonne journée ...

Siritani · Answer

Si tu souhaite simplement mettre à jour les valeurs en fonction du contenu de ta ComboBox, il te suffit de rajouter une fonction par ComboBox (ou tout autre élément) dans le code de ton formulaire. Double clique sur l'un de tes champs, cela devrait d'ajouter une fonction « ComboBoxX_Change », ajoute-y simplement la ligne que tu veux. Exemple : Private Sub ComboBox1_Change() ThisWorkbook.Sheets("Informations générales").Range("G6") = ComboBox1 End Sub J'espère que ça te suffit comme réponse, n'hésite pas à demander plus de détails si besoin...

Dan42153 · Answer

En PJ un exemple d'application avec les codes nécessaires pour gérer un éventail de contrôles dans des UserForms. Certains événements se déclenchent à partir des contrôles des UserForms, d'autres à partir des boutons posés sur les feuilles. L'idée générale est la suivante : laisser à Excel ce qu'il sait faire tout seul (Recherches, Filtres, etc... sur des données réparties dans des listes - 1 liste par feuille) assister l'utilisateur dans les opérations de gestion (Ajout, Modification, Suppression, écriture automatisée des formules) protéger les données, les formules et la structure des feuilles (gestion automatisée de la protection) Ce n'est qu'une suggestion parmi différentes méthodes ! Espérant avoir aidé, A+ Daniel...

Dan42153 · Answer

Ok, je te confirme que tous tes besoins sont couverts dans l'exemple de Gestion de Stocks fourni :

- rechercher "Afficher_Form_Modif_Entrée", par exemple, dans le code, pour voir les instructions qui se rapportent au chargement dans les contrôles des UserForms de valeurs présentes dans les cellules ;

- rechercher les événements "Bouton_Valider_Click" dans le code pour voir les instructions qui répercutent les données des UserForms dans les cellules, et les contrôles effectués à cette occasion

- rechercher l'instruction "Formula"dans le code pour voir comment écrire une formule dans des cellules à partir du UserForm

Voilà, tout n'est pas optimal sans doute, mais c'est une piste...

Tout le reste est sur ce forum !

A+ Daniel

Siritani · Answer

Tout d'abord je tiens à dire que je n'ai pas ouvert le classeur de Daniel, je ne peux pas le télécharger d'ici, donc tu risque de retrouver ce que je te dis là dans le fichier qu'il t'a transmis.

Sinon, pour les ComboBox (et les ListBox) je ne suis pas un expert, mais j'ai fais deux-trois tests et je peux déjà te dire ça :

Tu ajoute un élément dans la liste avec la propriété AddItem :

ComboBox1.AddItem "Ce que tu veux ajouter"

Tu peux définir directement la liste de ta ComboBox avec la propriété List (et tu peux utiliser une colonne de ton classeur) :

ComboBox1.List = ThisWorkbook.Sheets(1).Range("A1:A4").Value

Tu change la valeur de ta ComboBox avec la propriété Value :

ComboBox1.Value = "Valeur de la ComboBox"

Tu peux également définir la valeur en fonction de son numéro dans la liste déjà définie avec la propriété ListIndex :

ComboBox1.ListIndex = 0 'Prend la première valeur de la liste

Tu peux placer ce code dans la fonction Initialize de ton UserForm, ou dans la fonction Activate en fonction de tes besoins. La fonction Initialize se lance à la première ouverture de ton UserForm, c'est à dire que si tu le masque et le ré-appelle, les données ne seront pas rechargées. Alors que la fonction Activate te permettra de changer les données chaque fois que tu ré-active ton UserForm.

Tu peux également regarder les autres fonctions disponibles pour ton UserForm, il te suffit de double-cliquer dessus, et de choisir la fonction dans le champs situé en haut à droite de l'éditeur (par défaut, il te propose la fonction Click)

Comme je ne suis pas sûr d'être très clair, voici un exemple de ce que tu peux faire (il te faudra au préalable remplir les cases A1 à A4 dans la feuille N°1 de ton classeur si tu veux le tester) :

Private Sub UserForm_Initialize()
    ComboBox1.List = ThisWorkbook.Sheets(1).Range("A1:A4").Value
    ComboBox1.ListIndex = 1
End Sub

Pour ton Bonus :

Soit tu utilise une formule, soit tu peux utiliser quelque chose comme ça :

Dim i As Integer

For i = 1 To 4
    With ThisWorkbook.Sheets(1)
        ComboBox1.AddItem .Cells(i, 1).Value * .Cells(i, 2).Value 'Ai * Bi
    End With
Next

Dan42153 · Answer

Essaie...

Dan42153 · Answer

Peux-tu joindre ton fichier ...

Dan42153 · Answer

Oula...

Je m'attendais à trouver une procédure de validation pour ton problème, mais je ne trouve qu'une procédure Form Initialize, qui ne correspond pas à ce que tu veux faire puisqu'elle se déroule au chargement du formulaire et non suite à une modification des contrôles...

Il faudrait écrire un bout de code lancé par un click sur un bouton Validation, par exemple... mais je ne vois pas non plus de liste organisée où tes données seraient écrites en sortie de formulaire... Dans ce cas, la propriété value pourra être utilisée pour affecter une cellule...

Bref, je ne sais pas si je vais pouvoir t'aider bien au-delà, parce que pour ce qui me concerne, je n'ai pas vraiment l'habitude d'organiser mes données comme cela... (voir mon exemple de gestion de stock)...

Mais peut-être que ton fichier joint ne reflète qu'une partie du travail... C'est ce que laissent présager les références aux feuilles absentes de ton envoi...

A+ Daniel

Dan42153 · Answer

Comment dire... il y a plusieurs choses que je modifierais dans l'approche, et je ne pense pas que l'envoi de ton fichier me permette de le faire vu les volumes de données...

Ce que je pourrais te conseiller avant d'aller plus loin, ce serait la méthode suivante :

1- identifier les feuilles nécessaires (sites, chambres froides, clims, etc...) et construire les listes à raison d'une liste par feuille, contenant tout ce qu'il faut pour :

faire les calculs internes à une feuille (rédiger des formules vérifiées), relier les feuilles entre elles (totaliser les données d'un site, par exemple)
pouvoir filtrer simplement les données (d'un site, par exemple), mais aussi plus tard faire le diagnostic d'un site à l'aide des filtres élaborés, voire éditer la fiche signalétique d'un site ou d'une installation
fournir des facilités et des contrôles de saisie avec les données de validation, illustrer le tout avec les mises en forme conditionnelles
éliminer les cas d'énumérations (clim 1, clim 2, clim 3) et remplacer cela par des saisies organisées en liste (une ligne par clim)
confectionner des tableaux de bord et autres stats avec des tableaux croisés dynamiques

2 - une fois ce travail effectué, et seulement à ce moment là, construire les formulaires (un par feuille ?), dans le but de mieux contrôler la saisie, d'assister et conduire les utilisateurs...

Avec cette méthode, on commence par faire fonctionner le classeur sans les formulaires, uniquement avec les feuilles, notamment parce que les modifications de code VBA, nécessaires pour les seuls formulaires, coûtent de plus en plus cher au fur et à mesure de l'avancée du projet...

Mais encore un fois, tu as peut-être déjà fait ce travail, même s'il ne se voit pas dans ton envoi...

Dans ce cas, essaie de placer l'écriture de la propriété Value comme suggéré, c'est-à-dire à la sortie du formulaire...

A+ Daniel

Dan42153 · Answer

On peut tout faire (ou presque) avec Excel et VBA... Du plus simple au plus compliqué....

Tu as choisi de démarrer avec le plus compliqué (voir ton UserForm1)... (et encore, en général, un assistant de saisie comme celui que tu projettes permet en principe de revenir en arrière, avec un bouton "Précédent" par exemple)...

En repartant de mon exemple de Gestion des Stocks, tu trouveras toutes les méthodes et instructions pour les interactions entre une feuille et un UserForm... Mais cela suppose de commencer avec des choses simples, pour bien anticiper les choix stratégiques successifs, comme la nécessité d'un bouton "Précédent", qui pose de vraies questions :

faut-il écrire les données du formulaire dans les cellules des feuilles après la saisie dans chaque onglet de formulaire, ou bien sur validation globale du formulaire ?
dans le premier cas, il faut donner la possibilité de retrouver les valeurs d'origine si l'utilisateur abandonne la saisie...
dans le deuxième, il faut rédiger tout le code d'écriture dans les cellules à la suite, avec un risque d'erreurs important...
dans les deux cas, le formulaire ne sera exploitable que quand tout sera terminé, et les modifications qui découlent souvent de l'usage coûteront très cher...

Voilà, je sais que ça n'est pas ce que tu voulais entendre, mais perso, je créerais plusieurs formulaires différents (un par liste ou feuille), et je n'attaquerais le deuxième que quand je serais satisfait de la structure des données dans le classeur et de mon premier formulaire...

A+ Daniel

Dan42153 · Answer

Pas sûr que tu reviennes là-dessus, mais tant pis : Parmi les méthodes pour charger les infos des cellules dans le formulaire, il y en a une qui n'est pas souvent utilisée, et je trouve cela bien dommage, car c'est la plus simple, et aussi celle qui profite le mieux de ce qu'Excel sait faire tout seul : Cela consiste simplement à charger les infos de la ligne de la cellule active . L'utilisateur n'a qu'à sélectionner la ligne voulue (avec les moyens qu'Excel met à notre disposition, comme la recherche CTRL+F ou les filtres, etc.), puis à cliquer sur un bouton Modifier. Le code se charge (voir les exemples dans Gestion des Stocks plus haut dans ce même sujet) d'approvisionner les contrôles du formulaire avec les valeurs de la ligne courante... Pas besoin dans ce cas de prévoir, dans le formulaire, des contrôles et des modules complexes pour la recherche de l'enregistrement à modifier : on est dessus ! Espérant avoir aidé, A+ Daniel...