Recherche en Userform
Fermé
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
-
12 août 2013 à 07:37
f894009 Messages postés 17198 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 juillet 2024 - 19 août 2013 à 10:20
f894009 Messages postés 17198 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 juillet 2024 - 19 août 2013 à 10:20
A voir également:
- Recherche en Userform
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche musique - Guide
- Recherche adresse - Guide
- Google recherche par image - Guide
- Recherche privée - Guide
36 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
12 août 2013 à 08:59
12 août 2013 à 08:59
Bonjour,
Tu peux utiliser la méthode WorksheetFunction.VLookup qui est l'équivalent de RECHERCHEV avec VBA.
A+
Tu peux utiliser la méthode WorksheetFunction.VLookup qui est l'équivalent de RECHERCHEV avec VBA.
A+
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
Modifié par f894009 le 12/08/2013 à 09:50
Modifié par f894009 le 12/08/2013 à 09:50
Bonjour a vous deux,
un exemple avec le methode range.find de l'aide excel:
https://www.cjoint.com/c/CHmjEej0gMP
exemple avec Vlookup:
https://www.cjoint.com/c/CHmjXMSxNNe
Bonne suite
un exemple avec le methode range.find de l'aide excel:
https://www.cjoint.com/c/CHmjEej0gMP
exemple avec Vlookup:
https://www.cjoint.com/c/CHmjXMSxNNe
Bonne suite
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
12 août 2013 à 10:27
12 août 2013 à 10:27
Re,
Bonjour Gyrus et f894009,
Je suis désolé, je viens d'essayer les 2 formes les 2 me donnent :
ERREUR EXECUTION: 380
Impossible de définir la propriété RowSource.Valeur de propriété non valide.
Je pense que c'est une incompatibilité avec MAC.
Merci pour une autre solution
@+
Amicalement
Noel
Bonjour Gyrus et f894009,
Je suis désolé, je viens d'essayer les 2 formes les 2 me donnent :
ERREUR EXECUTION: 380
Impossible de définir la propriété RowSource.Valeur de propriété non valide.
Je pense que c'est une incompatibilité avec MAC.
Merci pour une autre solution
@+
Amicalement
Noel
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
12 août 2013 à 11:16
12 août 2013 à 11:16
Re,
remplissage combobox par additem:
https://www.cjoint.com/c/CHmlp38qlxs
A+
remplissage combobox par additem:
https://www.cjoint.com/c/CHmlp38qlxs
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
13 août 2013 à 06:11
13 août 2013 à 06:11
Bonjour à tous,
Bonjour f894009,
J'ai essayé le projet cela fonctionne , mais en l'adaptant au mien il me laisse le message du MsgBox
Voici mon code vois si tout est parfait et signales moi d'une quelconque erreur:
Private Sub ListeArt_Change() 'ListeArt étant mon combobox
On Error Resume Next
'adaptez le format de la reference
x = WorksheetFunction.VLookup(CDbl(ListeArt), Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
If x <> "" Then
IntArtStc = x 'IntArtStc c'est le libéllé de l'article
Else
IntArtStc = ""
MsgBox ("Pas trouvé " & ListeArt & " dans la liste!!!!!!")
End If
End Sub
Merci de ton aide
@+
Amicalement
Noel
Bonjour f894009,
J'ai essayé le projet cela fonctionne , mais en l'adaptant au mien il me laisse le message du MsgBox
Voici mon code vois si tout est parfait et signales moi d'une quelconque erreur:
Private Sub ListeArt_Change() 'ListeArt étant mon combobox
On Error Resume Next
'adaptez le format de la reference
x = WorksheetFunction.VLookup(CDbl(ListeArt), Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
If x <> "" Then
IntArtStc = x 'IntArtStc c'est le libéllé de l'article
Else
IntArtStc = ""
MsgBox ("Pas trouvé " & ListeArt & " dans la liste!!!!!!")
End If
End Sub
Merci de ton aide
@+
Amicalement
Noel
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
13 août 2013 à 07:40
13 août 2013 à 07:40
Bonjour,
vos references sont numeriques ou alphanumeriques ???
vos references sont numeriques ou alphanumeriques ???
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
13 août 2013 à 08:31
13 août 2013 à 08:31
Re,
Elles sont alphanumériques
La cellule de mon tableur est en standard.
Merci
@+
Amicalement
Noel
Elles sont alphanumériques
La cellule de mon tableur est en standard.
Merci
@+
Amicalement
Noel
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
13 août 2013 à 10:38
13 août 2013 à 10:38
Re,
remplacez:
CDbl(ListeArt)
par
ListeArt
A+
remplacez:
CDbl(ListeArt)
par
ListeArt
A+
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
13 août 2013 à 12:32
13 août 2013 à 12:32
re,
Après avoir supprimer cdbl devant ListeArt
x = WorksheetFunction.VLookup ListeArt Worksheets("références").Range("A4:B" & derlig), 2)
il me donne : erreur de compilation attendu : fin d'instruction
Je pense qu'il me manque quelque chose.
Si tu peux rectifie cette ligne de code pour moi STP
Merci beaucoup
@+
Amicalement
Noel
Après avoir supprimer cdbl devant ListeArt
x = WorksheetFunction.VLookup ListeArt Worksheets("références").Range("A4:B" & derlig), 2)
il me donne : erreur de compilation attendu : fin d'instruction
Je pense qu'il me manque quelque chose.
Si tu peux rectifie cette ligne de code pour moi STP
Merci beaucoup
@+
Amicalement
Noel
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
13 août 2013 à 18:21
13 août 2013 à 18:21
Re,
x = WorksheetFunction.VLookup ListeArt Worksheets("références").Range("A4:B" & derlig), 2) portnawak!!!
avant:
x = WorksheetFunction.VLookup(CDbl(ListeArt), Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
apres:
x = WorksheetFunction.VLookup(ListeArt, Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
A+
x = WorksheetFunction.VLookup ListeArt Worksheets("références").Range("A4:B" & derlig), 2) portnawak!!!
avant:
x = WorksheetFunction.VLookup(CDbl(ListeArt), Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
apres:
x = WorksheetFunction.VLookup(ListeArt, Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
A+
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
14 août 2013 à 08:00
14 août 2013 à 08:00
Bonjour à tous,
Bonjour f894009, et foo,
Même en changeant ce bout de code cela me donne toujours le même résultat.
Foo tu me demandes de joindre le projet mais il fait plus de 4M° qui plu est il n'y a que ce code de recherche qui ne fonctionne pas.
Merci beaucoup de votre compréhension et de votre aide
@+
Amicalement
Noel
Bonjour f894009, et foo,
Même en changeant ce bout de code cela me donne toujours le même résultat.
Foo tu me demandes de joindre le projet mais il fait plus de 4M° qui plu est il n'y a que ce code de recherche qui ne fonctionne pas.
Merci beaucoup de votre compréhension et de votre aide
@+
Amicalement
Noel
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
14 août 2013 à 09:03
14 août 2013 à 09:03
Re,
Je crois avoir trouvé le pourquoi.
Je pense que dans ma colonne "Références, il faut obligatoirement que ça commence par une lettre non par un chiffre.
f894009 pourras-tu me dire pourquoi?
Merci de ton aide
@+
Amicalement
Noel
Je crois avoir trouvé le pourquoi.
Je pense que dans ma colonne "Références, il faut obligatoirement que ça commence par une lettre non par un chiffre.
f894009 pourras-tu me dire pourquoi?
Merci de ton aide
@+
Amicalement
Noel
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
14 août 2013 à 09:31
14 août 2013 à 09:31
Bonjour,
il faut obligatoirement que ça commence par une lettre non par un chiffre. pas du tout, donnez un exemple de reference svp
A+
il faut obligatoirement que ça commence par une lettre non par un chiffre. pas du tout, donnez un exemple de reference svp
A+
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
14 août 2013 à 09:54
14 août 2013 à 09:54
Re,
Comme je suis en plein programmation j'ai crée des références tel que 111111,22222,88888, etc.
Ces références ne sont pas visibles dans la liste.
@+
Comme je suis en plein programmation j'ai crée des références tel que 111111,22222,88888, etc.
Ces références ne sont pas visibles dans la liste.
@+
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
14 août 2013 à 10:24
14 août 2013 à 10:24
Re,
Actuellement j'ai un USF avec plusieurs textbox que je voudrai inclure dans le système de recherche.
Exp : Je désire que le textbox récupère les données sur la même ligne en colonne 8, ou 9 ou 10 etc.
Là aussi je ne sais pas comment faire.
Si on pouvait m'aider
Merci d'avance
Amicalement
Noel
Actuellement j'ai un USF avec plusieurs textbox que je voudrai inclure dans le système de recherche.
Exp : Je désire que le textbox récupère les données sur la même ligne en colonne 8, ou 9 ou 10 etc.
Là aussi je ne sais pas comment faire.
Si on pouvait m'aider
Merci d'avance
Amicalement
Noel
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
14 août 2013 à 11:05
14 août 2013 à 11:05
Re,
Ces références ne sont pas visibles dans la liste. ?????
Comment remplissez vous votre combobox ????
Comme je suis en plein programmation j'ai crée des références tel que 111111,22222,88888, etc. Ce sont des references NUMERIQUES pas ALPHANUMERIQUES, donc il faut conserver:
x = WorksheetFunction.VLookup(CDbl(ListeArt), Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
parce que la valeur recuperee d'une comboxbox est une chaine de caracteres, ex: "11111" pour votre, cas ce n'est pas un nombre.
Une question: vous avez adapte la plage de recherche ou pas ??????
A+
Ces références ne sont pas visibles dans la liste. ?????
Comment remplissez vous votre combobox ????
Comme je suis en plein programmation j'ai crée des références tel que 111111,22222,88888, etc. Ce sont des references NUMERIQUES pas ALPHANUMERIQUES, donc il faut conserver:
x = WorksheetFunction.VLookup(CDbl(ListeArt), Worksheets("références").Range("A4:B" & derlig), 2) 'références c'est ma feuille
parce que la valeur recuperee d'une comboxbox est une chaine de caracteres, ex: "11111" pour votre, cas ce n'est pas un nombre.
Une question: vous avez adapte la plage de recherche ou pas ??????
A+
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
15 août 2013 à 05:21
15 août 2013 à 05:21
Bonjour à tous,
Bonjour f894009,
Les références que je t'ai donné sont des exemples mais je pense que ce type de numérique ne seront pas des références utilisées. Ceci a été réalisé pour un essai.
Quant à l'adaptation de la plage de recherche, je pense que c'est fait avec Worksheets("références").Range("A4:K" & derlig), 2). Mais actuellement s'arrête à la colonne 2 mais je vais jusqu'à 11 colonnes pour les articles dont je veux pouvoir utiliser pour la gestions de stock.
@+
Amicalement
Noel
Bonjour f894009,
Les références que je t'ai donné sont des exemples mais je pense que ce type de numérique ne seront pas des références utilisées. Ceci a été réalisé pour un essai.
Quant à l'adaptation de la plage de recherche, je pense que c'est fait avec Worksheets("références").Range("A4:K" & derlig), 2). Mais actuellement s'arrête à la colonne 2 mais je vais jusqu'à 11 colonnes pour les articles dont je veux pouvoir utiliser pour la gestions de stock.
@+
Amicalement
Noel
f894009
Messages postés
17198
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 juillet 2024
1 708
15 août 2013 à 09:05
15 août 2013 à 09:05
Bonjour,
Vos references sont dans plusieurs colonnes ?????
A+
Vos references sont dans plusieurs colonnes ?????
A+
cfn3
Messages postés
33
Date d'inscription
vendredi 9 août 2013
Statut
Membre
Dernière intervention
24 avril 2017
15 août 2013 à 09:34
15 août 2013 à 09:34
Re,
Non dans la première colonne de la feuille Références
@+
Amicalement
Noel
Non dans la première colonne de la feuille Références
@+
Amicalement
Noel