Excel VBA Userform form creation (Add, Search, Edit) easily

[@SebYoutube00]

Merci A vous : bit.ly/2JffGfU

[@el-hadisahbi4794]

je vous tire chapeau merci beaucoup

[@SebYoutube00]

Merci restez abonné partager ma chaine a vos amis ☺

[@el-hadisahbi4794]

Svp j'ai suivi vos tuto et réaliser le formulaire et ça marche très bien je voudrais juste vous demander quelque chose si vous pouviez m'apprendre a le faire un bouton d'options sur le formulaire si le personne qu'on as saisie est actif le bouton devient vers si il es non actif le bouton devient rouge vous pouvez m'expliquer svp ?

[@SebYoutube00]

@@el-hadisahbi4794 Rejoignez moi sur skype : sebyoutube

[@el-hadisahbi4794]

C'est quoi votre Skype svp ?

[@Maclsk]

Un grand Merci à Seb qui m'a beaucoup aidé dans mon projet et qui à su régler tous les problèmes que j'ai pu rencontrer dans la mise en forme de mon fichier. Ce n'est pas tous les jours qu'on croise des personnes qui prennent de leur temps pour aider sans rien en retour.

[@SebYoutube00]

Merci

[@ibemsarl587]

merci seb, j'ai réussie après trois tentative. je suis heureuse car je me suis jamais sentie a l'aise avec les VBA. c'est la première fois que je réussie un formulaire sur VBA. Merci merci beaucoup

[@SebYoutube00]

Bonsoir Je suis content pour vous. MERCI

[@luzrod7664]

Bonjour, merci pour la vidéo et le programme. J'ai supprimer le bouton recherche en l'intégrant directement dans un combolist.... Et en nommant la liste dans EXCEL, et en utilisant le rowlist dans le userform ça parait plus simple..... Pour adapter tout ça avec un msgbox "voulez vous modifier" et un show, j'ai 1heure ça marche super génial.... Merci

[@SebYoutube00]

Bonsoir Content que cela vous est plu.

[@saidguennoun]

Merci à vous pour votre Tuto , votre explication est très facile et facile à saisir , vous méritez nos respect

[@SebYoutube00]

Merci pour ce commentaire

[@guillaumekarolewicz4678]

merci de nous aider en ces temps difficiles

[@nass5340]

Merci c'est vraiment sympa d'avoir posté cette vidéo explicative et très claire.

[@SebYoutube00]

Merci pour votre commentaire

[@nass5340]

@@SebKZbin00 serait-il possible d'avoir une aide votre par ? Car j'aimerai en faite ajouter un userform pour faire une recherche de mot clef sur toute ma feuille Excel. Je ne réussi pas avec le code qui est dans la description. Si vous pouvez m'accorder une partie de votre temps ça serait génial !

[@SebYoutube00]

@@nass5340 bonjour oui bien sur rejoins moi sur Skype pseudo : sebyouTube

[@privattemary6279]

très belle vidéo simple et très claire, et si vous avez des difficultés dans l'exécution vous aurais des resolutions un temps soit peu grâce à l'assistance du concepteur n'hésitez pas

[@AlimAbubakrAs-siddig]

@Octaviejade, la vidéo m'a beaucoup aidé dans mes devoirs, je dirai meme qu elle m'a delivré. grand Merci

[@SebYoutube00]

Merci pour votre commentaire !

[@mouradselmi2336]

je vous tire chapeau merci beaucoup mon ami

[@fatimawaabach4874]

Bonsoir merci pour votre présentation c'est top ! cela m'a éclairé sur certain point

[@SebYoutube00]

Merci Abonnez vous :)

[@izylib5440]

Merci pour la vidéo ! Sa serait cool que tu explique les lignes de code que tu rentres.. :)

[@tartealagomme2852]

Super, simple et le code à dispo. Bien joué Seb

[@SebYoutube00]

Merci sa vous fera une tarte a la gomme pour moi, a envoyer via la poste. hihi

[@jn6904]

Merci pour les efforts. Explication très claire

[@SebYoutube00]

Merci

[@slimaneboudour8240]

Merci. Chapeau! Peu parlé et mieux dit.

[@SebYoutube00]

Bonjour Merci pour ce commentaire

[@mohamedELQayedy]

code parfait et intelligent . bravo

[@apbiz3894]

C'est parfait Merci pour vos vidéos

[@nubesparva7836]

Merci beaucoup pour votre aide.

[@SebYoutube00]

Merci pour ce commentaire

[@lespliagesmaskinonge2785]

Bonjour, j'aimerais ajouter une photo à chaque items, j'aimerais que quand je choisi un item la photo apparaisse dans le formulaire. Pouvez-vous m'aider svp?

[@justyna6134]

#Seb, très bon tuto, on voie tout, la procédure est bien présentée! Merci :)

[@SebYoutube00]

Merci pour ce commentaire :)

[@PHANTOM-lr1mh]

Bonjour ! Je suis a court d'idée, même le Chat GPT ne trouve pas mon erreur mdr . Pour le bouton "Recherche", j'ai fais exactement pareil que la vidéo, mais mon formulaire ne ce rempli pas. J'ai fais plusieurs alternatives au code, et pourtant rien ne fonctionne... Je vais balancer mon ordi par la fenêtre !

[@SebYoutube00]

Bonjour rejoins moi sur Skype, sebyoutube. On regardera au fichier. Bonne soirée

[@antworkout9865]

Merci pour votre superbe travail !

[@SebYoutube00]

Merci abonnez vous ;)

[@antworkout9865]

C'est fait ! 😊

[@amrasaad9515]

bonjour, merci pour votre aide mais j'aimerais si possible au lieu de de la combbox utiliser une text box?

[@SebYoutube00]

Bonjour Je nomme le textbox : Newbox Pour le Code du bouton Ajouter pas grand chose ne change : If ComboBox1.Value = "" Then remplacer par if Newbox.value = "" then et cette ligne : Cells(ligne, 2) = ComboBox1.Value remplacer par Cells(ligne, 2) = Newbox.value Par contre pour le bouton recherche cela change en ceci : Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseTrouvee As String Valeur_Cherchee = Newbox.Text Set PlageDeRecherche = ActiveSheet.Columns(2) 'ci dessous est a mettre sur 1 seul ligne Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole) If Trouve Is Nothing Then AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address MsgBox (AdresseTrouvee) Else AdresseTrouvee = Trouve.Address Range(AdresseTrouvee).Select ComboBox2.Value = ActiveCell.Offset(0, -1).Value TextBox2.Value = ActiveCell.Offset(0, 1).Value TextBox3.Value = ActiveCell.Offset(0, 2).Value TextBox4.Value = ActiveCell.Offset(0, 3).Value TextBox5.Value = ActiveCell.Offset(0, 4).Value TextBox6.Value = ActiveCell.Offset(0, 5).Value End If Set PlageDeRecherche = Nothing Set Trouve = Nothing Puis pour le bouton modifier : Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseTrouvee As String Valeur_Cherchee = Newbox.Text Set PlageDeRecherche = ActiveSheet.Columns(2) 'ci dessous sur 1 ligne Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole) If Trouve Is Nothing Then 'ci dessous sur 1 ligne AdresseTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address MsgBox (AdresseTrouvee) Else AdresseTrouvee = Trouve.Address Range(AdresseTrouvee).Select ActiveCell.Offset(0, -1).Value = ComboBox2.Value ActiveCell.Offset(0, 1).Value = TextBox2.Value ActiveCell.Offset(0, 2).Value = TextBox3.Value ActiveCell.Offset(0, 3).Value = TextBox4.Value ActiveCell.Offset(0, 4).Value = TextBox5.Value ActiveCell.Offset(0, 5).Value = TextBox6.Value End If Set PlageDeRecherche = Nothing Set Trouve = Nothing Voila bon courrage a vous.

