Excel - Macro - Vba - Créer un Userform - Une boite de dialogue de saisie

[@PhilippeVita]

J'ai beaucoup apprécié le thème ainsi que la qualité pédagogique avec laquelle vous l'aviez accompagnée. Donc, un grand merci pour votre aide !

[@spaceodg9458]

@PhilippeVita Merci pour le message, cela fait vraiment plaisir.

[@Fwr_ipixi]

La vidéo est de grande qualité, c’est très bien expliqué et très pédagogique. Merci beaucoup.

[@spaceodg9458]

Merci à vous

[@Bendherr]

Merci merci merci merci merci merci ! Aujourd'hui si on veut se perfectionner sur Excel, c'est ni à l'école, ni au boulot, c'est sur KZbin !

[@spaceodg9458]

En effet !

[@mustaphamesselek3362]

Je vous remerci depuis l'Algérie Allah Yjazikk inchallah

[@spaceodg9458]

@mustaphamesselek3362 Merci. Bonne soirée

[@sosodeath7994]

Simple claire et utile depuis des lustres que je cherche à comprendre le VBA , je suis ravi merci Spaceodg 👍

[@spaceodg9458]

Merci de votre retour d'info

[@khaleddaoudi8314]

Très bien expliqué. Un grand merci :)

[@spaceodg9458]

Merci pour le message. Au plaisir, Olivier

[@crepalex658]

Vidéo très claire et très utile. Merci beaucoup

[@spaceodg9458]

Merci de votre retour d'expérience. Le VBA demande un peu de temps mais c'est vraiment intéressant. Bonne soirée.

[@leroyinformatiquecomputerc9408]

Merci tu es trop fort! Très bien expliqué

[@spaceodg9458]

Merci c'est gentil pour le retour. Peu de personne ne parle de l'importance capitale de la sélection qui évite de générer les nombreux problèmes que rencontre les utilisateurs mêmes avertis, du coup les utilisateurs passent un temps fou à utiliser des outils pour corriger les problèmes.

[@trijkdev-hub]

Merci pour la vidéo! Très simple et pratique.

[@spaceodg9458]

Bonsoir, avec plaisir.

[@zakariaboujnah2682]

trééééééééééés claire merci infiniment cest simple claire et efficace

[@spaceodg9458]

Merci, j'ai essayé de synthétiser l'essentiel pour se lancer... Merci du retour

[@cissekenza6182]

Merci BEAUCOUP 🙏🏽 vous êtes mon sauveur

[@spaceodg9458]

Héhé :) Super !

[@gustaveyonneau6987]

merci bcp pour la vidéo !

[@spaceodg9458]

Au plaisir. Merci pour le message.

[@vincentamane8443]

Merci beaucoup pour ce super tuto pédagogique

[@spaceodg9458]

Au plaisir !

[@stephanegreenbull7351]

Hello, super vidéo...pil poil ce dont j'avais besoin encore une grand merci....

[@spaceodg9458]

Parfait !

[@francoisoutters6193]

Super vidéo, pratique, condensée mais pédagogique, merci !

[@spaceodg9458]

En effet, il faut digérer tout cela tranquillement.

[@duncanmacleod2445]

Simplicité, pédagogie, efficacité .... MERCI

[@spaceodg9458]

Merci !

[@christianroger411]

Grand Merci ! J'ai tout compris ! J'ai un formulaire de saisie d'une soixantaine de colonnes à programmer ! Grace à toi, je pense pouvoir y arriver, c'est maintenant une question de patience. Comment fait-on pour les champs calculés, as-tu déjà fait une vidéo sur le sujet ?

[@spaceodg9458]

BOnjour, Qu'appelez vous champs calculés ? Injection d'un résultat dans une cellule. Injection d'une formule dans une cellule ? Mise à jour d'un champs dans la userform avec un calcul en temps réel ?

[@michaelmbiyavanga1759]

