XL 2019 RechercheV VBA

Gogo2

XLDnaute Nouveau
Bonjour,

Je cherche à faire une recherche V à partir d'un userform afin qu'il affiche directement la valeur rechercher lorsque je fais "Entrée".
Le codage comporte "CLNG" qui d'après moi permet de rechercher des valeurs numériques. Or je souhaite effectuer une recherche alphabétique, pourtant en essayant la recherche "STRING", cela ne fonctionne pas.

J'ai joint un fichier simplifié
En vous remerciant
 

Pièces jointes

  • test recherche .xlsm
    20.1 KB · Affichages: 7

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Clng est une fonction de conversion, non pas une fonction de recherche.
String est un type de valeur ou une fonction répétant N fois un caractère
String(3,"A") = "AAA"

Sachant que les valeurs de textBox sont toujours des chaînes de caractères (valeur de type String):
Si TextBox1 = "Toto"
Clng(TextBox1 ) donnera une erreur
Si TextBox1 contient "123"
Clng(TextBox1) donnera 123

Sachant que votre fichier ne comporte qu'un tableau vide, ne comporte pas de feuille 'Base', ni de plage 'Tableau' ....

Cordialement
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Gogo,
Pas tout compris. Pourquoi appelé Nom recherche et chercher dans la colonne A et non C ?

En PJ un essai avec ce que j'ai compris. Avec :
VB:
Private Sub TextBox1_afterupdate()
    On Error Resume Next
    If Application.Match(UserForm1.TextBox1.Value, Sheets("Feuil1").Range("C:C"), 0) = 0 Then
        MsgBox "erreur sur le type du salarié"
    Else
        N = Application.Match(UserForm1.TextBox1.Value, Sheets("Feuil1").Range("C:C"), 0)
        UserForm1.TextBox2 = Cells(N, "B")
    End If
End Sub
 

Pièces jointes

  • test recherche .xlsm
    18.4 KB · Affichages: 6

Gogo2

XLDnaute Nouveau
Bonjour,

Pensez-vous qu'il est possible d'aller plus loin dans cette recherche ? Je m'explique :
A présent, le bouton recherche permet d'obtenir le N° à partir selon le nom saisie dans la feuille1.
Serait-il possible d'afficher la ligne entière si le N° apparait dans la feuille2, feuille3, et ne rien afficher si le N° n'apparait pas dans la feuille4.

Exemple : Je cherche NOM9, il me ferait apparait le N° 99, puis une visualisation de la ligne 10 de la Feuille2, la ligne 9 de la Feuille3 et rien pour la Feuille4...

En vous remerciant
 

Pièces jointes

  • test recherche.xlsm
    22.5 KB · Affichages: 8

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Gogo,
Là, c'est un peu plus compliqué.
Déjà je pense que sur un userform ce n'est pas jouable.
Si vous avez plein de feuilles et plein d' informations, ce ne sera pas lisible.
Un essai en PJ avec une autre stratégie.
Une page "Messages" invisible dans laquelle seront rangées toutes les infos.
( la mise en page est faite pour que les colonnes Informations soient les plus larges possibles.
Trois macros:
RechercheNom Macro de recherche et de remplissage avec les résultats
Retour Pour revenir sur la page de travail habituel
PourTestPageMessagesVisible Comme la page Messages est invisible, permet de la rendre visible pour test.
Faites un retour sur si cela vous convient.
 

Pièces jointes

  • test recherche (V2).xlsm
    32 KB · Affichages: 9

Discussions similaires

Réponses
16
Affichages
1 K

Statistiques des forums

Discussions
312 211
Messages
2 086 296
Membres
103 171
dernier inscrit
clemm