Excel VBA Userform form creation (Add, Search, Edit) easily
HTML-код
- Опубликовано: 18 окт 2024
- Feel free to comment, I like, I don't like, ask for tutorial
Learn the basics of Excel: amzn.to/2UYRG6l
Learn macros and vba: amzn.to/2R4dr3n
Link to donate to PayPal:
bit.ly/2R57TFG
You want to obtain the file without following the tutorial:
bit.ly/3bHS8MS
If this link is dead, contact me!
For any personal help: join me on skype: SebRUclips
Code for the Add button:
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
Code for the Search button:
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
TextBox1.Value = Cells(no_ligne, 1).Value
ComboBox1.Value = Cells(no_ligne, 2).Value
TextBox2.Value = Cells(no_ligne, 3).Value
TextBox3.Value = Cells(no_ligne, 4).Value
TextBox4.Value = Cells(no_ligne, 5).Value
TextBox5.Value = Cells(no_ligne, 6).Value
TextBox6.Value = Cells(no_ligne, 7).Value
Else
End If
Code for the Edit button:
Dim modif As Integer
If Not ComboBox1.Value = "" Then
Sheets("Feuil1").Select
modif = ComboBox1.ListIndex + 2
Cells(modif, 1) = TextBox1.Value
Cells(modif, 2) = ComboBox1.Value
Cells(modif, 3) = TextBox2.Value
Cells(modif, 4) = TextBox3.Value
Cells(modif, 5) = TextBox4.Value
Cells(modif, 6) = TextBox5.Value
Cells(modif, 7) = TextBox6.Value
MsgBox ("Modification effectuer")
Else
MsgBox ("Veuillez sélectionné le Nom/Prénom de la personne a modifier")
Exit Sub
End If
Unload UserForm1
UserForm1.Show 0
![ARGENTINA vs. BOLIVIA [6-0] | RESUMEN | ELIMINATORIAS SUDAMERICANAS | FECHA 10](http://i.ytimg.com/vi/C3wPtKNbAOA/mqdefault.jpg)
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 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 à vous pour votre Tuto , votre explication est très facile et facile à saisir , vous méritez nos respect
Merci pour ce commentaire
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
@@SebRUclips00 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
@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 !
Bonsoir merci pour votre présentation c'est top ! cela m'a éclairé sur certain point
Merci Abonnez vous :)
je vous tire chapeau merci beaucoup mon ami
Merci pour les efforts. Explication très claire
Merci
Merci. Chapeau! Peu parlé et mieux dit.
Bonjour Merci pour ce commentaire
Merci beaucoup pour votre aide.
Merci pour ce commentaire
code parfait et intelligent . bravo
Merci pour la vidéo ! Sa serait cool que tu explique les lignes de code que tu rentres.. :)
C'est parfait Merci pour vos vidéos
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
Merci pour votre superbe travail !
Merci abonnez vous ;)
C'est fait ! 😊
#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 !!
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.
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
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 )
Merci pour la présentation.
Merci
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é
Super exactement ce que je cherchais dommage que vous ne parliez pas...à plus
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.
Bonsoir, je ne comprend pas cette erreur. pouvez-vous me rejoindre sur Skype Pseudo sebyoutube. Bonne soiree
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 ca marche tres bien
Merci
Merci
j'aime le silence de tes vidéos
Ces plus facile de travailler dans le calme. 😋
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
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 👍
@@SebRUclips00 non impossible rentrer directement la plage je ne sais pas pk...
Ah, vous ecrivez bien ex : nomdevotrefeuille!A1:A10
@@SebRUclips00 oui mais j'ai un msg d erreur... Valeur de propriété non valide...
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,
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 :)
@@SebRUclips00 Ok super ! Merci !
Oui bien sûr, je m'étais déjà abonné!
Bonne continuation :)
@@leolipovac3489 Cool merci :)
bonjour merci pour ce tuto
Bonjour, merci pour ce commentaire, rejoignez moi sur skype si besoin ;)
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"
super merci !
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.
Super vidéo!
merci
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 : SebRUclips , on finalisera votre projet
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 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, 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 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 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.
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 )
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
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 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
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 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
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
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.
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
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
Merci Beaucoup !!!
Merci pour ce commentaire. Abonné vous svp :)
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 ?
@@SebRUclips00 Non non.
@@SebRUclips00 Non désolé
@@WebizzFly J'ai essayer votre fichier, chaque validation ajoute bien les données ligne par ligne chez moi.
@@SebRUclips00 Oui car j'ai changé la variable ligne. Essayez de mettre for variable vous verrez ca ne fonctionne pas
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
merci seb
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
@@SebRUclips00 thanks for answering
@@chaimajerbi3580 Join me on skype if necessary, nickname: sebyoutube
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 ( SebRUclips ) afin de discuter directement. Bonne journée
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.
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 !
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
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 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 : SebRUclips
Merci beaucoup
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.
@@SebRUclips00 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
*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, quand je copie le code il y a un problème avec .ListIndex (souligné en jaune dans le code sur excel) et l’erreur me dit « membre de méthode ou de données introuvables » pouvez-vous m’aidez ?
Bonjour, excusez moi pour le retard, avec vous encore besoin d'aide ?
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.
@@SebRUclips00 mon-partage.fr/f/WStLu4No/
Bonjour SEB,
@SebRUclips00 S'il vous plaît, pouvez-vous me dire comment adapter l'affichage de Userform automatiquement à mon écran? Merci d'avance.
10/10 Merci
Merci
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.
Bonjour regardez dans la description de cette vidéo. Cliquez sur les points pour agrandir le descriptif en bas de video
oui je l'ai trouvé. merci bonne vidéo et bonne explication.
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 ☺
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 . Mais que fait si le formulaire doit recharger trois feuille de calcul.
Bonjour, rejoignez moi sur Skype : sebbyoutube
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 ?
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
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
@@SebRUclips00 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.
@@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
@@SebRUclips00 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.
@@logueshnandjy-ramin7302 Cool, je suis content pour vous. n’hésitez pas si d'autre problèmes. Je suis dispo sur skype.
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
Bonsoir bien sur rejoins moi skype Sebyoutube
Bonjour, comment faites vous pour que la saisie descende d'une ligne sur votre tableau ? chacune de mes saisie va au meme endroit que la précédente et la supprime
Bonjour verifié le code il doit y avoir une erreur de saisie de votre part.
Vérifié le +1 Sur cette ligne pour le bouton ajouter je pense : sheet("Feuil1").Range("A456541").End(xlUp).Row + 1
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
bonjour, votre combobox se nomme bien ComboBox1 et non pas ComboBox2 ou ComboBox3 ? rejoignez moi sur skype pseudo : sebyoutube. je regarderai a votre fichier.
@@SebRUclips00
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
@@mullerdominique9898 rejoignez moi sur skype svp : sebyoutube
Merci a vous
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
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.
Rejoignez moi sur skype si vous voulez plus d'aide
Merci Seb auriez vous un tuto a tout hasard car je galère un peu beaucoup merci
@@mlindustrialisationmanosqu7824 Venez sur skype : SebRUclips
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.
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 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 :
ruclips.net/video/EVsjx5-KTEE/видео.html
Dite moi si on avance un peu plus dans ce que vous rechercher
Merci
Bonjour s’il vous plaît je ne trouve ou est ce que on copie les lignes de descriptions en question
Rejoignez moi sur Skype : sebyoutube
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 .
Bonjour quel est le message d'erreur ?
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.
ruclips.net/video/M4qGSVhwT9M/видео.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
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, 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
very goooooooooooooooooood
Merci
Et je me suis abonné
Merci
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
Bonjour si vous avez renomer votre userform en "formulaire" , le code sera formulaire.show, verifier le "name" de votre formulaire.
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.
Rejoignez moi/nous sur Skype ( SebRUclips ) même photo, nous regarderons ensemble a votre fichier, vous pouvez aussi m'envoyer votre fichier pour que j'y regarde.
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
Bonsoir comment s’appelle votre feuille
@@SebRUclips00 Bonsoir,
La feuille s'appelle "Feuil3(Global Royan)
Il vous faut modifier cette ligne Sheets("Feuil3").Select en Sheets("Feuil3(Global Royan)").Select
@@SebRUclips00 Fait, mais toujours le même blocage, ligne surlignée en jaune ...
@@bernarddemont4713 renommer votre feuille sans les ( ..... ) puis changer le code et testez