La vidéo est magnifiques ! Elle correspond exactement à ce que je cherchais depuis longtemps. Serait-il possible de me donner la liste des formules utilisées? Celles stockées sur Word.

[@spaceodg9458]

Bonsoir, merci du commentaire. Je vous ai rajouté des bouts de codes dans la description de la vidéo.

[@michaelmbiyavanga1759]

@@spaceodg9458 Merci infiniment

[@aristidekode4363]

Très explicite, merci

[@spaceodg9458]

Merci à vous

[@zoulaihatouayeva9936]

Merci c'était très clair

[@spaceodg9458]

Merci de votre retour d'infos. Ce genre de tuto est très dense, et j'ai essayé de passer le maximum d'infos et de façon la plus clair possible...

[@thomasmacleod6800]

Merci beaucoup

[@spaceodg9458]

Merci pour le message. Bonne soirée.

[@jeredmj9834]

Bonjour, quand je valide les données, elle sorte au plus bas du tableau, je ne comprend pas

[@naturafaune]

Ca me parait normal, ou est le souci ?

[@jeredmj9834]

@@naturafaune normalement ça doit sortir par exemple sur la deuxieme ligne, si la première ligne est remplis mais sauf que là ça tombe sur la ligne du bas

[@naturafaune]

@@jeredmj9834 Ce n'est pas ce qui est prévu dans le cas présent. Il faudrait insérer une ligne en deuxième ligne puis injecter les données.

[@jeredmj9834]

@@naturafaune c'est réglé, j'avais mis mon tableau sur mise en forme de tableau, sûrement dû à ça ! Je l'ai remis en tableau normal, tout fonctionne impeccable

[@spaceodg9458]

Bonsoir, dans l'exemple de la vidéo, les dernières données saisies sont injectées en fond de tableau. Si vous souhaitez les injecter en dessous des entêtes de colonnes, insérer une ligne 2, puis envoyer vos donner en ligne 2.

[@aliboukara6150]

Excellente vidéos qui m'a beaucoup aidé. Juste une question. Pour les ComboBox comment faire avec une liste dynamique.

[@spaceodg9458]

Merci de votre retour de ressenti de la vidéo. Pouvez-vous préciser pour la liste dynamique ?

[@aliboukara6150]

@@spaceodg9458 Merci pour votre rapidité. Je dois concevoir un userform avec une ComboBox qui doit extraire les informations à partir d'une plage dynamique. Cette plage (nommée) est appelée à être enrichi par d'autres informations au fur et à mesure de l'utilisation du fichier. Merci d'avance.

[@naturafaune]

@@aliboukara6150 A première vue il suffit d'injecter vos données dans la colonne A de l'exemple. Par exemple avec une boucle qui rafraichi les cellules de la colonne A...

[@madeleine9708]

Bonjour, pourquoi la fenêtre sur la gauche du userform ne s'affiche pas 😢

[@spaceodg9458]

Pouvez-vous préciser ?

[@yannbeaugeard9851]

bonjour, merci pour le tuto , je voudrais savoir si par exemple on peut laisser un champ vide de la boîte de saisi, si oui quel est le changement a faire dans le code SVP Merci.

[@spaceodg9458]

Bonsoir, bien sur, il suffit d'enlever le code de vérification correspondant dans le bouton de validation.

[@esaiesib202]

Excellent tuto, par contre à chaque fois qu´on clic sur "valider saisie" l´enregistrement s´effectue bien que les autres champs sont vides. Je voudrais bloquer l´enregistrement si les champs Nom, Prenoms ne sont pas renseigner. Merci coach

[@spaceodg9458]

Bonsoir, Merci pour votre retour et ressenti. Pour répondre à votre question, voici une solution : Vérifier si les valeurs des champs sont égales à du vide. Si c'est le cas, on saute l'étape d'injection et de fermeture de la userform avec un Goto. Ci-dessous le code à modifier dans la Private Sub CommandButton1_Click()

[@spaceodg9458]