[@amrasaad9515]

Merci bcp pour votre aide précieuse

[@SebYoutube00]

Au plaisir

[@corinneandry1849]

bonjour Seb, petit soucis quand je veux modier un client, celui ci vient s'enregistrer dans mon bandeau bleu ( ou se trouve le titre " civilité" etc, si vous pouvez eclairer mes lanternes ;)

[@SebYoutube00]

Bonjour, Avez vous modifiez quelque chose sur le code du bouton modifier car chez la fonction modifier fonctionne sur le fichier que je vous ai envoyer.

[@corinneandry1849]

@@SebKZbin00 bjr non rien modifier, juste sur le nom " comte" quand je veux enlever le " é" du prenom francois pour le remplacer par un "ç"

[@SebYoutube00]

@@corinneandry1849 Bonjour essayer ce fichier, même mots de passe que la dernière fois : liens sup

[@gaecduvieux-pont5583]

Merci pour ce tuto...Est il possible en rajoutant une seconde combobox de réaliser une recherche par une autre entrée que le nom par exemple? J'ai essayé mais en vain...:(!

[@SebYoutube00]

bien sur, rejoignez moi sur skype : sebyoutube

[@hugocrutchet6338]

Bonjour Seb, j'essaye le formulaire que vous nous avez donné sous excel 2007. Le bouton ajouter fonctionne, cependant j'ai un soucis avec recherche et modifier, puis je vous contacter par mail ? (je ne possède pas skype)

[@SebYoutube00]

Bonsoir Hugo . Oui voici une adresse toute fraiche : [e-mail]

[@hugocrutchet6338]

Seb j’ai envoyé un mail merci

[@SebYoutube00]

Ok je vais y regarder

[@SebYoutube00]

Re. Mail envoyer, regarder le fichier, tester est dite moi si cela fonctionne

[@fatihamazih6699]

Bonjour j'ai suivi la vidéo mais pour le bouton ajouter tjrs un problème je comprends pas pk voilà le msg " erreur d'exécution 424 "et on m'envoie vers cette ligne : If ComboBox1.Value = "" Then )

[@SebYoutube00]

Bonjour, avez vous bien choisi dans votre userform ( un Combobox1 ) et non un TextBox1 , Dans la boite a outils ( combobox = Zone de liste modifiable et Textbox = Zone de texte). Dans notre userform nous avons 1 Combobox et 6 Textebox.

[@fatihamazih6699]

merci bien pour la remarque, mais j'ai bien choisi le ComboBox1 , j'ai constaté aprés avoir ouvrir le fichier ce matin que j'arrive à remplir le 1 er et 2 éme champs , mais le reste des champs je saisis vers la fin mm erreur mais cette fois ci , les 2 premiers champs sont remplis

[@SebYoutube00]

Bonjour.Pouvez vous regarder dans visual basic puis ouvrir l'userform1 et ensuite cliquer droit sur votre combobox ( "nom/prenom") puis cliquer sur propriété et enfin regarder que (Name) = Combobox1.

[@fatihamazih6699]

c'est fais , dans le code c'est bien clair l'affectation du comboboxe à la zone voulue

[@fatihamazih6699]

Bonsoir , comment je peux vous l'envoyer ?

[@freedz2238]

Je trouve votre tutoriel très intéressant. Merci beaucoup! Sauf qu'il y a un problème de son.

[@SebYoutube00]

Merci pour ce commentaire. Je trouve plus facile d expliquer apres avoir filmer et non en direct. C est pour cela que qu il n y a pas de son.désolé

[@faln3115]

Bonjour J'ai un soucis , avec le bouton modifier, cela me rajoute une ligne au lieu de la modifier ??

[@SebYoutube00]

