ce tuto m'a beaucoup servi dans le montage de mon fichier de travail. MERCI INFINIMENT. cependant j'ai une question svpl : si le ma liste des noms prend sa source dans un tableau structuré, est-il nécessaire de définir une plage dynamique ? Ne peut-on pas définir simplement une Row Source pour ma combobox ?
Salut Mr merci pour la tuto tres intéressante. Une question . Quant à moi.je veut après choisir la preimiere cellule de liste deroulant .je veut que ma dropbox part vers la cellule à droite et non pas vers la cellule suivante du bas . Qui veut dire après finir de filler toutes les cellule de la premiere ligne .automatiquement la dropbox descend vers la cellule de bas. Comment peut on faire ceci .merci de nouveau.
Merci beaucoup pour vos tutos détaillés. Vous avez fais 2 tuto sur les listes déroulantes sans doublons et celles-ci pour les listes déroulantes auto filtrante. Après pas mal de recherche je ne trouve pas comment combiner les 2. c'est a dire une liste déroulante auto filtrante sans doublons et le must serait sans cellule vide. Merci de votre
Merci pour votre commentaire. Je penses les vidéos résument ce que vous aviez dit. Je vais bien lire votre message et vous revenir d'avance OK 👍👍👍 Merci
Bonjour, Malgré une vérif du code, j'ai un petit souci: lorsque je saisi un nom dans la Combobox, il est bien affiché dans la cellule mais après un return, je passe à la cellule suivante et le nom précédent y est toujours affiché?? il faut que je re clique dessus pour éffacer celui-ci??? dans l'attente d'une suggestion de votre part. MERCI
Bonjour, Premierement félicitation pour la leçon. Tres facile a suivre. Petite question.Comment faire si (dans votre exemple) la colone B est fusionné avec la colone C. Merci
@@sebastiengervais2975 éviter les fusions dans des circonstances. Pour leçon quand deux cellules sont fusionnées, elles prennent la référence de la première colonne.
J'ai remarqué qu'en changeant TARGET.COUNT = 2 la combobox reagit correctement, ensuite j'ai un erreur de Value dans l'expression list_noms = application.transpose(ws.range(''B2:B'' & ws.range("B1048576'').end(xlup).row).value) Si trop compliqué, je vais réarranger ma base de donné. Merci
Bonjour vraiment très bien explique j'ai teste le code sur mon fichier ça va bien marche mais pour les cellule fusionne ne marche pas merci de m'explique comment car je doit garder la même mise an page . merci
Bonjour, merci beaucoup c'est excellent !!! Je voudrais une précision , je dois faire une combobox de ce style, que je vous explique je vais avoir une feuille qui s'appellera données ! ensuite j'aurai 12 feuilles qui va correpondre au 12 mois de l'année si je crée une combobox comme vous pour le mois de janvier et qui va allez chercher les données dans la page données, faudra il créer 12 combobox soit une par page ou je pourrai avoir la combobox que je pourrai copier dans les autres onglets ? merci
@@NigerExcelNE , bah oui c'est sûr, c'est pour ça qu'automatiser ou me simplifier la vie serait idéal !!! donc un combo pour toutes les feuilles seraient idéal vous savez s'il existe un code vba permettant de bloquer une date admettons au 31/12/2024 mais sans passer par la date de la barre des tâches du pc, car si quelqu'un modifie la date de la barre des tâches, on pourra y avoir accès alors même que la date est d"passé
Bonjour, très belle vidéo comme toutes les autres, serait-il possible de savoir comment afficher le prix unitaire du produit sélectionné. D'avance merci
@@NigerExcelNE Désolé pour le dérangement, mais je me permets de vous signaler car je me suis avancé un peu trop vite, la ComboBox fonctionnement parfaitement bien mais lorsqu'on protège les cellules qui ne doivent pas être modifier la Combobox se comporte bizarrement, exemple je saisie un produit sur la première ligne que je valide, lorsque je passe sur la second pour choisir un autre produit et que valide la ComboBox de la première ligne affiche la valeur de la seconde mais ne la modifie pas lorsque l'on clique n'importe où dans la feuille. etc... Cela produit-il chez vous?
@@NigerExcelNE Bonjour, je reviens vers vous car j'ai refait à l'identique le process pour créer la comboBox sur une nouvelle feuille et dans un nouveau classeur. En mode non protéger, cela fonctionne parfaitement bien par contre en mode protéger dés que l'on veux déverrouiller les cellules il affiche un message "Erreur d'exécution '6' - Dépassement de capacité et il surligne la première ligne de Private Sub Worksheet_SelectionChange(ByVal Target As Range) soit If Not Intersect(Target, Range("A13:A32")) Is Nothing And Target.Count = 1 Then, y a-t-il un moyen de contourner le problème. D'avance merci
Bonjour, vraiment top votre tuto j'adore!!! Par contre, j'ai une petite question. J'ai fait un autre combobox (comboboxe2) qui reprend les même données mais qui n'est pas sur la même colonne. les deux fonctionne bien indépendamment mais a chaque fois que je clique dessus j'ai aussi le combobox1 qui s'ouvre en parallèle... Avez vous une idée de codage que je pourrais faire afin que se soit que le combobox concerné qui s'ouvre?
Merci beaucoup pour votre audience. Oh désolé ! Comme le code à été modifié, c'est pas trop facile de comprendre le procédé. Mais ce que peut être je peux vous dire, juste que les deux combo sont liés.
@@NigerExcelNE ouais c'est un peu le cas haha mais finalement j'ai réduit à un seul combobox mais sur plusieur colone (A,D,G) mais contre celle qui sont entre deux B,C,E,F sont aussi prise dans le combobox avec la "formule" que j'ai mis : If Not Intersect(Target, Range("A8:G1048576")) Is Nothing And Target.Count = 1 Then est ce qu'il y a une autre façon d'ecrire afin que ça prenne en compte que les colones concernée A,D,G?
Bonjour, j'ai créer un système de recherche pour des tables d'opérations qui sont dans un feuille BD_Tables. J'ai créé des Combobox pour chacunes des disciplines pour choisir le type de l'intervention et ensuite dans une autre cellule , il y a une formule index et equiv pour retrouver la table à utiliser. Tout se passe bien jusque là sauf que lorsque je tape mon texte dans la première combobox. Nickel. Par contre, je tape dans la deuxième combobox mon texte, et là, la première s'ouvre....Je voudrais que seul la combobox concernée soient active lorsque je click dans la cellule liée. J'ai cherché beaucoup, mais tout ce que j'ai testé ne fonctionne pas. C'est le dernier truc qui me bloque pour finaliser, et je ne sais plus ou trouver ma solution. J'ai essayé de coder comme dans ce tuto, mais cela ne fonctionne pas. Merci d'avance,
bonjour merci pour cette vidéo j'ai suivie a la lettre la programmation mais en dernier lieu j'ai une erreur d'exécution ' 13' si tu as une solution merci
Bonjour et merci pour votre Vidéo très bien expliqué. j'essaye de retranscrire votre code dans une combobox qui est dans une Userform mais cela ne fonctionne pas. est-il possible de le faire? Merci pour votre réponse
Gros merci pour cette astuce.. Pourquoi lorsque sa change de cellule, moi sa garde le text entré dans la cellule avant. Également, le text est extremement gros dans ma cellule lorsque je l'écris, a un point tel que j'arrive pas à le lire au complet.
y a aucun moyen pour rajouter la recherche avec des étoiles ou bien juste avec des espaces ? j'ai 4000 articles dans ma liste source. et j'aimerai avoir une facilité pour une recherche exacte des articles désiré ? SVP aidez moi
Bonjour, Je vous remercie pour la qualité de cette vidéo. Cependant, je suis confrontée à un problème de saisie d’une valeur qui n.existe pas dans la liste déroulante. Ex: j’ai commencé à saisir les première lettres mais elles n.existent pas dans la liste déroulante, j’ai appuyer sur Entré et la valeur est inscrite dans la cellule. Je voudrais bloquer cette saisie en mettant un message « Attention cette valeur n’existe pas » ou du moins il n’inscrit rien dans la cellule. Pourriez-vous svp m’aider? Je vous remercie pour votre retour.
Bonjour désolé pour le retard de réponse. Vous pourrez ouvrir l'onglet suivant et remplir les champs des différents messages d'erreur. Toujours dans la validation des données
Merci beaucoup ca marche très bien! Par contre si j'ai une seconde combobox a mettre sur une colonne a coté de la premiere... Comment cela se passe dans le code, puis-je faire un copier coller? Exemple : Combobox1 en E4 = saisie du client (entreprise) ComboxBox2 en G4 = saisie du contact du client J'ai copié ce code pour la seconde combobox et ai modifié les variables mais j'ai une erreur de type "Nom ambigu détecté : Worksheet_SelectionChange"... Normal je l'ai deux fois... Comment puis faire? Merci beaucoup
S'il-vous-plaît. J'aimerai aussi ajouter le filtre avec les étoile (*) Afin qu'il sélectionne plusieurs articles contenant des combinaisons de lettre spécifique
@@NigerExcelNE d'accord mais quoi mettre s'il-vous-plaît mdr ?? J'ai mis exactement tout comme sur la vidéo ( Liste déroulante auto filtrante et dynamique ) S'il-vous-plaît 🙏
Merci pour la vidéo. Cependant, lorsqu’on commence à saisir un début de mot, des mots qui ne commencent pas par la même lettre mais qui contienne les lettres saisies s’affichent. Ex: si on saisie "ad " on devrait avoir que des mots qui commencent exclusivement par "ad" qui s’affichent tels que adam, administratif, advenir... et non adam, badly(qui contient "ad" mais ne commencant pas par ad, ne devrait pas s’afficher)
Bonjour et merci. Pour votre remarque. Mais évidemment qu'ici nous voudrions afficher les mots qui contiennent pas qui commencent par. Merci pour votre audience
merci pour votre vidéo ! Tout marche sauf une chose incompréhensible : après avoir saisi une valeur dans la combo box, si je retourne dessus, ma valeur disparait au profit du chiffre 15. J'ai essayé dans un classeur vierge, et c'est la même chose... Une idée de ce qui coince ? le problème apparait lorsque je rentre la ligne de code qui permet de laisser la valeur apparente dans la combo box après saisie : ActiveCell.Value = Me.ComboBox1.Value
Bonjour, Je continu de chercher de bonnes routines pour mon besoin spécifique mais là je bloque car j'ai 3 modules de codes qui fonctionnent indépendamment mais je n'ai pas les compétences pour qu'ils soient fonctionnels dans la même feuille. Je joint le code complet en espérant que vous puissiez me proposer une solution . Voici les 3 routines dont votre module ci-dessus: Option Explicit Dim i As Integer Option Compare Text Dim ws As Worksheet, list_Noms 'création Liste déroulante avec Combobox pour recherche Noms dans base Private Sub Combobox1_Change() If Me.ComboBox1 "" And IsError(Application.Match(Me.ComboBox1, list_Noms, 0)) Then Me.ComboBox1.List = Filter(list_Noms, Me.ComboBox1.Text, True, vbTextCompare) Me.ComboBox1.DropDown End If ActiveCell.Value = Me.ComboBox1.Value End Sub Private Sub Combobox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ActiveCell.Offset(1).Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("E3:E1003")) Is Nothing And Target.Count = 1 Then Set ws = Sheets("base") list_Noms = Application.Transpose(ws.Range("A3:A" & ws.Range("A1048576").End(xlUp).Row).Value) Me.ComboBox1.List = list_Noms Me.ComboBox1.Top = Target.Top Me.ComboBox1.Left = Target.Left Me.ComboBox1.Width = Target.Width Me.ComboBox1.Height = Target.Height Me.ComboBox1.Value = Target.Value Me.ComboBox1.Visible = True Me.ComboBox1.Activate Else Me.ComboBox1.Visible = False End If End Sub 'Recherche dans base "recherchev" Vlookup à partir de la liste déroulante ci-dessus!! Private Sub Worksheet_change(ByVal Target As Range) If Not Intersect(Target, Columns(5)) Is Nothing Then For i = 7 To 20 If Target.Value = vbEmpty Then Cells(Target.Row, i).ClearContents End If Cells(Target.Row, 7) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 2, 0) Cells(Target.Row, 8) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 3, 0) Cells(Target.Row, 9) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 6, 0) Cells(Target.Row, 11) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 8, 0) Cells(Target.Row, 12) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 9, 0) Cells(Target.Row, 13) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 11, 0) Next i
End If End Sub '- - - - - - - - - - - 'affiche H de passage : dernier module qui fonctionnait seul avant les évolutions souhaitées ci-dessus et que je retrouve dans plusieurs feuilles. Private Sub Worksheet_change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [a3:a1100]) Is Nothing Then Target(1, 3) = Now End If 'Contrôle de doublon If Flag Then Exit Sub If Not Application.Intersect(Target, Columns("a")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Application.CountIf(Range("a:a"), Target) > 1 Then Flag = True MsgBox ("Ce code existe déjà !") Target.ClearContents Exit Sub Flag = False End If End If
@@NigerExcelNE Bonjour, J'ai avancé sur mon problème et maintenant 2 routines fonctionnent et j'ai mis à jour les onglets concernant les scan et les infos. Il reste par contre à remplacer les fonctions "RechercheV" de la feuil1 par la fameuse routine qui me pose problème car je pense qu'elle fait également appel à "Private Sub Worksheet_change...." mais je ne sais comment résoudre ce dernier point. Routine en cause: 'Recherche dans base "recherchev" Vlookup Private Sub Worksheet_change(ByVal Target As Range) If Not Intersect(Target, Columns(5)) Is Nothing Then For i = 7 To 20 If Target.Value = vbEmpty Then Cells(Target.Row, i).ClearContents End If Cells(Target.Row, 7) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 2, 0) Cells(Target.Row, 8) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 3, 0) Cells(Target.Row, 9) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 5, 0) Cells(Target.Row, 11) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 6, 0) Cells(Target.Row, 12) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 7, 0) Cells(Target.Row, 19) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 9, 0) Next i
End If End Sub J'ai enlevé les protections des feuilles pour que vous ayez accès Puis j'ai réalisé les saisies pour tester les routines et fonctions. Ci-joint le lien mis à jour pour le fichier: 1drv.ms/x/s!ArCtdjJPArMGgb1XVH7QsmdMbvRkuQ?e=sQFpNA Bon W.E en espérant une solution de votre part
Bonjour Merci pour votre Video !! j'ai un problème lorsque j'execute votr code sur mon pc au niveau de cette ligne : Me.ComboBox1.list = Filter(list_Noms, Me.ComboBox1.list, True, vbTextCompare) cette ligne me donne une erreur de type 13 lorsque que je veux saisir des lettre dans ma plage de donnée cela me renvoie automatiquement à cette erreur !
@sinalydembele7442 Bonjour mon frère. Peut être que je me souviens plus de cette erreur dont vous parlez. Je vais sur vos messages et vous répondre en conséquence ok
Simplement génial, grand merci pour ce tuto qui a répondu à grand nombre de mes préoccupation.
J'ai récemment découvert votre chaîne.
Je tiens à vous féliciter pour ces vidéos.
Vous faites preuve d'une excellente pédagogie
Merci beaucoup pour votre audience.
Excellent très bien expliqué. Et cela m'a aidé pour résoudre un point bloquant dans mes taches
this is the best tutorial !
Très génial ! Merci pour vos publications qui nous aident énormément de !
Tout simplement magnifique !!!!🤩🤩🤩
Merci cher professeur pour ce magistral cours de VBA
Merci vraiment le maestro du VBA EXCEL
encore merci
Trés bon travail , je vous souhaite une trés bonne continuation
Très bon tuto et je l'ai mis en application car celà répondait exactement à mon besoin.
Très bonne épisode, nous attendons d'autres
Inchaalah. Abonnez vous si ce n'est déjà Fait pour ne rater aucune de nos vidéos. Merci
Tout simplement merci
Tu es le boss !!
ce tuto m'a beaucoup servi dans le montage de mon fichier de travail. MERCI INFINIMENT. cependant j'ai une question svpl : si le ma liste des noms prend sa source dans un tableau structuré, est-il nécessaire de définir une plage dynamique ? Ne peut-on pas définir simplement une Row Source pour ma combobox ?
Bonjour
Oui bien-sûr
Salut Mr merci pour la tuto tres intéressante.
Une question .
Quant à moi.je veut après choisir la preimiere cellule de liste deroulant .je veut que ma dropbox part vers la cellule à droite et non pas vers la cellule suivante du bas . Qui veut dire après finir de filler toutes les cellule de la premiere ligne .automatiquement la dropbox descend vers la cellule de bas.
Comment peut on faire ceci .merci de nouveau.
Merci beaucoup pour vos tutos détaillés. Vous avez fais 2 tuto sur les listes déroulantes sans doublons et celles-ci pour les listes déroulantes auto filtrante. Après pas mal de recherche je ne trouve pas comment combiner les 2. c'est a dire une liste déroulante auto filtrante sans doublons et le must serait sans cellule vide. Merci de votre
Merci pour votre commentaire. Je penses les vidéos résument ce que vous aviez dit. Je vais bien lire votre message et vous revenir d'avance OK 👍👍👍
Merci
merci pour cette a présentation
Merci Merci Merci !!!
un grand merci a vous
Superbe vidéo merci,
sur le même principe comment fait-on pour ajouter une seconde combobox?
Génial !
Merci
Bonjour. Peut-on créer un combobox dynamique auto-filtrant? Merci
MERCI PROF...
Bonjour,
C'est génial, vraiment génial. Je souhaiterais vous écrire en inbox pour programmer des formations. Merci de me répondre
Merci pour votre audience. Écrivez moi sur ce numéro WhatsApp. +22796289934.
merci bien pou ce cours
Bonjour,
Malgré une vérif du code, j'ai un petit souci: lorsque je saisi un nom dans la Combobox, il est bien affiché dans la cellule mais après un return, je passe à la cellule suivante et le nom précédent y est toujours affiché?? il faut que je re clique dessus pour éffacer celui-ci??? dans l'attente d'une suggestion de votre part. MERCI
Bonjour, Premierement félicitation pour la leçon. Tres facile a suivre. Petite question.Comment faire si (dans votre exemple) la colone B est fusionné avec la colone C. Merci
Bien sure la colone QUANTITÉ est decalé vers la droite
@@sebastiengervais2975 éviter les fusions dans des circonstances.
Pour leçon quand deux cellules sont fusionnées, elles prennent la référence de la première colonne.
J'ai remarqué qu'en changeant TARGET.COUNT = 2 la combobox reagit correctement, ensuite j'ai un erreur de Value dans l'expression list_noms = application.transpose(ws.range(''B2:B'' & ws.range("B1048576'').end(xlup).row).value)
Si trop compliqué, je vais réarranger ma base de donné.
Merci
Bonjour
vraiment très bien explique
j'ai teste le code sur mon fichier ça va bien marche
mais pour les cellule fusionne ne marche pas
merci de m'explique comment car je doit garder la même mise
an page .
merci
Bonjour, merci beaucoup c'est excellent !!!
Je voudrais une précision , je dois faire une combobox de ce style, que je vous explique
je vais avoir une feuille qui s'appellera données ! ensuite j'aurai 12 feuilles qui va correpondre au 12 mois de l'année
si je crée une combobox comme vous pour le mois de janvier et qui va allez chercher les données dans la page données, faudra il créer 12 combobox soit une par page ou je pourrai avoir la combobox que je pourrai copier dans les autres onglets ? merci
Bonjour cher ami. Vous savez en excel, tout es possible. Mais C'est fastidieux si vous créez pour chaque feuille.
@@NigerExcelNE , bah oui c'est sûr, c'est pour ça qu'automatiser ou me simplifier la vie serait idéal !!! donc un combo pour toutes les feuilles seraient idéal
vous savez s'il existe un code vba permettant de bloquer une date admettons au 31/12/2024 mais sans passer par la date de la barre des tâches du pc, car si quelqu'un modifie la date de la barre des tâches, on pourra y avoir accès alors même que la date est d"passé
@@romlef526 oui oui bien-sûr. Bon de toute façon, aucun logiciel, même n'est infaillible 👍👏
@@NigerExcelNE,vous avez bien raison, je cause regzrdera à sa, merci beaucoup cher ami 😊
Merci pour la video
Question supplémentaire:
Comment faire n'avoir dans le menu déroulant que les 1ere lettres des mots
Merci pour votre commentaire. Peut-être c'est de faire une vidéo pour vous expliquer comment
Bonjour, très belle vidéo comme toutes les autres, serait-il possible de savoir comment afficher le prix unitaire du produit sélectionné. D'avance merci
Une rechercheV suffirait pour ça.
@@NigerExcelNE Merci pour votre réponse, je crois que j'ai vu une de vos vidéos qui traite du sujet. Bon courage
Merci infiniment pour vos vidéos et la petite RECHERCHEV fonctionne.
@@NigerExcelNE Désolé pour le dérangement, mais je me permets de vous signaler car je me suis avancé un peu trop vite, la ComboBox fonctionnement parfaitement bien mais lorsqu'on protège les cellules qui ne doivent pas être modifier la Combobox se comporte bizarrement, exemple je saisie un produit sur la première ligne que je valide, lorsque je passe sur la second pour choisir un autre produit et que valide la ComboBox de la première ligne affiche la valeur de la seconde mais ne la modifie pas lorsque l'on clique n'importe où dans la feuille. etc... Cela produit-il chez vous?
@@NigerExcelNE Bonjour, je reviens vers vous car j'ai refait à l'identique le process pour créer la comboBox sur une nouvelle feuille et dans un nouveau classeur. En mode non protéger, cela fonctionne parfaitement bien par contre en mode protéger dés que l'on veux déverrouiller les cellules il affiche un message "Erreur d'exécution '6' - Dépassement de capacité et il surligne la première ligne de Private Sub Worksheet_SelectionChange(ByVal Target As Range) soit If Not Intersect(Target, Range("A13:A32")) Is Nothing And Target.Count = 1 Then, y a-t-il un moyen de contourner le problème. D'avance merci
Bonjour, vraiment top votre tuto j'adore!!!
Par contre, j'ai une petite question. J'ai fait un autre combobox (comboboxe2) qui reprend les même données mais qui n'est pas sur la même colonne. les deux fonctionne bien indépendamment mais a chaque fois que je clique dessus j'ai aussi le combobox1 qui s'ouvre en parallèle... Avez vous une idée de codage que je pourrais faire afin que se soit que le combobox concerné qui s'ouvre?
Merci beaucoup pour votre audience. Oh désolé ! Comme le code à été modifié, c'est pas trop facile de comprendre le procédé. Mais ce que peut être je peux vous dire, juste que les deux combo sont liés.
@@NigerExcelNE d'accord donc pas trop possible de les délier? dommage
@@Moustsacha Sisi mais si vous avez aucune notion en VBA. Ce sera pas facile
@@NigerExcelNE ouais c'est un peu le cas haha mais finalement j'ai réduit à un seul combobox mais sur plusieur colone (A,D,G) mais contre celle qui sont entre deux B,C,E,F sont aussi prise dans le combobox avec la "formule" que j'ai mis : If Not Intersect(Target, Range("A8:G1048576")) Is Nothing And Target.Count = 1 Then
est ce qu'il y a une autre façon d'ecrire afin que ça prenne en compte que les colones concernée A,D,G?
Tu as pris une énorme plage. Attention à ne pas ralentir ton code.
Bonjour,
j'ai créer un système de recherche pour des tables d'opérations qui sont dans un feuille BD_Tables.
J'ai créé des Combobox pour chacunes des disciplines pour choisir le type de l'intervention et ensuite dans une autre cellule , il y a une formule index et equiv pour retrouver la table à utiliser.
Tout se passe bien jusque là sauf que lorsque je tape mon texte dans la première combobox. Nickel. Par contre, je tape dans la deuxième combobox mon texte, et là, la première s'ouvre....Je voudrais que seul la combobox concernée soient active lorsque je click dans la cellule liée. J'ai cherché beaucoup, mais tout ce que j'ai testé ne fonctionne pas. C'est le dernier truc qui me bloque pour finaliser, et je ne sais plus ou trouver ma solution.
J'ai essayé de coder comme dans ce tuto, mais cela ne fonctionne pas.
Merci d'avance,
bonjour
merci pour cette vidéo j'ai suivie a la lettre la programmation mais en dernier lieu j'ai une erreur d'exécution ' 13'
si tu as une solution merci
Bonjour et merci pour votre Vidéo très bien expliqué. j'essaye de retranscrire votre code dans une combobox qui est dans une Userform mais cela ne fonctionne pas. est-il possible de le faire? Merci pour votre réponse
Bonjour et merci aussi pour votre audience
Bien évidemment. Juste adapter le code .
Gros merci pour cette astuce.. Pourquoi lorsque sa change de cellule, moi sa garde le text entré dans la cellule avant. Également, le text est extremement gros dans ma cellule lorsque je l'écris, a un point tel que j'arrive pas à le lire au complet.
y a aucun moyen pour rajouter la recherche avec des étoiles ou bien juste avec des espaces ?
j'ai 4000 articles dans ma liste source. et j'aimerai avoir une facilité pour une recherche exacte des articles désiré ?
SVP aidez moi
Bonjour
Il y a toujours un moyen en VBA.
@@NigerExcelNE vous pouvez pas m'aidez s'il-vous-plaît ???
Bonjour,
Je vous remercie pour la qualité de cette vidéo.
Cependant, je suis confrontée à un problème de saisie d’une valeur qui n.existe pas dans la liste déroulante.
Ex: j’ai commencé à saisir les première lettres mais elles n.existent pas dans la liste déroulante, j’ai appuyer sur Entré et la valeur est inscrite dans la cellule. Je voudrais bloquer cette saisie en mettant un message « Attention cette valeur n’existe pas » ou du moins il n’inscrit rien dans la cellule.
Pourriez-vous svp m’aider?
Je vous remercie pour votre retour.
Bonjour désolé pour le retard de réponse. Vous pourrez ouvrir l'onglet suivant et remplir les champs des différents messages d'erreur. Toujours dans la validation des données
@@NigerExcelNE Bonjour,
Je suis désolée, mais je ne comprends pas votre réponse. quel onglet Suivant?
Je vous remercie
Merci beaucoup ca marche très bien!
Par contre si j'ai une seconde combobox a mettre sur une colonne a coté de la premiere... Comment cela se passe dans le code, puis-je faire un copier coller?
Exemple : Combobox1 en E4 = saisie du client (entreprise)
ComboxBox2 en G4 = saisie du contact du client
J'ai copié ce code pour la seconde combobox et ai modifié les variables mais j'ai une erreur de type "Nom ambigu détecté : Worksheet_SelectionChange"... Normal je l'ai deux fois... Comment puis faire?
Merci beaucoup
Essayer juste de recadrer les codes en fonction de la nouvelle colonne
S'il-vous-plaît. J'aimerai aussi ajouter le filtre avec les étoile (*)
Afin qu'il sélectionne plusieurs articles contenant des combinaisons de lettre spécifique
Il va falloir modifier le code source.
@@NigerExcelNE d'accord mais quoi mettre s'il-vous-plaît mdr ??
J'ai mis exactement tout comme sur la vidéo ( Liste déroulante auto filtrante et dynamique )
S'il-vous-plaît 🙏
Ah c'est compliqué déjà sans le fichier. J'en ferai peut être une vidéo pour vous
@@NigerExcelNE ça serait vraiment super.
Et je peux vous envoyez le fichier sur lequel je travaille si vous voulez bien 🥹❤️
Merci pour la vidéo.
Cependant, lorsqu’on commence à saisir un début de mot, des mots qui ne commencent pas par la même lettre mais qui contienne les lettres saisies s’affichent. Ex: si on saisie "ad " on devrait avoir que des mots qui commencent exclusivement par "ad" qui s’affichent tels que adam, administratif, advenir... et non adam, badly(qui contient "ad" mais ne commencant pas par ad, ne devrait pas s’afficher)
Bonjour et merci. Pour votre remarque. Mais évidemment qu'ici nous voudrions afficher les mots qui contiennent pas qui commencent par. Merci pour votre audience
@@NigerExcelNE Ah je vois.
Dans mon cas , pouvez vous m’expliquer comment devrais je faire ?
@@yannickbahonto1587 peut-être à partir de là, mais c'est avec Power Query dans excel
J'ai suivi toute les étapes.et ça ne marche pas.
À chaque étape mon combobox ne prend jamais en compte les indications vba.
Bonjour. Essayer de faire un balayage de tous le code ok
Le problème peut t'il venir du fait de cellules fusionner?
Encore merci pour vos tuto
Oui peut être bien
Merci monsieur, pouvez-vous nous donner le code ? Merci d'avance
Merci beaucoup Prof
Mais comment j'ai fait la facture étape par étape
Silvoplai
Suis ce lien . ça va sûrement t'aider ruclips.net/video/KK_eLs1lOzo/видео.html
@@NigerExcelNE
Merci beaucoup
Mon Chanel et mon professeur
si seulment celà pouvais'appliquer auuserform ça serait bien
bonjour,si c'est possible de m'envoyer le code source merci
SVP COMMENT FAIRE UN SUIVI REGLEMENT FACTURE AUTOMATQUE .
Désolé pour le retard. Suivez ce lien svp
ruclips.net/video/Pdu3VEyBNGA/видео.html
merci pour votre vidéo ! Tout marche sauf une chose incompréhensible : après avoir saisi une valeur dans la combo box, si je retourne dessus, ma valeur disparait au profit du chiffre 15. J'ai essayé dans un classeur vierge, et c'est la même chose... Une idée de ce qui coince ? le problème apparait lorsque je rentre la ligne de code qui permet de laisser la valeur apparente dans la combo box après saisie : ActiveCell.Value = Me.ComboBox1.Value
Bonjour,
Je continu de chercher de bonnes routines pour mon besoin spécifique mais là je bloque car j'ai 3 modules de codes qui fonctionnent indépendamment mais je n'ai pas les compétences pour qu'ils soient fonctionnels dans la même feuille. Je joint le code complet en espérant que vous puissiez me proposer une solution .
Voici les 3 routines dont votre module ci-dessus:
Option Explicit
Dim i As Integer
Option Compare Text
Dim ws As Worksheet, list_Noms
'création Liste déroulante avec Combobox pour recherche Noms dans base
Private Sub Combobox1_Change()
If Me.ComboBox1 "" And IsError(Application.Match(Me.ComboBox1, list_Noms, 0)) Then
Me.ComboBox1.List = Filter(list_Noms, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
End If
ActiveCell.Value = Me.ComboBox1.Value
End Sub
Private Sub Combobox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E3:E1003")) Is Nothing And Target.Count = 1 Then
Set ws = Sheets("base")
list_Noms = Application.Transpose(ws.Range("A3:A" & ws.Range("A1048576").End(xlUp).Row).Value)
Me.ComboBox1.List = list_Noms
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Height = Target.Height
Me.ComboBox1.Value = Target.Value
Me.ComboBox1.Visible = True
Me.ComboBox1.Activate
Else
Me.ComboBox1.Visible = False
End If
End Sub
'Recherche dans base "recherchev" Vlookup à partir de la liste déroulante ci-dessus!!
Private Sub Worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Columns(5)) Is Nothing Then
For i = 7 To 20
If Target.Value = vbEmpty Then
Cells(Target.Row, i).ClearContents
End If
Cells(Target.Row, 7) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 2, 0)
Cells(Target.Row, 8) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 3, 0)
Cells(Target.Row, 9) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 6, 0)
Cells(Target.Row, 11) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 8, 0)
Cells(Target.Row, 12) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 9, 0)
Cells(Target.Row, 13) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 11, 0)
Next i
End If
End Sub
'- - - - - - - - - - -
'affiche H de passage : dernier module qui fonctionnait seul avant les évolutions souhaitées ci-dessus et que je retrouve dans plusieurs feuilles.
Private Sub Worksheet_change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [a3:a1100]) Is Nothing Then
Target(1, 3) = Now
End If
'Contrôle de doublon
If Flag Then Exit Sub
If Not Application.Intersect(Target, Columns("a")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Application.CountIf(Range("a:a"), Target) > 1 Then
Flag = True
MsgBox ("Ce code existe déjà !")
Target.ClearContents
Exit Sub
Flag = False
End If
End If
End Sub
Merci pour votre commentaire. Vous savez c'est pas trop facile pour nous de vérifier tous ces bouts de codes en commentaire et sans le fichier.
@@NigerExcelNE
Bonjour,
J'ai avancé sur mon problème et maintenant 2 routines fonctionnent et j'ai mis à jour les onglets concernant les scan et les infos.
Il reste par contre à remplacer les fonctions "RechercheV" de la feuil1 par la fameuse routine qui me pose problème car je pense qu'elle fait également appel à "Private Sub Worksheet_change...." mais je ne sais comment résoudre ce dernier point.
Routine en cause:
'Recherche dans base "recherchev" Vlookup
Private Sub Worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Columns(5)) Is Nothing Then
For i = 7 To 20
If Target.Value = vbEmpty Then
Cells(Target.Row, i).ClearContents
End If
Cells(Target.Row, 7) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 2, 0)
Cells(Target.Row, 8) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 3, 0)
Cells(Target.Row, 9) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 5, 0)
Cells(Target.Row, 11) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 6, 0)
Cells(Target.Row, 12) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 7, 0)
Cells(Target.Row, 19) = Application.WorksheetFunction.VLookup(Target.Value, Feuil10.[A:K], 9, 0)
Next i
End If
End Sub
J'ai enlevé les protections des feuilles pour que vous ayez accès
Puis j'ai réalisé les saisies pour tester les routines et fonctions.
Ci-joint le lien mis à jour pour le fichier:
1drv.ms/x/s!ArCtdjJPArMGgb1XVH7QsmdMbvRkuQ?e=sQFpNA
Bon W.E en espérant une solution de votre part
Bonjour Merci pour votre Video !!
j'ai un problème lorsque j'execute votr code sur mon pc au niveau de cette ligne :
Me.ComboBox1.list = Filter(list_Noms, Me.ComboBox1.list, True, vbTextCompare)
cette ligne me donne une erreur de type 13
lorsque que je veux saisir des lettre dans ma plage de donnée cela me renvoie automatiquement à cette erreur !
Bonjour avez vous trouvé une solution à ce problème, j’ai le même en ce moment
J'en ferai une autre vidéo des que possible pour vous donner la solution
@@NigerExcelNE Bonjour,
Vous avez pu faire une vidéo pour corriger cet erreur ? si oui le lien s'il vous plait
@sinalydembele7442 Bonjour mon frère. Peut être que je me souviens plus de cette erreur dont vous parlez. Je vais sur vos messages et vous répondre en conséquence ok
@@NigerExcelNE Merci d'avance
merci
Merci