Private Sub CommandButton1_Click() ' ========================================== ' *** Rajout pour les champs obligatoires*** If UserForm1_saisie.ComboBox1 = "" Then MsgBox "Veuillez saisir la Civilité": GoTo ligne100 If UserForm1_saisie.TextBox1 = "" Then MsgBox "Veuillez saisir le Nom": GoTo ligne100 If UserForm1_saisie.TextBox2 = "" Then MsgBox "Veuillez saisir le prénom": GoTo ligne100 ' *** Rajout pour les champs obligatoires*** ' ========================================== derligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 Sheets("Feuil1").Cells(derligne, 1) = UserForm1_saisie.ComboBox1 Sheets("Feuil1").Cells(derligne, 2) = UserForm1_saisie.TextBox1 Sheets("Feuil1").Cells(derligne, 3) = UserForm1_saisie.TextBox2 If UserForm1_saisie.OptionButton1.Value = True Then Sheets("Feuil1").Cells(derligne, 4) = UserForm1_saisie.OptionButton1.Caption If UserForm1_saisie.OptionButton2.Value = True Then Sheets("Feuil1").Cells(derligne, 4) = UserForm1_saisie.OptionButton2.Caption UserForm1_saisie.ComboBox1 = "" UserForm1_saisie.TextBox1 = "" UserForm1_saisie.TextBox2 = "" UserForm1_saisie.OptionButton1.Value = False UserForm1_saisie.OptionButton2.Value = False ' ========================================== ' *** Rajout pour les champs obligatoires*** ligne100: ' *** Rajout pour les champs obligatoires*** ' ========================================== End Sub

[@sarrebourgtennisdetable1833]

Bonjour, merci pour cette macro cependant, quel serait la ligne de code pour supprimer la fenêtre après validation ?

[@spaceodg9458]

Bonjour, Pour cacher une userform : userform2.hide Pour al décharger de la mémoire : Unload Userform2 Bonne fin de jorunée.

[@sarrebourgtennisdetable1833]

@@spaceodg9458 ok merci

[@sarrebourgtennisdetable1833]

Dernière chose, comment faire en sorte que textbox1(nom) et textbox2 (prénom) fusionnent dans une seule cellule (A2) avec un format de type: DURAND (en majuscule) Pierre (1ère lettre en Majuscule) ?

[@spaceodg9458]

@@sarrebourgtennisdetable1833 Pour cumuler des Textbox, il suffit de mettre le signe + entre les deux. Ex : nom_compile=Userform1.Textbox1 + " "+Userform1.Textbox2 Pour mettre en majuscule, je présume qu'il faut fouiller dans les formats...

[@sarrebourgtennisdetable1833]

@@spaceodg9458 ok merci

[@adilsabri4714]

très utile Merci

[@spaceodg9458]

Merci du retour.

[@Zarerk]

Merci pour le tuto très clair ! Cependant j'ai un problème, on me demande de créer un bouton "Effacer" qui une fois avoir cliqué dessus, va effacer la dernière ligne introduite sur le tableau excel. J'ai beau avoir cherché partout et essayé différentes manières, je n'ai pas encore réussi. Sauriez-vous m'aider svp?

[@spaceodg9458]

Bonsoir, Merci pour votre message. J'espère avoir bien compris votre question, donc, créer un bouton effacer sur votre Userform ou sur votre classeur. Puis exécuter ce code "XXX étant la feuille à sélectionner. en imaginant que c'est la ligne 2 que vous voulez supprimer. : Sheets("XXX").select Rows("2:2").Select Selection.Delete Shift:=xlUp A vous de jouer.

[@Zarerk]

