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 ?
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.
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
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
@@SebUA-cam00 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 !
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
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!!!
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!!
Bjr monsieur, j'apprécie vraiment votre travail, c'est exceptionnel. J'aimerais juste vous demander qqch au niveau des boutons ajouter, vous avez dit de copier coller les lignes fournies ds le descriptif. Je n'ai pas compris
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
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
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...:(!
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.
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?
Bonjour Seb J'ai suivi votre tuto que je trouve parfait cela fonctionne sans problème merci. J'ai l'ai aussi acheté dans l'espoir de trouver les réponses qu'il me manque en vain. Je suis en train d'adapter votre feuille Excel pour faire une feuille d'inventaire matérielles et je bute sur la fonction Modifier, auriez vous le temps pour m'aider?
Bonjour Seb Bravo très réactif ! mais dans la tex box je souhaiterai pouvoir écrire plusieurs lignes après ENTER l allez a la ligne du dessous pour écrire de nouveau. équivalent d'un paragraphe de pouvoir écrire comme dans ce commentaire Si c'est possible ! Merci
Bonjour je vous ai fait une nouvelle video : ua-cam.com/video/EVsjx5-KTEE/v-deo.html Dite moi si on avance un peu plus dans ce que vous rechercher Merci
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?
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
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.
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 .....
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
Bonjour. J'ai 77 ans et très heureux d'apprendre le VBA avec vous. J'ai donc suivi vos explications et j'ai créé la UserBox sur une feuille séparée de mon fichier de données. Lorsque j'utilise une des fonctions 'Ajouter, rechercher ou modifier) la UserForm se déplace automatiquement sur la feuille avec mes données. Quel code dois-je ajouter pour que la UserBox ne se déplace pas sur cette autre feuille? Merci
Bonjour Seb, tout d'abord bravo pour le tuto qui marche très bien. J'ai une petite question sur le bouton macro 'Formulaire' qui lorsque je le déplace sur une feuille blanche, il ouvre effectivement le 'userform' mais ne va chercher aucune information.
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 !
Bonjour, je vous remercie de vos videos qui sont vraiment interessants. j'ai crée un formulaire sur excel en vba sur la base d'un tableau de données mais j'ai trouvé quelques difficultés pour la validation d'une modification des données sachant que l'enregistrement à modifier est basé sur une recherche d'une reference dossier saisie dans un textbox. je vous pris de m'assister afin de dépasser ce problème et me battre avec les autres points. cordialement
Bonjour pouvez vous herberger votre fichier sur internet puis m envoyer le lien de telechargement ou me rejoindre sur skype ( SebUA-cam ) afin de discuter directement. Bonne journée
Bonjour, Merci pour cette vidéo, elle est très claire! Juste une petite question : Pourriez vous m'expliquer la ligne " ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 " ? J'ai bien compris que ça faisait en sorte que ça prenne la dernière ligne de la colonne ( et donc celle non remplie encore) mais pas compris comment cela fonctionnait.
Bonjour ce code te permet de trouver la derniere cellule Non vide. Ensuite nous fesont un +1 pour avoir la suivante qui elle est vide.pensé a vous abonné. Merci
Oui merci j'avais compris ce que ça faisait. Je voulais comprendre ce que signifiait exactement ceci : " Range("A456541").End(xlUp).Row " Merci encore pour la vidéo !
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
Bonjour soukaina, comme ceci je pense: Private Sub UserForm_Initialize() Me.ComboBox1.RowSource ="Feuil2!B2:B5" ( Me.Com.....B2:B5" = 1seul ligne) End sub
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
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
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
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
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"
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
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
Merci pour vos vidéos, j'ai deux questions 1. Je voulais l'adaper à mon programme est ce que ce code peut s'étendre jusqu'à 82 000 lignes 2. J'ai un tableau de 10 colonnes dont 2comboBox independants , je suis bloqué. le voici Code pour le bouton Ajouter : If ComboBox1.Value = "" & ComboBox2.Value = "" Then MsgBox "Veuillez renseigner le champs 'position' " MsgBox "Veuillez renseigner le champs 'nombre de véchicule' " 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) = ComboBox2.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 Cells(ligne, 9) = TextBox7.Value Cells(ligne, 10) = TextBox8.Value Unload UserForm1 UserForm1.Show Else End If End If Code pour le bouton Recherche : If Not ComboBox1.Value = "" & ComboBox2.Value = ""Then Dim no_ligne As Integer ?????????? Else End If Code pour le bouton Modifier : Dim modif As Integer If Not ComboBox1.Value = "" & ComboBox1.Value = "" Then Sheets("Feuil1").Select ????????????? MsgBox ("Modification effectuer") Else MsgBox ("????????????????????????????") Exit Sub End If Unload UserForm1 UserForm1.Show 0
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
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
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
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
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
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
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.
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 ?
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.
salut deb j'ai essayé de refaire un formulaire avec seulement la fonction ajouter grâce à tes conseils et je me retrouve encore avec un remplacement automatique dans la première ligne de mon tableau
Je pense avoir trouvé votre tableau commence en colonne B donc : ceci: ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 et a remplacer par cela : ligne = Sheets("Feuil1").Range("B456541").End(xlUp).Row + 1 Dite moi si sa fonctionne. Jolie fichier en tout cas !
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 ???
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
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
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.
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 ?
bonjour merci enormement pour toutes tes videos, j'ai besoin d'aide je dois faire un tableau qui va servir de liste bibliographique pour mon classe de master, j'ai essayer toute seule mais je suis nule en programmation . don voila je veux realiser un formulair de saisie et faire un code vba pou que a chaque fois que l'un de mes etudiants ajoute un livre/resume ce dernier s'ajoute au tableau
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
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
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.
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
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 ?
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)
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?
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
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.
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.
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 ;)
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.
Bonjour tout fonctionnait jusqu’à que j'enregistre, à la réouverture il m'écrase les nouvelles données sur la ligne1, je n'arrive pas à lui faire prendre une nouvelle ligne. Merci pour la vidéo
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 )
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.
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
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.
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 : SebUA-cam"
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
Merci A vous : bit.ly/2JffGfU
je vous tire chapeau merci beaucoup
Merci restez abonné partager ma chaine a vos amis ☺
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 ?
@@el-hadisahbi4794 Rejoignez moi sur skype : sebyoutube
C'est quoi votre Skype svp ?
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.
Merci
Merci à vous pour votre Tuto , votre explication est très facile et facile à saisir , vous méritez nos respect
Merci pour ce commentaire
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
Bonsoir Je suis content pour vous. MERCI
merci de nous aider en ces temps difficiles
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
Bonsoir
Content que cela vous est plu.
Merci c'est vraiment sympa d'avoir posté cette vidéo explicative et très claire.
Merci pour votre commentaire
@@SebUA-cam00 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 !
@@nass5340 bonjour oui bien sur rejoins moi sur Skype pseudo : sebyouTube
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
je vous tire chapeau merci beaucoup mon ami
@Octaviejade, la vidéo m'a beaucoup aidé dans mes devoirs, je dirai meme qu elle m'a delivré. grand Merci
Merci pour votre commentaire !
Merci beaucoup pour votre aide.
Merci pour ce commentaire
Merci pour les efforts. Explication très claire
Merci
Bonsoir merci pour votre présentation c'est top ! cela m'a éclairé sur certain point
Merci Abonnez vous :)
code parfait et intelligent . bravo
Merci. Chapeau! Peu parlé et mieux dit.
Bonjour Merci pour ce commentaire
Super, simple et le code à dispo.
Bien joué Seb
Merci sa vous fera une tarte a la gomme pour moi, a envoyer via la poste. hihi
C'est parfait Merci pour vos vidéos
Merci pour votre superbe travail !
Merci abonnez vous ;)
C'est fait ! 😊
Merci pour la vidéo ! Sa serait cool que tu explique les lignes de code que tu rentres.. :)
Je trouve votre tutoriel très intéressant. Merci beaucoup! Sauf qu'il y a un problème de son.
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é
#Seb, très bon tuto, on voie tout, la procédure est bien présentée! Merci :)
Merci pour ce commentaire :)
Merci ,cours formidable , chapeau
Merci pour ce commentaire
merci sa fonctionne nickel !!
Super exactement ce que je cherchais dommage que vous ne parliez pas...à plus
Merci
Merci
j'aime le silence de tes vidéos
Ces plus facile de travailler dans le calme. 😋
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!!!
bonjour, sauriez vous m'envoyer votre fichier pour que je puisse y jeter un oeil ? merci
quelle adresse mail?
Héberge ton fichier sur le net et envoi moi le lien de téléchargement ( ex: sur Gigasize.com ces gratuit)
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!!
Cool , Merci bonne continuation a toi aussi
Ps: ( j'ai supprimer le lien de ton fichier )
Merci pour votre aide précieuse !!
Content de vous avoir aider.☺
Bjr monsieur, j'apprécie vraiment votre travail, c'est exceptionnel. J'aimerais juste vous demander qqch au niveau des boutons ajouter, vous avez dit de copier coller les lignes fournies ds le descriptif. Je n'ai pas compris
Bonjour, merci de votre retour. Les lignes de code sont fournies dans le descriptif en dessous de la vidéo.
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
Bonjour, merci pour cette astuce sinon sans faire cela ca ne marche pas :s
Bonjour oui c est plus pratique comme cela. Part contre en declarant directement cela devrait fonctionner aussi. Abonnez vous merci 👍
@@SebUA-cam00 non impossible rentrer directement la plage je ne sais pas pk...
Ah, vous ecrivez bien ex : nomdevotrefeuille!A1:A10
@@SebUA-cam00 oui mais j'ai un msg d erreur... Valeur de propriété non valide...
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
Bonjour pouvez vous m envoyer votre fichier ou une copie modifier si celui ci est confidentiel, je pourrai mieux vous aider en y regardant.
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...:(!
bien sur, rejoignez moi sur skype : sebyoutube
Merci pour la présentation.
Merci
Super vidéo!
merci
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.
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.
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?
Hello, of course, you can add the data to more than one sheet
@@SebUA-cam00 thanks for answering
@@chaimajerbi3580 Join me on skype if necessary, nickname: sebyoutube
Bonjour Seb
J'ai suivi votre tuto que je trouve parfait cela fonctionne sans problème merci.
J'ai l'ai aussi acheté dans l'espoir de trouver les réponses qu'il me manque en vain.
Je suis en train d'adapter votre feuille Excel pour faire une feuille d'inventaire matérielles et je bute sur la fonction Modifier, auriez vous le temps pour m'aider?
Bonsoir, bien sur, grand merci a vous pour votre achat, rejoingnez moi sur skype : SebUA-cam , on finalisera votre projet
Bonjour Seb
Bravo très réactif ! mais dans la tex box je souhaiterai pouvoir écrire plusieurs lignes après ENTER l allez a la ligne du dessous pour écrire de nouveau.
équivalent d'un paragraphe
de pouvoir écrire comme dans ce commentaire
Si c'est possible !
Merci
Bonjour je vous ai fait une nouvelle video :
ua-cam.com/video/EVsjx5-KTEE/v-deo.html
Dite moi si on avance un peu plus dans ce que vous rechercher
Merci
merci ca marche tres bien
Merci
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?
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
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.
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 .....
Bonjour Vous pouvez m'ajouter sur skype : SebUA-cam
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
Bonjour, apparemment sur mac, seul excel 2011 peut créer des Userform. :(
Bonjour. J'ai 77 ans et très heureux d'apprendre le VBA avec vous. J'ai donc suivi vos explications et j'ai créé la UserBox sur une feuille séparée de mon fichier de données. Lorsque j'utilise une des fonctions 'Ajouter, rechercher ou modifier) la UserForm se déplace automatiquement sur la feuille avec mes données. Quel code dois-je ajouter pour que la UserBox ne se déplace pas sur cette autre feuille? Merci
Bonjour rejoignez moi sur skype pour en discuter ( pseudo :sebyoutube )
Bonjour Seb, tout d'abord bravo pour le tuto qui marche très bien. J'ai une petite question sur le bouton macro 'Formulaire' qui lorsque je le déplace sur une feuille blanche, il ouvre effectivement le 'userform' mais ne va chercher aucune information.
Bonsoir, je ne comprend pas cette erreur. pouvez-vous me rejoindre sur Skype Pseudo sebyoutube. Bonne soiree
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 !
Bonjour rejoins moi sur Skype, sebyoutube. On regardera au fichier. Bonne soirée
super merci !
Bonjour, je vous remercie de vos videos qui sont vraiment interessants. j'ai crée un formulaire sur excel en vba sur la base d'un tableau de données mais j'ai trouvé quelques difficultés pour la validation d'une modification des données sachant que l'enregistrement à modifier est basé sur une recherche d'une reference dossier saisie dans un textbox. je vous pris de m'assister afin de dépasser ce problème et me battre avec les autres points.
cordialement
Bonjour pouvez vous herberger votre fichier sur internet puis m envoyer le lien de telechargement ou me rejoindre sur skype ( SebUA-cam ) afin de discuter directement. Bonne journée
bonjour merci pour ce tuto
Bonjour, merci pour ce commentaire, rejoignez moi sur skype si besoin ;)
Bonjour,
Merci pour cette vidéo, elle est très claire!
Juste une petite question :
Pourriez vous m'expliquer la ligne " ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1 " ?
J'ai bien compris que ça faisait en sorte que ça prenne la dernière ligne de la colonne ( et donc celle non remplie encore)
mais pas compris comment cela fonctionnait.
Bonjour ce code te permet de trouver la derniere cellule Non vide. Ensuite nous fesont un +1 pour avoir la suivante qui elle est vide.pensé a vous abonné. Merci
Oui merci j'avais compris ce que ça faisait.
Je voulais comprendre ce que signifiait exactement ceci : " Range("A456541").End(xlUp).Row "
Merci encore pour la vidéo !
@@leolipovac3489 Cela signifie, on part du bas de feuille puis on remonte et trouve la dernier cellule non vide.Abonné vous :)
@@SebUA-cam00 Ok super ! Merci !
Oui bien sûr, je m'étais déjà abonné!
Bonne continuation :)
@@leolipovac3489 Cool merci :)
10/10 Merci
Merci
Merci beaucoup pour tes tutos mais je suis un débutant il y a qqch que je n'ai pas pu c'est où vous avez demandé de coller le descriptif.
Merci beaucoup . Mais que fait si le formulaire doit recharger trois feuille de calcul.
Bonjour, rejoignez moi sur Skype : sebbyoutube
Et je me suis abonné
Merci
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
Bonjour soukaina,
comme ceci je pense:
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource ="Feuil2!B2:B5" ( Me.Com.....B2:B5" = 1seul ligne)
End sub
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
merci seb
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
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
Bonjour, oui réalisable. Rejoignez moi sur skype svp. Pseudo : sebyoutube
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
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"
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
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
merci, c'est super gentil, votre aide m'apportera beaucoup
Re bonjour, je pense avoir trouvé. Pouvez vous télécharger ce fichier est effectuer un test.
.......
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
Pour être plus simple, je veux juste que les critères de ma recherche soient filtrer automatiquement et directement sur mon tableau excel.
Merci Beaucoup !!!
Merci pour ce commentaire. Abonné vous svp :)
Merci pour vos vidéos, j'ai deux questions
1. Je voulais l'adaper à mon programme est ce que ce code peut s'étendre jusqu'à 82 000 lignes
2. J'ai un tableau de 10 colonnes dont 2comboBox independants , je suis bloqué. le voici
Code pour le bouton Ajouter :
If ComboBox1.Value = "" & ComboBox2.Value = "" Then
MsgBox "Veuillez renseigner le champs 'position' "
MsgBox "Veuillez renseigner le champs 'nombre de véchicule' "
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) = ComboBox2.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
Cells(ligne, 9) = TextBox7.Value
Cells(ligne, 10) = TextBox8.Value
Unload UserForm1
UserForm1.Show
Else
End If
End If
Code pour le bouton Recherche :
If Not ComboBox1.Value = "" & ComboBox2.Value = ""Then
Dim no_ligne As Integer
??????????
Else
End If
Code pour le bouton Modifier :
Dim modif As Integer
If Not ComboBox1.Value = "" & ComboBox1.Value = "" Then
Sheets("Feuil1").Select
?????????????
MsgBox ("Modification effectuer")
Else
MsgBox ("????????????????????????????")
Exit Sub
End If
Unload UserForm1
UserForm1.Show 0
Bonjour rejoignez moi sur skype ( sebyoutube ).
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
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
Bonjour sauriez vous me partager votre fichier sur monpartage.fr
#Nicolas RICHARD si tu me lis, envoie moi un commentaire. stp. je n'arrive plus a répondre a tes commentaire précédent
Merci Monsieur.....Tout est bon explique
j ai suivi les étapes mais ça n aboutit pas au résultat attendu
Bonsoir rejoignez moi sur skype : SebUA-cam on pourra regarder a ce qui ne fonctionne pas bien. Bonne journée
@@SebUA-cam00 moi aussi j'ai rencontré l'erreur'9' (l'indice n'appertien pas a cette section dans le bouton ajouter )
@@abdelhacenebourechak6402 Bonjour partagez moi votre fichier svp via mon-partage.fr/ , ces gratuit.
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
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
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
Bonjour, je vous ai fait une video rapidement.
Dite moi si ces ce que vous rechercher.
ua-cam.com/video/M4qGSVhwT9M/v-deo.html
Merci
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
very goooooooooooooooooood
Merci
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
Bonjour, rejoignez moi sur Skype, pseudo sebyouTube. Nous regarderons ensemble à votre fichier
bonjour, merci pour votre aide mais j'aimerais si possible au lieu de de la combbox utiliser une text box?
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.
Merci bcp pour votre aide précieuse
Au plaisir
Le copier coller ajoute le texte au kilomètre sans retour à la ligne. Merci de le mettre en fichier txt
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 ?
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.
salut deb
j'ai essayé de refaire un formulaire avec seulement la fonction ajouter grâce à tes conseils et je me retrouve encore avec un remplacement automatique dans la première ligne de mon tableau
Je pense avoir trouvé votre tableau commence en colonne B donc :
ceci:
ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
et a remplacer par cela :
ligne = Sheets("Feuil1").Range("B456541").End(xlUp).Row + 1
Dite moi si sa fonctionne.
Jolie fichier en tout cas !
Nous pouvons discuter en direct sur Skype si vous le souhaitez : SebUA-cam
( photo identique a celle ci)
Votre soucis est résolut ?
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 ???
BONJOUR !
Pouvez vous mettre votre fichier sur mon-partage.fr (ces gratuit) pour que je puisse y regarder.
MERCI !
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
Bonjour Rejoignez moi sur Skype : sebyoutube
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
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.
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 ?
Bonsoir Rejoignez moi sur skype, nous pourront en discuter directement : sebyoutube
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..
Bonjour, rejoignez moi sur skype : sebyoutube je regarderai a votre fichier
bonjour merci enormement pour toutes tes videos, j'ai besoin d'aide je dois faire un tableau qui va servir de liste bibliographique pour mon classe de master, j'ai essayer toute seule mais je suis nule en programmation . don voila je veux realiser un formulair de saisie et faire un code vba pou que a chaque fois que l'un de mes etudiants ajoute un livre/resume ce dernier s'ajoute au tableau
pourrais-je partager avec vous le fichier et vous me dites ce que je dois faire s'il vous plait et merci
@@jackstevenz2218 bonsoir rejoignez moi sur skype. Pseudo: SebUA-cam
@@jackstevenz2218 Avez vous- reçu ma réponse ?
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
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
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.
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
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 ?
oui tout a fait d'accord
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)
Bonsoir Hugo . Oui voici une adresse toute fraiche : sebyoutubeseb@yahoo.com
Seb j’ai envoyé un mail merci
Ok je vais y regarder
Re. Mail envoyer, regarder le fichier, tester est dite moi si cela fonctionne
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 ?
Bonjour Vous n'avez pas créer de tableau par hasard ?
@@SebUA-cam00 Non non.
@@SebUA-cam00 Non désolé
@@WebizzFly J'ai essayer votre fichier, chaque validation ajoute bien les données ligne par ligne chez moi.
@@SebUA-cam00 Oui car j'ai changé la variable ligne. Essayez de mettre for variable vous verrez ca ne fonctionne pas
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?
Bonjour, il faut bien sûr enregistré le fichier avec macro. Rejoignez moi sur Skype pseudo sebyouTube
Bonjour
J'ai un soucis , avec le bouton modifier, cela me rajoute une ligne au lieu de la modifier ??
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
*tu as cliqué sur quoi pour aller sur visual basic ? Merci*
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.
bonjour - je débute en vba et je ne comprends pas Range("A456541".End(x1Up).Row+1 Merci pour votre réponse
Bonjour, cela signifie : je cherche la dernière cellule non vide de la colonne A.
Bonjour seb, un fichier vba peut il etre transferable et fonctionnel sous google sheet?
Bonjour désoler je ne sais répondre a votre question.Sur certain forum, il est dit que le code VBA et transferable.
Bonsoir, que signifie le « +2 » dans la ligne « no_ligne=ComboBox1.ListIndex +2 »? Merci d’avance c’est un super cours !
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.
Merci à vous Kim VOGEL et à Seb. Grâce à l'explication de la question de Kim, j'ai pu résoudre mon problème.
Bonjour merci pour le fichier. est-ce que vous répondez à des demandes particulière ? Merci
Bonjour bien sûr. Je suis egalement joignable sur skype pseudo : Sebyoutube
Abonnez vous svp ☺
Merci pour le code ajouter j'ai fait la même chose mais on me dit la sélection est Mal faite
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 ;)
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.
@@SebUA-cam00 bjr non rien modifier, juste sur le nom " comte" quand je veux enlever le " é" du prenom francois pour le remplacer par un "ç"
@@corinneandry1849 Bonjour essayer ce fichier, même mots de passe que la dernière fois : liens sup
Merci a vous
merci beaucoup....
Merci a vous
Bonjour tout fonctionnait jusqu’à que j'enregistre, à la réouverture il m'écrase les nouvelles données sur la ligne1, je n'arrive pas à lui faire prendre une nouvelle ligne.
Merci pour la vidéo
Bonjour, rejoignez moi sur Skype : sebyoutube, nous regarderons votre fichier. Bonne soirée
J'ai une question aussi, pourquoi vous faites:
Unload UserForm1
UserForm1.Show
A quoi cela sert de redemarrer l'application, c'est juste embettant ?
Cela me permet de vidé les textboxs et comboboxs.
Pouvez vous me mettre votre fichier sur mon-partage.fr poour que j'y regarde.
@@SebUA-cam00 mon-partage.fr/f/WStLu4No/
Merciii bcpppp
Pas de soucis
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 )
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.
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
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.
c'est fais , dans le code c'est bien clair l'affectation du comboboxe à la zone voulue
Bonsoir , comment je peux vous l'envoyer ?
Ou peut on copier les lignes fournit dans le descriptif? Monter nous avec précision sur image pck on apprend avec vous . svp
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 : SebUA-cam"
Bonjour SEB,
@SebUA-cam00 S'il vous plaît, pouvez-vous me dire comment adapter l'affichage de Userform automatiquement à mon écran? Merci d'avance.
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
Bonjour, vous pouvez essayer ceci :
Private Sub UserForm_Initialize()
List = Range("$B$1:$B$50")
ComboBox1.List = List
End Sub
bonjour et merci, je ne suis pas un expert de VBA ou dois-je placer ce code ?
J'ai sélectionner la combobox et attribué le code il prend bien les selections mais supprime la ligne d'intitulé (1)
Possible de m'envoyer votre fichier ? via mon-partage.fr/ peut etre ?
Je vois pour vous envoyer demain si vous êtes d'accord..........encore merci à vous
bonjour
bien expliqué. Merci de m'envoyer les commandes VBA pour cet exemple
majid khatiri Bonjour , les codes sont dans la description.