cela fonctionne pour des codes à nombre entier (1,2,3,..), j'obtiens toutes les informations sur chaqu'une des textebox, sauf pour les dates , c'est un nombre pas au format date . Mais lorsqu'il s'agit d'utiliser un code Alphanumerique (exemple : 15L) , je n'ai rien dans les textebox. Merci pour votre assistance.

+Sali Hams Bonjour, C'est prévu...

Souvent un pb de format ou de type de données

POur afficher une date dans un formulaire il faut la formater grace à l'instruction FORMAT(MaDate,"DD/MM/YY") Voilà

@@Learnaccess Merci pour la promptitude !

J'ai fait un tuto qui montre comment faire des recherches multi critère dans une Userform - JE vous laisse visionner la vidéo

Oui la recherchev marche sur des chiffres et des lettres (attention : cela sous entend que vous n'ayant pas des homonymes : pas de doublons pour une recherchev) c'est un pb de format (derrière une date se cache un chiffre, il faut juste le formater au format Date)

Ça marchera aussi

MOUSS NAIMANE Oui bien sûr Pas de pb

Voilà le code à mettre dans la textbox : Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ThisWorkbook.FollowHyperlink "mailto:" & Me.TextBox1.Text End Sub

Bonsoir, C'est le principe même de la RechercheV

Je pense que le pb vient du format de données

@@Learnaccess Oui je l'ai pensé mais dans la ligne :" If WorksheetFunction.CountIf(Sheets("Base").Range("A:A"), Me.TextBox1.Name) = 0 Then" est-ce que Name est correct et ensuite dans la ligne :".TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("base").Range("source"), 2, 0)" Que dois-je changer ? et par quoi ? CLng ? Désolé mais je suis un béotien complet en VBA.... Merci d'avance

@@sergepoire4383 Remplacer .name par .value

@@Learnaccess Merci mais j'ai toujours une erreur 13 "incompatibilité de type" Tant pis. Je laisse tomber

Si votre source a été mise en outil de tableau, et que vous avez donner un nom à votre plage. Cette dernière sera dynamique.

Learnaccess merci pour votre réponse je viens de testé mais dèsque je commence à saisir le Numéro à chercher ça me renvoie directement le message qui se trouve dans le MsgBox ???

Oui, envoyez-moi votre fichier via : jeanpaul.bonnetto@gmail.com en expliquant le pb

Pour moi cela ne peut être qu'un pb de syntaxe de votre formulaire. Vérifier chacun des paramètre de votre fonction Vlookup, le pb est là...

Bonjour, Concernant le 1er point : Si vous souhaitre faire afficher les infos d'un client dans des Textbox à partir de la sélection de son nom via une combox box. Pour pouvez utiliser : la recherchev en VBA comme indiquer dans le tuto sinon faite les recerchev dans une feuille excel et aller chercher les infos pour les mettre dans les différentes textbox de votre formulaire Et pout répondre à votre 2nde interrogation : non cela n'est pas possible

@@Learnaccess, merci de votre réponse, mais justement, si je reprends le tuto, mais que j'ai une liste déroulante (celle-ci fonctionne) à la place du numéro que vous saisissez manuellement dans la txtbox, j'ai bien ma liste mais aucune donnée ne remonte dans les autres textbox. Où ai-je bien pu me tromper ? Mon code est identique au vôtre, sauf que j'ai mis me.cbo.Nom à la place.

@@anaischardon1025 Si la rechercheV fonctionne dans la cellule, il n'y a pas de raison que cela ne marche pas en VBA Difficile de voir ou se trouve le pb. Pour moi, c'est juste un pb de syntaxe...

TitoGame Il faut utiliser les filtres avancés Regardez les tutos sur le sujet

@@Learnaccess re bonjour, Du coup j'ai regarder quelques tuto mais j'avoue que j'ai un peu de mal à le faire depuis une textbox... pourrais tu m'aider ?? Merci

TitoGame Il prendre les critères de votre formulaire et les mettre sur une feuille dans la zone de critère du filtre avancée Et ensuite exécuter ce dernier

Problème de syntaxe dans votre code. Vérifier, il doit y avoir une erreur d'ecriture. Sans le fichier, j'aurai du mal à vous dire ou.

Super ! J'ai trouvé, car effectivement ce fut une erreur de syntaxe (difficile avec les espaces, les virgules etc...) la moindre erreur coûte ! Mille merci pour ce formidable tuto. Ne m'oubliai pas pour l'autre, car je n'ai toujours pas votre réponse !! Merci et bonne soirée !

Vérifiez la syntaxe de votre code Il doit y avoir une erreur pour avoir ce type de message

Vous pourrez pas faire de recherchev sur une photo

@@Learnaccess c'est plutot pour faire apparaitre la photo à partir du nom du client

@@boetmariustresorgbagnon217 Visionner le tuto qui montre comment afficher une image via une recherche

IL faut faire une trame de votre attestation dans une feuille Aller chercher les infos dans une base de salarié pour les mettre dans la trame puis archiver et envoyer le tous en PDF par mail.

@@Learnaccess merci beaucoup pour votre interaction

Vérifier votre syntaxe et votre formule. Cela doit marcher

@@Learnaccess je vous mets le code svp, jetez un coup d'oeil car là je craque. la première étape marche : si je tape dans textbox1 une valeur (chaine de caractère qui n'existe pas la colone G de la base, il m'affiche ce client n'est pas dans votre base. Jusque là tout va bien. M&ais dès que je tape un client qui est dedans, il ne me remplit pas les autres automatiquement. De l'aide svp Private Sub TextBox1_AfterUpdate() On Error GoTo 1 If WorksheetFunction.CountIf(Sheets("Base_clients").Range("G:G"), Me.TextBox1.Value) = 0 Then MsgBox "Ce numéro de client n'existe pas encore dans la base. Ajoutez le client !", vbInformation + vbOKOnly, "client non trouvé" End If With Me .txtprenom.Value = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 1, 0) .txtnom = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 2, 0) .txtdate = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 3, 0) .txtlieu = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 4, 0) .txtpays = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 5, 0) .txtnationa = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 6, 0) .txtnum = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 7, 0) .txtadresse = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 8, 0) .txtemail = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("Base_clients").Range("source"), 9, 0) End With 1 End Sub VOICI LE FORMULAIRE TRES SIMPLE

@@moustaphaba9240 Bonjour, Je ne vois pas d'erreur, avez-vous déjà essayer de faire un test dans votre source avec une recherchev dans la feuille. pour savoir si cela fonctionne en normal. Vérifiez vos formats de champs dans votre source : format numérique, texte, date, ... cela peut avoir une incidence. Envoyez moi votre fichier car comme cela j'ai du mal à voir d'ou le pb peut venir. Mon adresse : jeanpaul.bonnetto@gmail.com Bien cordialement

ABDELJELIL ABDELJELIL Certainement un pb de type de donnée Transformer votre code en chaîne de texte et non plus en chiffre

@@Learnaccess J'ai mis toute la colonne de code sous "Format texte". Ça n'a pas changé. Tous les codes de moins de 10 chiffres sont trouvés rapidement, ceux de 10 chiffres commençant par 1. Ça se gâte à partir du seuil deja décrit (2200000000).

Oui car j'ai pris comme référence de base source est une plage nommée dynamique. Pour cela, il faut transformer votre source en Outil de Tableau

Learnaccess merci bien, une autre préoccupation, dans mon tableau j'ai une colonne de date , mais la rechercheV me renvoie dans mon formulaire un nombre au lieu d'une date. Pourquoi ça ? Et quel est la solution ? Merci.

@@ismobamba6145 Normal, il faut formater ce champ dans le formulaire afin qu'il affiche une date . Regardez le tuto sur le formatage des champs d'un formulaire. format(Me.txtDate, "DD/MM/YYYY")

@@Learnaccess voici mon code : .TxtDate = Application.WorksheetFunction.VLookup(CLng(Me.TxtMatricule), Sheets("LISTING").Range("Tsource"), 8, 0) montrez moi la synthaxe a faire svp, ou je dois placer " format(Me.txtDate, "DD/MM/YYYY")" Merci

@@ismobamba6145 format(me.TxtDate, "DD/MM/YYYY")= Application.WorksheetFunction.VLookup(CLng(Me.TxtMatricule), Sheets("LISTING").Range("Tsource"), 8, 0)

popol05000 Vérifier votre formule Je pense que c’est juste un problème de syntaxe Avez vous vérifier avec la formule en français pour savoir si cela marche ?

@@Learnaccess J'ai passé des heures dessus !!!! j'ai cherché sur le net ... rien je suis pas un grand expert je suis un débutant (de 50 ans)

@@popol05000 Avez vous vérifier le format de votre valeur cherchée. Il suffit que celle de votre formulaire ne soit pas du même format pour que la RechercheV ne fonctionne pas.

@@Learnaccess j'ai passé au au peigne fin !!! je tiens à vous remercier , c'est super agréable de se savoir lu

@@Learnaccess je peux vous envoyer le fichier ?

Avez-vous déjà fait un test en manuel avec la fonction RechercheV() pour voir si cela fonctionne. Si oui; alors cela doit marcher aussi en VBA. Vérifier

@@Learnaccess j'ai fat textuellement le même code que le votre mais ça ne marche pas . De quel types doivent etre chaque colone de mon tableau ? le type de mon ID? aussi quand je lance le formulaire , jai pas la main (le focus) dans le textbox ID. rien ne passe vraiment, comment devaraient etre mes données dans la base? merci de me repondre

Learnaccess j'ai un message d'erreur 1004 : impossible de lire la propriété VLookup de la classe WoksheetFunction. Je suis perdu , aider moi svp.

@@ismobamba6145 Normalement cela doit marcher. Vous etes bien en version PC et non MAC A part une erreur de syntaxe, cela doit marcher

Learnaccess comment et où se fait le Typage?

Je ne comprend pas pourquoi vous transformer une TextboxNom en chiffre en mettant un CLNG Si votre textbox est du texte, laissez la comme cela....

@@Learnaccess Bonjour, Merci pour votre retour rapide. J'ai bien enlevé le CLNG, par contre j'ai toujours une erreur et je n'arrive pas à trouver la solution. Lorsque je saisi un nom que je souhaite rechercher, visiblement il est trouvé et dans la TxtPrénom il m'affiche le nom de la colonne...

@@thierrypeyret993 Dans ce cas c'est votre formule Vlookup qui est mal faite.

On peut faire une rechercheV à partir d'un champ de type texte. Il faut juste "typer" la variable en String dans ce cas.

Bonjour je ne comprends pas ce qu'il faut que je rajoute , je débute. Ma recherche est un chiffre qi peut contenir une lettre. pourriez vous me donner un exemple de variable a écrire.

vous pouvez détailler svp, je ne comprend pas.merci d'avance

Ismo Bamba Envoyez moi votre fichier

Learnaccess je vous ai envoyé mon fichier. Merci bien.

@@Learnaccess je vous ai envoyer mon fichier hier Dimanche Merci bien.

Oui c'est possible Mais pas avec RechercheV Il faudra utiliser une façon de faire vos recherche. Textbox avec listbox. Ça va être le sujet de mes prochains tutos Vba

Ah Bien merci. Quelle diligence. J'attendrai donc avec patience. Encore merci à vous.

Bonjour, Je suis également intéressé à regarder ce tuto. Est ce que vous pouvez me donner le lien svp ? Je voudrais avoir la possibilité de chercher des données dans une base, mais aussi de pouvoir les modifier. est ce que c'est possible avec la méthode listBox ? Merci d'avance

Normal : tous ce qui s’affiche dans un userform est au format texte De ce fait une date s’affichera en chiffre

@@Learnaccess on ne peut donc pas avoir la date qui s'affiche?

C'est le problème des Userform. Il faut changer et spécifier les formats de tous vos champs. J'ai fait un tuto sur le sujet. Mais pour une date dans une textBox avec l'instruction cdate cdate(Me.txtchamp.value)

svp monsieur dans votre exemple comment rectifier ça ......????

@@Learnaccess où trouver le tuto pour le pb de date dans userformmerci de votre retour

@@gilbertduport7273 Voici un lien kzfaq.info/get/bejne/aNeHddeAxKq-iKc.html

Vérifiez votre syntaxe Sinon faite un test avec la formule sans vba Si cela marche avec la formule ça doit marcher en vba

qualité des enceintes / du casque.

Vérifier votre syntaxe. Il se peut qu'un objet ou variable soit mal notifié

voila mon code Private Sub CommandButton1_Click() Unload Me End Sub Private Sub TextBox1_AfterUpdate() If WorksheetFunction.CountIf(Sheets("BASE").Range("A:A"), Me.TextBox1.Value) = 0 Then MsgBox "ce CINE n'existe pas,veuillez resaisir un nouveau CIN", vbInformation + vbOKOnly, "fonctionaire non trouvé" End If With Me .TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BASE").Range("A1:I5"), 2, 0) .TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BASE").Range("A1:I5"), 3, 0) .TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BASE").Range("A1:I5"), 4, 0) .TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BASE").Range("A1:I5"), 5, 0) .TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BASE").Range("A1:I5"), 6, 0) .TextBox7 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Sheets("BASE").Range("A1:I5"), 7, 0) End With End Sub

Je ne vois d'erreur dans ce code. Soit l'erreur vient de votre feuille ou format de vos données. Mais sans votre fichier, il me sera difficile de vous dire ou se trouve l'erreur;

j ai envoyer mon fichier a votre boite gmail

C'est le format de données qui doit poser pb. Si la date saisie par le formulaire n'a pas été formater en date, elle se trouve au format texte dans votre table. Du coup la rechercheV ne saura pas la trouver. Reformer vos données à l'identique et cela devrait remarcher.

Votre code doit fonctionner, je ne vois pas d'erreur. Vérifier vos plages de données et contre valeur cherchée. Avez-vous fait déjà un test en manuel avec la fonction recherchev en français. Car si cela marche en vrai cela doit marcher aussi e nVBA

@@Learnaccess toujours le mémé problème, je ne comprends rien cela dépasse mes compétences, j'ai besoin d'aide