@@spaceodg9458 c'est à peu près ça mais le problème est justement que je ne sais pas si c'est la ligne 2 ou pas (vu que à chaque fois qu'on clique sur "valider", ça passe à la ligne suivante) L'idée serait d'utiliser une commande qui supprime la dernière ligne ayant été introduite. Encore désolé du dérangement !

[@spaceodg9458]

@@Zarerk ok, Dans ce cas là, dans la Userform, rajouter un bouton CommandButton3, double cliquer sur ce nouveau bouton et copier le code ci-dessous à l'intérieur : Private Sub CommandButton3_Click() Sheets("Feuil1").Select derligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row Rows(derligne).Select Selection.Delete Shift:=xlUp Cells(derligne, 1).Select End Sub Bonne journée

[@Zarerk]

@@spaceodg9458 merci énormément. J'essayerai ça !

[@spaceodg9458]

@@Zarerk Ok, Au plaisir.

[@aubinstevenkouadja1697]

la vidéo est très bien expliqué mais les code ne passent pas chez moi

[@spaceodg9458]

Bonsoir, Merci pour votre commentaire. Pour le souci de fonctionnement, surement une petite erreur de saisie. Cette vidéo est en place depuis 4 ans et de nombreux retours de bons fonctionnement. Tenez moi informé.

[@floriananthony3623]

Est-il possible d'avoir l'userform ouvert et d'utiliser Excel en même temps ?

[@spaceodg9458]

Bonsoir, Je ne sais pas, peut être regarder avec vbModeless, je n'en sais pas plus.

[@lagusgoudas2705]

Est-ce que il ya des codes de VBA qui me permis de navigue sur les UserForm1 et 2 &3 ….ect l’un à l’outre. Avec des Command Buttons. Sur les UserForms pas sur feuille Excel seront cachée Merci d’avance

[@spaceodg9458]

Userform2.show : Montre Userform2.hide : Cache unload Userform2 : Décharge

[@isabellerottier6364]

Bonjour, j'ai dans mon association des gens qui sont bénévoles dans certains départements. Comment faire quand on clique sur l'optionbutton "oui" pour ouvrir une textbox pour indiquer un numéro de département ? Merci de votre réponse et de vos explications qui sont très claires.

[@spaceodg9458]

Bonsoir, Pouvez vous préciser ce que vous voulez faire avec le département affiché et selectionné ?

[@isabellerottier6364]

@@spaceodg9458 Une fois le département affiché rien de plus, je veux juste savoir si la personne est bénévole et dans lequel.

[@spaceodg9458]

@@isabellerottier6364 Je vous propose si vous le souhaitez de me contacter via mail [e-mail] et si vous pouvez m'envoyer votre fichier excel.

[@alainbtuto]

Merci pour ses explication claires et précises ! Par contre j'aimerai pouvoir incorporer les données issues d'une feuille Excel vers un document Word, Peut-être l'objet d'un prochain tuto ?

[@spaceodg9458]

Bonsoir, Merci. 1 ere Méthode Ouvrir Word Insérer / Objet / Objet / Créer à partir du Fichier / Parcourir (sélectionner le fichier Excel avec les données) (Cocher Lier si vous souhaiter garder un lien inter actif entre les 2 fichiers) Une autre Méthode Copier dans Excel Coller dans Word

[@alainbtuto]

@@spaceodg9458 Merci de m'avoir répondu aussi rapidement, mais ma demande est un peu plus complexe, je vous détaillerai la problématique dans un MP. Bonne soirée.

[@anthonysquizzato3758]

Bonjour, j'ai un problème j'ai copier le code : derligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 il me mais erreur de dégobage. Quelqu'un pour m'aider svp?

[@spaceodg9458]

Bonsoir, Je viens de copier/coller le bout de code ci-dessus, il est bon. Le problème doit être ailleurs. Quel message avez vous ?

[@yvesdiennet2889]

C'est vraiment très bien expliqué. Cependant la vidéo ne tient pas compte de formats nombre ou date. J'aurais aimé savoir comment procéder.

[@spaceodg9458]

Les formats sont un vaste sujet parmi un vaste domaine qu'est le VBA... Imaginons que vous saisissez des numéros dans une textbox2 : exemple : val(userform1.textbox2) docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/val-function Imaginons que vous voulez injecter la date du jour, utiliser : Date... Bonne journée, Olivier

[@madeinafrica3289]

Bonjour monsieur. Merci pour ce tuto, que j'ai exécuté avec succès, mais j'ai un problème à chaque fois que je valide une commande sur mon formulaire : ce dernier tremble. Comment fixer ça

[@spaceodg9458]

Bonsoir, j'avais zappé votre message est-ce réglé ?

[@trijkdev-hub]

Cependant, les nouvelles données n'arrivent pas à s'aligner en dessous des anciennes, car elles suppriment les anciennes. Que faire?

[@spaceodg9458]

Avez vous pu régler le souci ?

[@trijkdev-hub]

Si si

[@trijkdev-hub]

Mais j'aimerais créer une base de données pour la collecte de moyennes, par matière et par niveau sont mes critères de recherche et ou de saisi. Voulez-vous m'aider ?

[@mrlee2349]

salut. j'ai un soucis avec mon code quand je le valide on me dit derligne = 3 au niveau de ma seconde instruction , s'il vous plait sa veut dire quoi?

[@spaceodg9458]

Bonsoir, Avez vous pu régler le souci, je n'avais pas vu votre message ? Derligne=3, indique juste la valeur, ce n'est pas le msg d'erreur.

[@geoffreycegarra1740]

La vidéo est pédagogue et bien monté. Cependant, je pense qu'il aurait fallu set les colonnes en fonction de leurs en-têtes afin que le code ne soit pas perturber si on change les colonnes d'ordre. Je pense que dans un auto c'est une habitude à montrer.

[@geoffreycegarra1740]

tuto*

[@spaceodg9458]

@@geoffreycegarra1740 Je n'ai jamais eu ce genre de retour, intéressant, pouvez vous me préciser ? Que voulez vous dire par "set les colonnes" ?

[@geoffreycegarra1740]

@@spaceodg9458 Par exemple dans votre code vous indiquez les futurs cellules où les valeurs seront attribuées par: ws .Cells(derligne, 4) (je prends en exemple la colonne 4) Moi ce que j'aurais fait c'est désigné chaque colonnes grâce aux entêtes. Tu peux par exemple le faire avec .Find et le nom de ton entête. Imaginons que mtn ta colonne D(ou 4) = columnFedere Donc le "nouveau code": ws .Cells(derligne, columnFedere) L'avantage étant que même si tu bouges ta colonne dans le futur, la macro ne nécessitera pas de changement c'est ce qu'on appelle un code dynamique. De plus, c'est une bonne habitude à prendre en entreprise lorsque des personnes vont récupérer ta macro dans le futur. Voilà pq il me semble important d'incorporer cette étape dans un tuto. Merci,

[@ElisaBOULANGER-zm7xb]

Bonjour ! Merci pour cette vidéo. J’ai une petite question : est-il possible, lorsque l’on arrive à la fonction : derligne=sheets(« XXXX»).range(« xxxx »).end(xlUp).row + 1 De pouvoir créer une autre comboBox qui se mette dans la même cellule Afin d’avoir 2 lignes différentes dans une même cellule Excel ? Exemple : Sheets(« GA »).cells(derligne,7)=userform1.comboBox1 Sheets(« GA »).cells(derligne,7)=userform1.comboBox2 Merci de votre réponse 😃

[@ElisaBOULANGER-zm7xb]

Je dois créé (dans un contexte professionnel) 2 lignes de commentaire grâce à une liste déroulante dans une même cellule. Je sais qu’il en est possible en langage VBA. Je sais que je suis proche de la création par votre vidéo mais je n’arrive pas à aller au bout. (Je suis amateur)

[@spaceodg9458]

@@ElisaBOULANGER-zm7xb Je ne comprends pas exactement. Vous souhaitez cumuler 2 commentaires texte provenant de 2 combobox dans une cellule excel ? Si oui, sheets(« GA »).cells(derligne,7)=userform1.comboBox1 + userform1.comboBox2

[@ousmanecamara3695]

Je veux les vidéos similaires

[@spaceodg9458]

:) Sur le VBA : kzbin.info/www/bejne/iaHLlIKHi7xpea8feature=shared kzbin.info/www/bejne/f6e5l39pf5t6Zs0feature=shared