Bonsoir s'auriez vous m'envoyer votre fichier afin que je puisse y regardé ? ( en l'hébergeant sur un site gratuit puis me donné le liens de téléchargement). Merci

[@DjamalAbouanfal]

Merci ,cours formidable , chapeau

[@SebYoutube00]

Merci pour ce commentaire

[@hugocrutchet6338]

Bonjour seb, un fichier vba peut il etre transferable et fonctionnel sous google sheet?

[@SebYoutube00]

Bonjour désoler je ne sais répondre a votre question.Sur certain forum, il est dit que le code VBA et transferable.

[@stephaneremy8847]

J'ai une erreur qui apparaît sur le bouton rechercher : à la ligne : no_ligne = Numéro_de_plan.ListIndex + 2 "numéro de plan" étant le nom de ma combobox, le ListIndex ce met en erreur. une solution ???

[@SebYoutube00]

BONJOUR ! Pouvez vous mettre votre fichier sur mon-partage.fr (ces gratuit) pour que je puisse y regarder. MERCI !

[@soukainazouiti4575]

Bonjour, Je vous remercie pour la vidéo. J'ai une question svp. Comment afficher dans le combobox une liste déroulante qui est déjà faite sur la feuille Excel? Merci pour votre aide

[@SebYoutube00]

Bonjour soukaina, comme ceci je pense: Private Sub UserForm_Initialize() Me.ComboBox1.RowSource ="Feuil2!B2:B5" ( Me.Com.....B2:B5" = 1seul ligne) End sub

[@soukainazouiti4575]

J'ai essayé de mettre juste B2 (où il y a ma liste déroulante) dans rowsource mais ça ne marche pas, sinon est ce que je peux juste tout simplement ne pas afficher les informations redondantes ? Ce serait encore mieux. Merci bcp

[@mlindustrialisationmanosqu7824]

bonsoir j ai une question est il possible de mettre le bouton de lancement de macro sur une autre page du classeur et non pas la ou il y a les données merci d avance

[@SebYoutube00]

bonsoir oui Bien sur, il suffit de lancer l'userform depuis la feuille que vous souhaitez puis dans le code vous faite un "sélect" sur la feuille données et enfin a la fin du code vous re-selectionner la feuille souhaitez.

[@SebYoutube00]

Rejoignez moi sur skype si vous voulez plus d'aide

[@mlindustrialisationmanosqu7824]

Merci Seb auriez vous un tuto a tout hasard car je galère un peu beaucoup merci

[@SebYoutube00]

@@mlindustrialisationmanosqu7824 Venez sur skype : SebKZbin

[@2010algerie1962]

bonjour j'ai un probleme à l'exucution . les noms ne s'affichent pas sur le tableau et j'ial la ligne"TextBox2.Value = Cells(no_ligne, 3).Value qui se colore en jaune (apparemment l'erreur est la. veuillez m'expliquer avec un grand merci

[@SebYoutube00]

Bonjour sauriez vous me partager votre fichier sur monpartage.fr

[@daasbouazza4276]

Bonjour, SVP, je vous demande de me faire savoir d'où est vous copier les formules que vous venez coller dans le poste de code?merci beaucoup.

[@SebYoutube00]

Bonjour regardez dans la description de cette vidéo. Cliquez sur les points pour agrandir le descriptif en bas de video

[@daasbouazza4276]

oui je l'ai trouvé. merci bonne vidéo et bonne explication.

[@robertphilippe3306]

Bonjour, J'ai réussi à créer le formulaire pour des inscriptions à une brocante. Je vous remercie de votre précieuse aide. J'ai juste un petit soucis, qui n'est peut être pas réalisable. Je voudrais que lorsque je lance l' Userform, me soit affichés dans 3 TextBox, le nombre de mètres linéaires restants disponibles pour l'intérieur un autre TextBox pour le nombre de mètres linéaires restants disponibles à l'extérieur et dans un 3 éme TextBox, le montant total que devrait régler la personne en cours de saisie, sachant que j'ai 3 données, Nb de mètres en salle à 3 € le m Nb de mètres en extérieur à 2 € le m Nb de repas à 12 € le repas Pensez-vous que ça soit réalisable ? Merci pour votre réponse

[@SebYoutube00]

Bonjour, oui réalisable. Rejoignez moi sur skype svp. Pseudo : sebyoutube

[@c0wh4pdas20]

Bonjour, lorsque je rentre le code cela me met un message error 9 au niveau de la ligne worksheet("Feuil1").Select Pourtant il me semble bien que ça soit la bonne feuille correspondante. Auriez-vous une idée de l'origine du problème ?

[@SebYoutube00]

Bonjour pouvez vous me rejoindre sur skype. Pseudo sebyouTube. Nous regarderons ensemble à votre fichier. Bonne soirée

[@c0wh4pdas20]

@@SebKZbin00 c'est bon j'ai résolu mon problème ! Merci beaucoup !

[@mathieuroger6904]

J’ai le même problème? Tu as fais quoi pour le régler? 🤔

[@c0wh4pdas20]

@@mathieuroger6904 c'était au niveau des noms, ma feuille avait 2 noms différents et j'utilisais le mauvais jsp si c'est clair

[@davepubliciste]

Lorque je rentre le code cela affiche un message error 9, alors c'est la bonne feille, comment pouvez-vous m'aider Mr. Seb?

[@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

[@Maclsk]

Bonjour Seb, J'ai un souci au niveau de mon bouton pour ajouter. VBA ne semble pas reconnaitre UserForm1.Show. Un message d'erreur apparait me disant que le "membre de méthode ou de données est introuvable". Saurais-tu me venir en aide ? Merci par avance

[@SebYoutube00]

Bonjour si vous avez renomer votre userform en "formulaire" , le code sera formulaire.show, verifier le "name" de votre formulaire.

[@Maclsk]

J'ai essayé plusieurs fois et ça ne semble pas venir de ça :/ Par contre j'ai ajouté d'autres lignes à cette commande, peut être que ça provient de ces autres lignes. D'ailleurs j'ai du mal à mettre en compatibilité ces lignes (venant d'autres tuto) avec celles de votre commande. Je commence à me perdre dans toutes ces lignes de code.

[@SebYoutube00]

Rejoignez moi/nous sur Skype ( SebKZbin ) même photo, nous regarderons ensemble a votre fichier, vous pouvez aussi m'envoyer votre fichier pour que j'y regarde.

[@WebizzFly]

Bonjour, la ligne ne change pas pourtant j'ai mis le même code que vous ! Urgent aidez moi svp Y'a t'il des prérequis ?

[@SebYoutube00]

Bonjour Vous n'avez pas créer de tableau par hasard ?

[@WebizzFly]

@@SebKZbin00 Non non.

[@WebizzFly]

@@SebKZbin00 Non désolé

[@SebYoutube00]

@@WebizzFly J'ai essayer votre fichier, chaque validation ajoute bien les données ligne par ligne chez moi.

[@WebizzFly]

@@SebKZbin00 Oui car j'ai changé la variable ligne. Essayez de mettre for variable vous verrez ca ne fonctionne pas

[@cecilegoetz9698]

Bonjour, comment faire pour faire commencer la liste à par exemple A5 au lieu de A2, et comment faire pour que par exemple textbox1 arrive dans une autre cellule définit ?

[@SebYoutube00]

Bonsoir Rejoignez moi sur skype, nous pourront en discuter directement : sebyoutube

[@ferrandeznathalie6231]

Bonjour Seb j'ai un soucis quand à la modification : j'ai une ligne supplémentaire qui s'affiche à la place de mes intitulés. Il me semble avoir respecter tes indications . Le seul changement : je commence ma base de données en colonne 2 d'avance merci Nathalie F

[@SebYoutube00]

Bonsoir Donc vous commencez en colonne B si j'ai bien compris. pour le bouton modifier , il faudra le modifier en : Cells(modif, 2) = ComboBox2.Value Cells(modif, 3) = ComboBox1.Value Cells(modif, 4) = TextBox2.Value Cells(modif, 5) = TextBox3.Value Cells(modif, 6) = TextBox4.Value Cells(modif, 7) = TextBox5.Value Cells(modif, 8) = TextBox6.Value le chiffre 2 dans (modif,2) indique le numéro de colonne : 1=A 2=B 3=C ect... Vous devriez aussi modifier le bouton ajouter et rechercher je pense. Ajouter : Cells(ligne, 2) = ComboBox2.Value Cells(ligne, 3) = ComboBox1.Value Cells(ligne, 4) = TextBox2.Value Cells(ligne, 5) = TextBox3.Value Cells(ligne, 6) = TextBox4.Value Cells(ligne, 7) = TextBox5.Value Cells(ligne, 8) = TextBox6.Value pareillement le chiffre 2 dans (ligne,2) indique la colonne Rechercher : ComboBox2.Value = Cells(no_ligne, 2).Value ComboBox1.Value = Cells(no_ligne, 3).Value TextBox2.Value = Cells(no_ligne, 4).Value TextBox3.Value = Cells(no_ligne, 5).Value TextBox4.Value = Cells(no_ligne, 6).Value TextBox5.Value = Cells(no_ligne, 7).Value TextBox6.Value = Cells(no_ligne, 8).Value idem le 2 dans (no_ligne,2) indique la colonne. Voila j’espère ne pas me trompé Bonne soirée

[@talujahbell1408]

CH salut, lorsque je modifie par exemple la 4ieme ligne les information ce reporte sur la 1iere ligne d'entrée de donnée

[@SebYoutube00]

Bonjour vos donnée commence a quel ligne ?

[@talujahbell1408]

@@SebKZbin00 COMMENCE à la ligne 3

[@talujahbell1408]

et quelque soit ce que je modifie, c"est la ligne trois qui est touché

[@talujahbell1408]

est-ce que vous avez un tuto sur les userforms avec multipages qui presentent ce vous avez fait sur le tuto ci-dessus

[@SebYoutube00]

@@talujahbell1408 rejoignez moi sur skype pseudo : sebyoutube, je regarderai a votre fichier. Non je n'ai pas de tuto multipages. Bonne idée pour un prochain tuto

[@nathaliemusset1148]

bonjour - je débute en vba et je ne comprends pas Range("A456541".End(x1Up).Row+1 Merci pour votre réponse

[@SebYoutube00]

Bonjour, cela signifie : je cherche la dernière cellule non vide de la colonne A.

[@zeinebaloui8104]

bonjour j'ai copier le programme telle qu'il est mais plusieurs messages d'erreurs apparaissent est ce que vous pouvez m'aider s'il vous plait .

[@SebYoutube00]

Bonjour quel est le message d'erreur ?

[@phantom_theorie8077]

*tu as cliqué sur quoi pour aller sur visual basic ? Merci*

[@SebYoutube00]

Bonjour. Sur l onglet Développeur, si vous ne le trouvez pas. Il faut l ajouter via : Fichier puis option, personnaliser le ruban puis enfin cocher la cas developpeur.

[@gregorymusilli6045]

Il y a un souci avec la fonction modifier car si j'ai 2 clients qui porte le même nom la modification s'opère toujours sur le même client, même en choisissant le bon client et en faisant la modification sur celui-ci, lorsque l'on valide la commande, la modification s'opère toujours sur le premier client (client enregistrer en 1er dans le tableau)... est-ce qu'il y a d'autres personnes qui ont ce problème ?

[@SebYoutube00]

BONJOUR ! Ce n'est pas un problème de code, mon exemple ne traite pas les doublons. Par contre si vous choisissez le bon nom dans le combobox elle doit vous modifier la bonne ligne.

[@matrichard2115]

Super exactement ce que je cherchais dommage que vous ne parliez pas...à plus

[@SebYoutube00]

Merci

[@daasbouazza4276]

SVP, j'ai une question à vous poser.ce qui est la suivante. pourquoi chaque fois je termine mon travail à saisir les données ,tout à coup un plaquette se montre me demande le nom du macro .sachant que je n'ai pas enregistre mon travail sous un macro. comment attribuer un macro pour l’enregistrer à la demande?

[@SebYoutube00]

Bonjour, il faut bien sûr enregistré le fichier avec macro. Rejoignez moi sur Skype pseudo sebyouTube

[@thomasmacabiau6649]

Bonjour Seb, je suis train de créer un Userfrom pour de la saisie de données. Néamoins je pêche dans mon code pour définir la "derligne". Comment faire quand il s'agit d'une cellule fusionnée ? Merci pour votre réponse

[@SebYoutube00]

Bonjour, rejoignez moi sur Skype, pseudo sebyouTube. Nous regarderons ensemble à votre fichier

[@angekouadio2824]

Salut, franchement j'ai suivi intégralement la vidéo puis copier la description comme il faut mais il y a toujours un bug. Comment faire?

[@SebYoutube00]

Bonjour quel est votre soucis ? Pouvez vous m'expliquez ou vous rencontrer ce " bug " merci

[@angekouadio2824]

Bonjour, je ne sais vraiment pas mais sur chaque bouton sur lequel je click s'affiche un message d'erreur...

[@angekouadio2824]

Bonjour! J'ai essayer ce que vous m'avez envoyer, j'ai même copier intégralement les codes mais me sort ceci:"Erreur d'exécution 424: objet requis" Quand j'essais de déboguer, ceci se met en surbrillance "If ComboBox1.Value = "" Then".

[@SebYoutube00]

Bonjour ces bizarre chez moi le fichier en ligne fonctionne, quel version d'excel utilisez-vous ? Pouvez vous regarder dans visual basic puis ouvrir l'userform1 et ensuite cliquer droit sur votre combobox ( "nom/prenom") puis cliquer sur propriété et enfin regarder que (Name) = Combobox1. Merci J'utilise également la version 2013.

[@angekouadio2824]

2013

[@hugocrutchet6338]

Merci pour votre aide précieuse !!

[@SebYoutube00]

Content de vous avoir aider.☺

[@franckaries226]

Bjr, je rencontre un soucis sur ma feuille de donnée. Quand je remplis le formulaire pour incrémenter ma feuille 1, je suis limité à seulement 5 personnes (donc 5 lignes). Pouvez-vous m'aider à régler ce petit problème ??? Merci d'avance

[@SebYoutube00]

Bonjour, avez vous réécrit exactement le même code ? Vous servez-vous d'un tableau ?

[@franckaries226]

Seb il me semble que oui !!! Mais j'arrive à entrer 5 personnes et après chaque fois que je rentre un nom celui ci efface le précédent. ..

[@SebYoutube00]

Pouvez vous m'envoyer un lien de téléchargement de votre fichier pour que je puisse y regarde ? Avez vous bien le "+1" a la fin de cette ligne sur le bouton ajouter ( End(xlUp).Row + 1 )

[@franckaries226]

oui j'ai bien le +1 sinon comment puis-je t'envoyer mon fichier pour que tu y jettes un œil ?

[@SebYoutube00]

il faut héberger ton fichier sur le net et m'envoyer le lien de téléchargement. tu peut utiliser www.gigasize.com/, il faut s'inscrire ( ces gratuits )

[@jeanmarcrzycka209]

bonjour et merci pour votre travail j'aurais une petite question. pour le bouton de recherche, si à la place d'une listbox nous avons un texbox. par quoi doit ont remplacer listindex? Mzrci d'avance pour votre réponse

[@jeanmarcrzycka209]

merci pour cette réponse très rapide. Serais t'il possible que je vous fasse passé mes lignes de codes pour que vous me modifier les premières lignes.Parce que la j'arrive plus à suivre

[@SebYoutube00]

Bonjour, Tmail, Taccés, Tcaces ne figure pas dans votre fichier sur le bouton recherche, est ce une erreur ou faut t-il les ajouter a la recherche ? Ensuite pour ce qu'il y ai de la recherche, vous rechercher en fonction d'un Nom mais plusieurs personne peuvent avoir le même Nom ce qui fausserai le résultat. Je pense qu'il faudrait plutôt rechercher par Nom/Prénom donc avoir 1 seul champs "Nom Prénom" donc 1 seul textbox.

[@jeanmarcrzycka209]

bonjour, déjà merci de vous pencher sur mon cas ben ce que je souhaite, c'est de rentrer u nom cliquer sur rechercher et afficher le formulaire avec tout les casses remplit lors de la création de la fiche

[@SebYoutube00]

Oui mais le nom peut être : azerty le père, azerty le fils ,azerty la femme.Faudrai mieux rechercher par Nom/prénom: ex Azerty Prénom. Quand pensé vous ?

[@jeanmarcrzycka209]

oui tout a fait d'accord

[@mezianeaboutit8540]

bonjour merci bcp pour cette vidéos, je l'ai suivis jusqu'à l'étape test mais j'ai un souci quand j'ai saisi mon premier article je reçois une erreur 424 fin ou débogage je clique sur débogage et je trouve ça If ComboBox1.Value = "" Then signalé en jaune que faire svp merci

[@SebYoutube00]

Bonsoir cliquer droit sur votre combobox puis dans description, vérifier que le "name" soit bien Combobox1 et non combobox 2 ou autre. cela arrive souvent de se tromper.

[@amerykouomou]

Bonjour s’il vous plaît je ne trouve ou est ce que on copie les lignes de descriptions en question

[@SebYoutube00]

Rejoignez moi sur Skype : sebyoutube

[@bernarddemont4713]

Bonsoir, j'ai un petit souci avec le bouton "Modifier". Le code bloque à la troisième ligne (Sheets("Feuil3").Select Alors que le bouton "Rechercher" fonctionne à merveille ... Une idée ? Merci et bonne soirée. Dim modif As Integer If Not cboNom.Value = "" Then Sheets("Feuil3").Select modif = cboNom.ListIndex + 2 Cells(modif, 1) = cboCivilite.Value Cells(modif, 2) = cboNom.Value Cells(modif, 3) = txtPrenom.Value Cells(modif, 4) = txtDate.Value Cells(modif, 6) = txtAdresse.Value

[@SebYoutube00]

Bonsoir comment s’appelle votre feuille

[@bernarddemont4713]

@@SebKZbin00 Bonsoir, La feuille s'appelle "Feuil3(Global Royan)

[@SebYoutube00]

Il vous faut modifier cette ligne Sheets("Feuil3").Select en Sheets("Feuil3(Global Royan)").Select

[@bernarddemont4713]

@@SebKZbin00 Fait, mais toujours le même blocage, ligne surlignée en jaune ...

[@SebYoutube00]

@@bernarddemont4713 renommer votre feuille sans les ( ..... ) puis changer le code et testez

[@amelie2110]

Bonjour, Merci pour cette vidéo. J'ai une question. Je dois remplir un tableau à l'aide des données du userform. Les données du tableau doivent être triées par ordre alphabétique et à chaque fois que je rajoute une ligne, celle ci doit automatiquement se placer correctement (respect de l'ordre alphabétique). Je n'arrive pas à écrire le code permettant cette action. Merci pour votre aide

[@SebYoutube00]

Bonsoir Créer un nouveau module puis coller y ceci : Sub tri() 'active filtre Range("A1:G1").Select Selection.AutoFilter 'tri de a à z ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _ ("B1:B90000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 'desactive filtre Range("A1:G1").Select Selection.AutoFilter End Sub Ensuite ecriver ceci sur le bouton ajouter : Cells(ligne, 7) = TextBox6.Value "code déjà présent" Unload UserForm1 "code déjà présent" UserForm1.Show "code déjà présent" Else "code déjà présent" End If "code déjà présent" End If "code déjà présent" tri "ceci a écrire a cette endroit" End Sub "code déjà présent"

[@SamyOuchen]

Bonsoir, j'ai l 'erreur suivante au démarrage du formulaire au moment de ajouter : If ComboBox1.Value = "" Then .la fenêtre débogage s'ouvre erreur d exécution 424 Pouvez-vous me donner la solution sans forcement passer sur skype s'il vous plait ? Merci d'avance

[@hamidoufouladiallo6939]

ComboBox1.value = "" ......... il veut juste dire : dans ce cas si la case Nom/Prenom est vide , il nous dit il faut le renseigner. Pour ton erreur si c'est le même formulaire , il faut cliquer sur la case qui en face de Nom/Prenom en regardant ses propriétés et vérifier si tu as sur la case Name le même nom de ComboBox1.

[@privattemary6279]

bonjour grand merci pour la vidéo mais j'arrive pas a faire le copier coller du descriptif parce que je ne le vois pas. j'ai besoin de ton aide merci j'utilise excel 2016

[@SebYoutube00]

Bonsoir Il faut cliquer le PLUS pour afficher le code au complet, le PLUS juste en dessous De " IF COMBOBOX1.value" j'espere avoir compris.

[@privattemary6279]

merci mais la n'est pas le problème dans la vidéo au niveau des commandes ajouter après avoir saisi( 'double click bouton ajouter) vous avez taper ENTREE puis la suite avez faire un copier coller d'un code et donc je n'arrive pas a avoir acces a la page qui me permettra de faire la copie c'est mon problème je sais pas si je me fais comprendre

[@SebYoutube00]

Vos feuille ne sont t-elle pas protéger ?, Pouvez vous m'envoyer une copie de votre fichier ( vous pouvez le mettre sur mon-partage.fr/ , choisir un fichier puis passer l'etape 2 , Etape 3 click sur upload, ensuite le site vous donnera un lien de telechargement que vous me copier en commentaire.

[@privattemary6279]

je me suis retrouver merci beaucoup

[@SebYoutube00]

Ah cool

[@laviesecretedespoules]

Petit truc que j'ai trouvé pour le ComboBox1 : crée un tableau pour la liste Nom/Prénom et mettre le nom du tableau dans RowSource. Je trouve ça beaucoup plus pratique

[@julienverdier7323]

Bonjour, merci pour cette astuce sinon sans faire cela ca ne marche pas :s

[@SebYoutube00]

Bonjour oui c est plus pratique comme cela. Part contre en declarant directement cela devrait fonctionner aussi. Abonnez vous merci 👍

[@julienverdier7323]

@@SebKZbin00 non impossible rentrer directement la plage je ne sais pas pk...

[@SebYoutube00]

Ah, vous ecrivez bien ex : nomdevotrefeuille!A1:A10

[@julienverdier7323]

@@SebKZbin00 oui mais j'ai un msg d erreur... Valeur de propriété non valide...

[@ferrandeznathalie6231]

Bonjour seb, oui j'ai essayé listindex +3, cela ne fonctionne pas . en attendant ,j'ai effectué une parade: j'ai rajouté une textboxnom en plus de la combobox, j'éffectue mes recherches avec la combobox et le changement se fait sur la textbox.

[@SebYoutube00]

Ah cool, si vous voulez toujour de mon aide, essayer de m envoyer votre fichier via le site que je vous ai donné dans le précédent commentaire.

[@urbanvybzvizion]

merci sa fonctionne nickel !!

[@samsonbananzaro540]

Merci pour la présentation.

[@SebYoutube00]

Merci

[@oui1607]

j'ai écrit la exactement la même chose que toi sauf que dans le CommandButton1 (Ajouter) Private Sub CommandButton1_Click() est en jaune est le bouton ajouter ne marche donc pas

[@wafaanzaoui393]

Merci pour votre initiative j ai un petit problème à chaque fois ou je déclare un user forme un message qui S'affiche la langue du produit est non reconnue je sais pas ou le problème exactement merci de me répondre

[@SebYoutube00]

Bonjour Rejoignez moi sur Skype : sebyoutube

[@vincentpouget7892]

Bonjour Merci pour votre travail j'ai un soucis sur le code pour ajouter il m'indique: "erreur de compilation Else sans If" en fin de code

[@SebYoutube00]

Bonsoir , pouvez vous me coller vos lignes de codes en commentaire ? Merci

[@vincentpouget7892]

Private Sub CommandButton1_Click() 'bouton ajouter If ComboBox1.Value = "" Then MsgBox "Veuillez renseigner le champ'Nom'" Else Dim ligne As Integer If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then Worksheets("Feuil1").Select ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 Cells(ligne, 1) = ComboBox1.Value Cells(ligne, 2) = TextBox2.Value Cells(ligne, 3) = TextBox3.Value Cells(ligne, 4) = TextBox4.Value Cells(ligne, 5) = TextBox5.Value Cells(ligne, 6) = TextBox6.Value Cells(ligne, 7) = TextBox7.Value Cells(ligne, 8) = TextBox8.Value Cells(ligne, 9) = TextBox9.Value Cells(ligne, 10) = TextBox10.Value Cells(ligne, 11) = TextBox11.Value Cells(ligne, 12) = TextBox12.Value Cells(ligne, 13) = TextBox13.Value Cells(ligne, 14) = TextBox14.Value Cells(ligne, 15) = TextBox15.Value Cells(ligne, 16) = TextBox16.Value Cells(ligne, 17) = TextBox17.Value Cells(ligne, 18) = TextBox18.Value Unload UserForm1 UserForm1.Show Else End If End If End Sub Private Sub CommandButton2_Click() 'bouton rechercher If Not ComboBox1.Value = "" Then Dim no_ligne As Integer no_ligne = ComboBox1.ListIndex + 2 TextBox2.Value = Cells(no_ligne, 1).Value TextBox3.Value = Cells(no_ligne, 2).Value TextBox4.Value = Cells(no_ligne, 3).Value TextBox5.Value = Cells(no_ligne, 4).Value TextBox6.Value = Cells(no_ligne, 5).Value TextBox7.Value = Cells(no_ligne, 6).Value TextBox8.Value = Cells(no_ligne, 7).Value TextBox9.Value = Cells(no_ligne, 8).Value TextBox10.Value = Cells(no_ligne, 9).Value TextBox11.Value = Cells(no_ligne, 10).Value TextBox12.Value = Cells(no_ligne, 11).Value TextBox13.Value = Cells(no_ligne, 12).Value TextBox14.Value = Cells(no_ligne, 13).Value TextBox15.Value = Cells(no_ligne, 14).Value TextBox16.Value = Cells(no_ligne, 15).Value TextBox17.Value = Cells(no_ligne, 16).Value TextBox18.Value = Cells(no_ligne, 17).Value Else End If End Sub Private Sub CommandButton3_Click() 'bouton modifier Dim modif As Integer If Not ComboBox1.Value = "" Then Sheets("Feuil1").Select modif = ComboBox1.ListIndex + 2 Cells(modif, 1) = ComboBox1.Value Cells(modif, 2) = TextBox2.Value Cells(modif, 3) = TextBox3.Value Cells(modif, 4) = TextBox4.Value Cells(modif, 5) = TextBox5.Value Cells(modif, 6) = TextBox6.Value Cells(modif, 7) = TextBox7.Value Cells(modif, 8) = TextBox8.Value Cells(modif, 9) = TextBox9.Value Cells(modif, 10) = TextBox10.Value Cells(modif, 11) = TextBox11.Value Cells(modif, 12) = TextBox12.Value Cells(modif, 13) = TextBox13.Value Cells(modif, 14) = TextBox14.Value Cells(modif, 15) = TextBox15.Value Cells(modif, 16) = TextBox16.Value Cells(modif, 17) = TextBox17.Value Cells(modif, 18) = TextBox18.Value MsgBox ("Modification effectué") Else MsgBox ("Veuillez selectionner le Nom de la personne à modifier") Exit Sub End If Unload UserForm1 UserForm1.Show0 End Sub

[@vincentpouget7892]

D'avance merci Je m'arrache les cheveux pour comprendre ou est mon erreur!!! :)

[@SebYoutube00]

cette ligne, vous l'écrivez bien comme ceci : If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then

[@SebYoutube00]

Oui l'erreur est qu'il faut mettre ---> Worksheets("Feuil1").Select en dessous du THEN, je te laisse modifier, dit moi si tu n'a pas compris ( Sur le code du boutton Private Sub CommandButton1_Click() ) exemple : If AAAAAAAA Then "rien ICI" BBBBBBB else end if

[@logueshnandjy-ramin7302]

Bonjour, le seul problème c'est qu'on ne peut pas modifier le nom/prénom (par exemple rajouter un prénom ou corriger une faute d'orthographe). La modification efface la première ligne avec les entêtes (civilité, nom/prénom, adresse,...) pour s'y incruster. Y a t-il une solution pour régler ce problème ? Merci

[@SebYoutube00]

Bonjour effectivement avec cette méthode, pour régler ce problème, il ne faut pas passer par l'index de la Combobox "modif = ComboBox1.ListIndex + 2" mais par une recherche ".find" du "nom/prénom" sur la fonction recherche

[@logueshnandjy-ramin7302]

@@SebKZbin00 Bonjour. Tout le programme fonctionne bien, sauf la modification du Nom/Prénom qui se fait toujours sur la 1ère ligne des en-têtes. Pouvez-vous m'expliquer d'avantage si c'est possible, il n'y a que ça qui coince. Merci.

[@SebYoutube00]

@@logueshnandjy-ramin7302 bonjour pouvez vous me rejoindre sur Skype (pseudo : Sebyoutube) ou héberger votre fichier pour que je puisse y regarder puis vous éclairez sur le soucis

[@logueshnandjy-ramin7302]

@@SebKZbin00 bonjour, j'ai trouvé la méthode pour résoudre le problème. J'ai rajouté un TextBox pour Nom-Prénoms, je fais la recherche à partir du ComboBox et peux modifier le nom et les prénoms dans le TextBox, ça fonctionne très bien. Je vous remercie pour votre retour et votre diligence.

[@SebYoutube00]

@@logueshnandjy-ramin7302 Cool, je suis content pour vous. n’hésitez pas si d'autre problèmes. Je suis dispo sur skype.

[@sergelacombe6376]

Bonjour, merci de ta réponse, mais je me suis mal exprimé, c'est dans le formulaire que je voudrais écrire plusieurs ligne, par exemple dans fenêtre e-mail. Mon but pour moi c'est de gérer des fiches de randonnées. Donc dans une des fenêtre du formulaire mettre un petit commentaire. Merci d'avance

[@SebYoutube00]

Bonjour, je vous ai fait une video rapidement. Dite moi si ces ce que vous rechercher. kzbin.info/www/bejne/g2XUeIaMndyHb68 Merci

[@francoisessohsekemr2481]

vous cachez trop de chose, je veux créer une base de données, comment faire pour que si je saisie dans le vba cela puisse generer la base dans mon tableau excell

[@chaimajerbi3580]

Great tutorial ! I was wondering can you add more than a database into a user form? To put it in anothrer way, can you assign the labels from the same userform to two different worksheets/databases?

[@SebYoutube00]

Hello, of course, you can add the data to more than one sheet

[@chaimajerbi3580]

@@SebKZbin00 thanks for answering

[@SebYoutube00]

@@chaimajerbi3580 Join me on skype if necessary, nickname: sebyoutube

[@ferrandeznathalie6231]

Merci pour ta réactivité. Ce que tu me proposes est exactement ce que j'ai fait . Par contre si je veux changer le nom de la personne ,ou simplement corriger l'orthographe du nom ce n'est pas possible. d'avance merci Nathalie F

[@SebYoutube00]

Bonjour pouvez vous m envoyer votre fichier ou une copie modifier si celui ci est confidentiel, je pourrai mieux vous aider en y regardant.

[@abossckytouret3330]

Bonjour SEB, @SebKZbin00 S'il vous plaît, pouvez-vous me dire comment adapter l'affichage de Userform automatiquement à mon écran? Merci d'avance.

[@ferrandeznathalie6231]

Merci j'aime le silence de tes vidéos

[@SebYoutube00]

Ces plus facile de travailler dans le calme. 😋

[@faridbouchiha2789]

Pour moi le code pour la rechercher ne fonctionne pas. Quand je fais une recherche il m'indique la 1er ligne à chaque fois à savoir l'entête au lieu de me remplir le userform avec les bonnes infos

[@SebYoutube00]

Bonjour !! Vous devez avoir une erreur sur cette ligne : no_ligne = ComboBox1.ListIndex + 2

[@faridbouchiha2789]

@@SebKZbin00 bonjour merci pour votre retour. Oui c'est exactement ça mais je trouve pas la solution. En tout cas encore merci pour vos tutos qui m'ont beaucoup appris

[@SebYoutube00]

@@faridbouchiha2789 rejoind moi sur skype pseudo "Sebyoutube" je regarderai a ton erreur

[@faridbouchiha2789]

@@SebKZbin00 merci pour l'invitation je t'ai rajouté et envoyé le document. Merci 😉

[@jeunesleaderswebtv910]

Merci beaucoup . Mais que fait si le formulaire doit recharger trois feuille de calcul.

[@SebYoutube00]

Bonjour, rejoignez moi sur Skype : sebbyoutube

[@claudechaudy7720]

Bonjour Seb j'ai commencé un formulaire pour des relevés de généalogie et je n'arrive pas à me dépêtrer avec les codes pourrait tu m'aider si je t'envois mon fichier s'il te plait Cordialement Claude

[@SebYoutube00]

Bonsoir bien sur rejoins moi skype Sebyoutube

[@sam8912]

Bonjour merci pour le fichier. est-ce que vous répondez à des demandes particulière ? Merci

[@SebYoutube00]

Bonjour bien sûr. Je suis egalement joignable sur skype pseudo : Sebyoutube Abonnez vous svp ☺

[@gerardcompte1617]

bonjour je voudrais savoir comment faire pour imprimer ou envoyer par mail mon formulaire merci

[@SebYoutube00]

Bonjour content de vous avoir aider

[@laviesecretedespoules]

Bonjour, Mon bouton Rechercher et Modifier ne fonctionnent pas. En effet, quand je clique Rechercher, cela me mets la bande Civilité, Nom/Prénom… Et Modifier me modifie le bandeau. Merci d'avance

[@SebYoutube00]

Bonjour a quel ligne commence votre tableau ?

[@laviesecretedespoules]

@@SebKZbin00 Le bandeau est ligne 1. Elle commence donc ligne 2 pour les ajout, etc,etc...

[@SebYoutube00]

Pouvez vous me rejoindre sur skype. Vous pourrez ainsi m envoyer votre fichier pour que je teste. Pseudo : sebyoutube

[@laviesecretedespoules]

@@SebKZbin00 Et voilà, j'avais juste oublié de faire un truc !!!

[@SebYoutube00]

@@laviesecretedespoules Je me douter mais cool,vous avez trouver seul.penser a vous abonné si ce n est pas fait svp. Merci

[@sergelacombe6376]

Comment ajouter du texte sur plusieurs lignes dans une zone texte. Si c'est possible. merci

[@SebYoutube00]

Bonsoir vous voulez ajouter plusieurs mots dans une seule cellule en les mettant chacun à la ligne . Si Oui : clic droit sur la cellule, puis format de cellule, onglet alignement puis cocher Renvoyer à la ligne automatiquement. Sinon pouvez-vous m'éclaircir Svp

[@SebYoutube00]

Vous pouvez aussi taper Alt + entré avant le mots a mettre a la ligne suivante

[@ndjokodjimbotim5893]

Ou peut on copier les lignes fournit dans le descriptif? Monter nous avec précision sur image pck on apprend avec vous . svp

[@SebYoutube00]

Bonjour regarder dans la description de la vidéo, il y a le code VBA de disponible. Il vous faut cliqué sur le "PLUS" juste en dessous de "Pour toute aide perso : rejoignez moi sur skype : SebKZbin"

[@labouleducentre2290]

Bonjour, et encore bravo pour cette vidéo J'ai un problème pour la ComboBox1 je suis sur Mac Excell 2011, il n'y a pas dans les Propriétés la commande rowsource, pouvez-vous m'aider ?? merci

[@SebYoutube00]

Bonjour, vous pouvez essayer ceci : Private Sub UserForm_Initialize() List = Range("$B$1:$B$50") ComboBox1.List = List End Sub

[@labouleducentre2290]

bonjour et merci, je ne suis pas un expert de VBA ou dois-je placer ce code ?

[@labouleducentre2290]

J'ai sélectionner la combobox et attribué le code il prend bien les selections mais supprime la ligne d'intitulé (1)

[@SebYoutube00]

Possible de m'envoyer votre fichier ? via mon-partage.fr/ peut etre ?

[@labouleducentre2290]

Je vois pour vous envoyer demain si vous êtes d'accord..........encore merci à vous

[@mullerdominique9898]

Bonjour petit probleme j'ai suivie scrupulesement votre tuto très bien expliqué mais j'ai l 'erreur suivante au démarrage du formulaire au moment de ajouter If ComboBox1.Value = "" Then .la fenêtre débogage s'ouvre erreur d exécution 424 Pouvez-vous me donner la solution Cordialement

[@SebYoutube00]

bonjour, votre combobox se nomme bien ComboBox1 et non pas ComboBox2 ou ComboBox3 ? rejoignez moi sur skype pseudo : sebyoutube. je regarderai a votre fichier.

[@mullerdominique9898]

@@SebKZbin00 Private Sub CommandButton1_Click() 'double click bouton ajouter If ComboBox1.Value = "" Then MsgBox "Veuillez renseigner le champs 'Nom/Prénom' " Else Dim ligne As Integer If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then Worksheets("Feuil1").Select ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 Cells(ligne, 1) = TextBox1.Value Cells(ligne, 2) = ComboBox1.Value Cells(ligne, 3) = TextBox2.Value Cells(ligne, 4) = TextBox3.Value Cells(ligne, 5) = TextBox4.Value Cells(ligne, 6) = TextBox5.Value Cells(ligne, 7) = TextBox6.Value Unload UserForm1 UserForm1.Show Else End If End If

[@SebYoutube00]

@@mullerdominique9898 rejoignez moi sur skype svp : sebyoutube

[@chloecannamela7969]

Bonjour, Je souhaite réaliser un formulaire. En fonction des réponses aux questions, il y aura une réponse qui s'affichera. Pourrez vous m'orienter?

[@SebYoutube00]

Bonsoir biensur rejoignez moi sur skype pseudo : Sebyoutube

[@SebYoutube00]

bonjour je vais vous faire une vidéo sur ce sujet

[@angamankoffijeancyrille2284]

MERCI MR POUR VOTRE VIDEO car cela m a permis de pouvoir developper sur vba seul .... mes jai des probleme a enregistrer tout ce travail une fois terminer ....lorsque j eteint mon ordi tou s efface .. veiller me montrer comment enregistrer le classeur et le userforme avoir finir

[@SebYoutube00]

Bonjour 12 min 48 sec de cette video, j'explique en detail comment enregistrer votre fichier avec pris en charge des macros. Je réexplique la marche a suivre. ( Une fois votre projet terminer. Cliquer sur fichier puis enregistrer sous, choisissez le dossier ou vous voulez enregistrer votre fichier. Une fenêtre s'ouvre dans lequel vous pouvez entré un " Nom de fichier " , en dessous de ceci figure le "TYPE" cliquez sur la liste déroulante puis choisissez "Classeur excel (prenant en charge les macros).(*.xlsm). Voila si vous avez encore des difficultés n'hésitez pas.

[@angamankoffijeancyrille2284]

ok merci d avance.. mais est ce que je pourai avoir ton mail .. j vai tenvoier les autres difficulter que je racontre dans la compilation .. car jai faire des capture d ecran mai que je ne peut poster ici ..... veillez acepter ma doleance .....

[@SebYoutube00]

Bonjour Vous pouvez m'ajouter sur skype : SebKZbin

[@gerardcompte1617]

sur ce tuto j'ai l erreur suivante au démarrage du formulaire au moment de ajouter If ComboBox1.Value = "" Then .la fenêtre débogage s'ouvre erreur d exécution 424

[@SebYoutube00]

Merci d'avoir rejoint skype, nous réglerons votre problème.

[@ahldeban]

Salut! Tout marche super bien au niveau du code, j ai passe dans les 20h a galerer pour le formulaire alors c etait assez salvateur d y arriver en 2 sec Mon probleme est que j ai besoin que les cellules de la colonne liée a la Textbox3(pour mois la derniere date que le client a ete contacte) mettent dans une couleur selon la distance avec la date d aujourdhui. J avais essaye sur un premier formulaire avec la mise en forme conditionnelle, en utilisant 3 regles colorier en vert pour les valeurs entre =TODAY() et =TODAY()-15 colorier en jaune pour les valeurs entre =TODAY()-16 et =TODAY()-31 colorier en rouge pour les valeurs entre =TODAY()-32 et =TODAY()-6000 (oui je suis sur excel en anglais pour arranger les choses) Tout marchait bien, le formulaire ne permettait que de rentrer des donnees mais la regle s appliquait bien! J'ai donc effectue la meme operation sur un nouveau fichier excel avec ton code, rien ! j ai ensuite ete sur le fichier de mon premier formulaire, copie le code et pareil... J ai essaye de deverouiller les cellules, d appliquer a tout le tableau mais que dalle... Aurais tu un conseil, une solution? et accessoirement si tu as une idee pour faire un sorte que plus la date soit eloignee du jour present plus la cellule remonte haut dans le tableau, ca serait le summum du top (je t envoie un beau costume en tweed) Merci beaucoup d'avance!!!

[@SebYoutube00]

bonjour, sauriez vous m'envoyer votre fichier pour que je puisse y jeter un oeil ? merci

[@ahldeban]

quelle adresse mail?

[@SebYoutube00]

Héberge ton fichier sur le net et envoi moi le lien de téléchargement ( ex: sur Gigasize.com ces gratuit)

[@ahldeban]

J ai trouve la solution, un collegue a renvoye le valeur de la cellule date sur une autre cellule pour indiquer le nombre de jours a partir de =TODAY() et, on a ensuite applique le mise en forme sous condition, tout est niquel! Merci beaucoup encore pour le formulaire tres complet (en particulier avec la fonction supprimer contact de l autre video), une bonne continuation a toi!!

[@SebYoutube00]

Cool , Merci bonne continuation a toi aussi Ps: ( j'ai supprimer le lien de ton fichier )

[@rhouhiwalid3181]

Bonjour, merci de la vidéo, ça m'a beaucoup aidé !! Par contre ce que je voudrai faire, mais que je n'y arrive pas, c'est quand je fais une recherche (sur n'importe quel critère), je voudrai que ça me filtre ma recherche sur mon fichier excel et non pas sur le useform (formulaire). Par exemple, quand je choisis une civilité, homme, et une ville, je voudrai que ça me sorte tous les hommes qui résident dans cette ville dans ma feuille excel. Est ce que celà est possible ? Merci d'avance

[@SebYoutube00]

Bonjour oui je pense que ces possible, je regarderai a sa vers 18h et je reviendrai vers vous. Pour discuter en direct vous pouvez m'ajouter sur skype

[@rhouhiwalid3181]

merci, c'est super gentil, votre aide m'apportera beaucoup

[@SebYoutube00]

Re bonjour, je pense avoir trouvé. Pouvez vous télécharger ce fichier est effectuer un test. .......

[@rhouhiwalid3181]

Re bonjour Seb, merci d'avoir pris du temps pour moi. C'est très bien ce que vous m'avez fait mais ce n'est pas totalement à quoi je m'attendais. En effet je voulais que quand je rentre un critère (comme par exemple homme ou femme qui habite à telle ville, ou alors je voudrais juste les personnes qui habitent a la meme ville: ce n'est juste qu'un exemple, il peut en avoir des milliers si nous voulons filtrer) et qu'en appuyant sur le bouton "rechercher" du formulaire, ce me filtre automatiquement ma recherche sur mon tableau excel. Car je peux avoir plusieurs personnes qui habitent la meme ville, ou qui ont le meme nom. Mon cas a moi est de traiter les commandes clients, par leur numero de commande, l'ordre de fabrication, le produit commandé... mais comme j'ai pu vous le dire, le client peut avoir le même ordre de fabrication, ou meme différents produits commandé je sais que ce n'est pas evident, mais je n'y arrive pas. Je vous remercie d'avance pour votre aide

[@rhouhiwalid3181]

Pour être plus simple, je veux juste que les critères de ma recherche soient filtrer automatiquement et directement sur mon tableau excel.

[@kimvogel2885]

Bonsoir, que signifie le « +2 » dans la ligne « no_ligne=ComboBox1.ListIndex +2 »? Merci d’avance c’est un super cours !

[@SebYoutube00]

Bonjour Je vais essayer de vous expliquez : Dans notre tableau notre 1er cellule commence a la "2eme ligne", listindex recherche le "numero de ligne du combobox" mais comme la 1ere adresse d'un combobox est 0. Comme je veut que le no_ligne soit égale au départ du tableau, je lui ajoute +2. ces qui signifie " si je sélectionne la 1er adresse du combobox ( le premier mot écrit ) celle-ci est égale a 2. Quand je fait ceci : ComboBox2.Value = Cells(no_ligne, 1).Value c'est égale a ceci : Ce que j'écrit dans le combobox est ajouter a la cellule ( 2,1 ) Voila j’espère avoir été assez clair. Merci pour votre commentaire.

[@anjboka1435]

Merci à vous Kim VOGEL et à Seb. Grâce à l'explication de la question de Kim, j'ai pu résoudre mon problème.

[@guylainejm]

Bonjour, je viens de régler par paypal et le fichier est vide...

[@SebYoutube00]

Bonjour. Apres paiement, vous êtes rediriger vers un liens de téléchargement. Je viens de vous renvoyer le fichier par Mail. Bonne journée

[@guylainejm]

@@SebKZbin00 Merci je vois ca tte a l'heure Amicalement

[@freedz2238]

Super vidéo!

[@SebYoutube00]

merci

[@mimiel7857]

Uuuurgggent!!!! Svvvp mois je commence de la ligne 4 et pas de 2 comme vous donc le chiffre dans range ne me convient pas quoi fair?????

[@SebYoutube00]

Bonjour ! pas besoin de crier a l'urgence, je répond a tous les messages. Pour ce qui est du fonctionnement de l'userform. vous n'avez rien a faire.il n'y a que la propriété du combobox1 a changer ( actuellement le rowsource =Feuil1!B2:B100, vous devez inscrire Feuil1!B4:B100 a la place ).

[@mimiel7857]

On me donne un message qui dit que c'est impossible de définir la propriété RowSource.Valeur de propriété non valide que faire????!!!!!!!!

[@SebYoutube00]

Votre feuille se nomme bien Feuil1 ? si non, il faut l’écrire "Nomdevotrefeuille"!B4:B100

[@mimiel7857]

Oui j'écris tjrs le nom de ma feuille ms le même problème :(

[@SebYoutube00]

Rejoins moi sur skype : Sebyoutube je regarderai a ton fichier

[@WebizzFly]

J'ai une question aussi, pourquoi vous faites: Unload UserForm1 UserForm1.Show A quoi cela sert de redemarrer l'application, c'est juste embettant ?

[@SebYoutube00]

Cela me permet de vidé les textboxs et comboboxs.

[@SebYoutube00]

Pouvez vous me mettre votre fichier sur mon-partage.fr poour que j'y regarde.

[@WebizzFly]

@@SebKZbin00 mon-partage.fr/f/WStLu4No/

[@prenomnom5684]

Bonjour, Merci pour le tuto. J'ai un probleme au niveau de la modification, on dit que la méthode ListIndex est introuvable. Merci pour votre aide..

[@SebYoutube00]

Bonjour, rejoignez moi sur skype : sebyoutube je regarderai a votre fichier

[@MABAKAJEAN]

ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 BONJOUR moi j'ai un soucie au niveau de range (".......) j'aimerais que les données rentrées commence à partir de la Cellule A10 mais je n'y arrive pas pouvez-vous svp m'aider?

[@SebYoutube00]

Bonjour cette formule recherche la dernière cellule non vide en partant du bas ( ligne 456541). Que voulez vous faire avec A10 ?

[@izeri2284]

d'ou vient le combobox 1 svp

[@SebYoutube00]

Bonsoir le Combobox se trouve dans la boite a outil sous le nom de "zone de liste modifiable"

[@izeri2284]

Merci mais j'ai une erreur erreur d'exeuction 9 l'indice n'appartient pas a la selection Private Sub AjoutPreventif_click() If cobCat.Value = "" Then MsgBox "Veuillez renseigner le champs 'Catégorie' " Else Dim ligne As Integer If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then Worksheets("feuil1").Select """""""" DEBOGAGE ICI """""""""""""""""" ligne = Sheets("feuil1").Range("A456541").End(xlUp).Row + 1 Cells(ligne, 1) = txtN.Value Cells(ligne, 2) = txtLieux.Value Cells(ligne, 3) = cobIntervenant.Value Cells(ligne, 4) = txtTaches.Value Cells(ligne, 5) = txtDate.Value Unload Preventif Preventif.Show Else End If End If End Sub

[@izeri2284]

c'est bon trouver merci bcp pour ton aide mr seb

[@selboukfatimazahrae7333]

bonjour izerl moi aussi j'ai le même message d'erreur, comment ta trouver la solution ?

[@selboukfatimazahrae7333]

Bonjour :) tu peux m'aider, moi aussi j'ai le même message d'erreur du izerl

[@jeanlucjoannes4769]

merci ca marche tres bien

[@SebYoutube00]

Merci

[@Yvero94]

Bonjour Seb, super de partager le code. Je suis sur Mac et malheureusement il n'y a pas la fonction formulaire sur Excel Mac 2019 et 2016. Est-il possible de reproduire cette fonction sans que ce soit un casse tête ? Merci

[@SebYoutube00]

Bonjour, apparemment sur mac, seul excel 2011 peut créer des Userform. :(

[@thomasgeoffray6037]

es ce normal que les combobox mette en erreur ?

[@SebYoutube00]

Bonjour bien-sur que non.