[@christophevoiret9320]

Super video très bien expliquer mais débutant dans la codification j'ai tenté de créer un formulaire juste en ajoutant un nom J'ai modifié en fonction de ma page mais j'ai déja une erreur dans ma première ligne. Pouvez vous m'aider ? derligne = Sheets("CONFIG").Range("A456541").End(x1Up).Row + 1 Sheets("CONFIG").Cells(derligne, 1) = UserForm1.TextBox1 UserForm1.TextBox1 = "" Merci

[@spaceodg9458]

Bonsoir, Bien faire attention à la codif: derligne = Sheets("CONFIG").Range("A456541").End(xlUp).Row + 1 ' Ok derligne = Sheets("CONFIG").Range("A456541").End(x1Up).Row + 1 ' Pas Ok xlUp et pas x1Up Bonne soirée

[@christophevoiret9320]

@@spaceodg9458 merci beaucoup Bonne soirée

[@JonasOuattara]

J'AI une base de données nommé CMC qui est renseigné par un UserForm (Nom, Prénom, Date de naissance, Lieu de naissance, Sexe, Commune, Quartier et Type de document fourni). J'ai un formulaire dans une autre feuille de calcul nommé PDF_CMC qui contient des zones de texte (Nom C2, Prénom O2, Date de naissance C3, Lieu de naissance I3, Nationalité R3, Commune O4, Quartier W4) et des case à cocher (Sexe représenté par deux cases à cocher (Masculin C4 et Féminin G4)) (Type de document représenté par trois cases à cocher (CNI E5, CC G5 et Passeport I5)). Mon problème est de pouvoir remplir le formulaire et activer les cases à cocher. Je pense avoir donné plus d'explication sur mon problème. Merci pour l'aide que vous pourriez éventuellement m'apporter.

[@naturafaune]

Bonsoir, vous dites "j''ai un formulaire dans une autre feuille de calcul nommé PDF_CMC" J'imagine que vous avez un USEREFORM qui alimente un ONGLET "PDF_CMC", est ce bien cela ? Quand vous dites "Activer les cases à cocher" que voulez vous dire exactement ?

[@JonasOuattara]

@@naturafaune Pour la première question, je répond oui. pour la deuxième question, je veux dire cocher les cases à cocher.

[@naturafaune]

@@JonasOuattara Si je comprends bien vous voulez mettre des cases à cocher. Pour masculin/fémnin, je mettrais un bouton radio. Pour les documents, 3 cases à cocher feront l'affaire. Pour cela les positionner sur la Userform2. Puis pour récupérer les value, il suffit de faire : if userform2.checkbox1.value= true then document01="CNI E5" if userform2.checkbox2.value= true then document02="CC" if userform2.checkbox3.value= true then document03="CNI E5" ... Document01, 02, 03 sont des variables Il est possible de les injecter après dans des cellules aussi if userform2.checkbox1.value= true then sheets("PDF_CMC".cells(x1,y1)=document01 if userform2.checkbox2.value= true then sheets("PDF_CMC".cells(x2,y2)=document02 if userform2.checkbox3.value= true then sheets("PDF_CMC".cells(x3,y3)=document03 EN espérant avoir répondu à votre question.

[@JonasOuattara]

@@naturafaune Oui, j'ai un UserForm qui doit alimenter une feuille de calcule dans laquelle se trouve des case à cocher. Je voudrais que les informations transmise de UserForm puisse faire cocher mes cases à cocher ou les laisse sans reaction

[@naturafaune]

@@JonasOuattara Je ne sais pas modifier des cases à cocher directement dans une feuille de calcul.