Userform: (FIND) recherche de donnée depuis une textbox vers une page source

[Verba_Tim]

Bien le bonjour à tous 🙂

Je me retrouve une fois de plus devant un petit problème ^^
Je suis en train de réaliser une macro qui nécessite un userform. Dans celui-ci j'ai insérer deux jolie textbox qui me permette de renseigner une référence. J'ai réussi à faire en sorte de ne traiter que les valeurs numériques etc. Mais mon problème, c'est que je veux allez cherche dans une feuille annexe la référence en question et en ramener plusieurs valeurs pour les réutiliser.
Petit exemple:

Ref Quantité valeur du 1er valeur du 2eme valeur du 3eme
00-123 2 5 3
00-234 3 1 2 5
00-456 1 6
00-789 3 4 4 5
00-189 2 5 4 5


Je veux entrer la ref dans une textbox, par exemple: 00 234
et avoir en retour les valeurs dans des variable : Q: 3 prem: 1 deux: 2 trois : 5

Ma base de donné est dans une feuille a part (ex: Base_de_donné)

Je n'ai vraiment aucune idée de comment allez à la pêche a l'info depuis un userform...
Help? ^^"

Merci d'avance!!

VB_T

 

[Pierrot93]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Bonjour,

fais peut être une recherche dans l'aide vba sur la méthode "FIND", je pense que c'est par là qu'il faut commencer..

bonne journée
@+

 

[Verba_Tim]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Ok merci du tuyaux ^^ je vais allez voir ^^

bonne journée à toi aussi ^^

 

[Verba_Tim]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Tout de même une petite question ^^'
J'ai structuré mon userform de la manière suivante:

. appel de la box dans un des modules de ma macro
. Traitement des informations saisi dans le module sub _click (feuille rattaché au bouton)

Je dois donc stocké la valeur des textbox dans une variable global pour les utiliser dans mon Find...
Et la j'ai honte... je n'y arrive pas :'(

J'ai fais:

Sub Ok_Click()

Global ref1
Global ref2

''
...
''

ref1 = TextBox1.Value
ref2 = TextBox2.Value

End Sub
et je reçois le message suivant:
"Des constantes, chaînes de longueur fixe, tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membres Public de modules d'objet."

J'ai essayé en private mais c'est le même problème...


Edit:


J'ai aussi essayé ça sans succès...


Public Sub Ok_Click()

''
...
''

Module14.ref_1.Value = TextBox1.Value ' ref_1 et ref_2 étant deux variables créer
Module14.ref_2.Value = TextBox2.Value ' dans mon module d'appel, le module14


End Sub


Edit:

Déclaration avec " Public ref as variant"
ne fonctionne pas non plus...

Je commence à épuiser mes ressources :/

 

[Pierrot93]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Re,

un tout petit fichier en pièce jointe, représentant uniquement le problème posé serait plus facile pour t'aider...

 

[Verba_Tim]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Ok je te transmet un petit fichier test:

 

[Pierrot93]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Re,

pas tout compris... mais pour pouvoir utiliser des variables dans tous ton projet, il faut les déclarer "public" et ce sur les premières lignes d'un module standard(module1 dans ton fichier) :

Public ref_1 As Variant
Public ref_2 As Variant

ensuite dans le module de ton usf, tu peux les utiliser comme ceci :

ref_1 = TextBox1
ref_2 = TextBox2

 

[jpb388]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Bonjour à tous
si j'ai bien compris il s'agit de la portée des variable alors tu mets

Public ref_1 As Variant
Public ref_2 As Variant

tout en haut dans le module avant les subs
a+

pendant que j'écrivais pierrot avait déjà répondu

 

[Verba_Tim]

Re : Userform: recherche de donnée depuis une textbox vers une page source

AH... dit le jeune padawan en découvrant vos réponse... c'est vrai que ça semble logique ^^"
Merci ^^ je test et je confirme ^^

 

[Verba_Tim]

Re : Userform: recherche de donnée depuis une textbox vers une page source

C'est exactement ce que je veux! Merci Pierro95 et Jpb388 ^^
Je m'attèle maintenant à la partie FIND ^^

Encore merci!

Bonne journée ^^

 

[Verba_Tim]

Re : Userform: recherche de donnée depuis une textbox vers une page source

Quelqu'un sait comment fonctionne le FIND?
J'ai regardé dans l'aide excel et j'ai pondu ça:

ref3 = ref_1 & ref_2
Set r = .Find(Page.feuil, Rows("A1:A200"), ref3)
MsgBox (r)

Le problème c'est que le Find ne passe pas... soit disant que mon"." n'est pas a ça place avec un find...

J'ai trouvé une parade éventuel...:

Set c = Workbooks("page").Sheets("feuil").Range("A1:A200").Find(maval, , , xlWhole)

...Qui ne marche pas mieux...

Et pour tout dire je commence à couler 😕

 

[Verba_Tim]

Re : Userform: (FIND) recherche de donnée depuis une textbox vers une page source

Aucun spécialiste du FIND? Mon sauveur n'est pas encore née?? 🙁

 

[Verba_Tim]

Re : Userform: recherche de donnée depuis une textbox vers une page source

J'ai peu être une solution en cours d'optimisation:

Workbooks("Page").Activate
Worksheets("Feuil").Select
 Columns("A:A").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$200").AutoFilter Field:=1, Criteria1:=Mavar
    
'Href = Rows.Select. ... pas encore au point, doit renvoyer le numéro de la ligne!
A = Range("B:" & Href).Value ' stock les valeurs trouvées dans ces cases dans des variables 'associées
B = Range("C:" & Href).Value
C = Range("F:" & Href).Value
D = Range("I:" & Href).Value

 

[Pierrot93]

Re : Userform: (FIND) recherche de donnée depuis une textbox vers une page source

Re,

regarde peut être ceci, à adapter

Dim x As Range
Set x = Workbooks("classeur.xls").Sheets("Feuil1").Range("A1:A100").Find("mavaleur", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox "valeur en trouvée en " & x.Address

A noter, objets "workbook" et "sheet" facultatifs si la méthode "find" doit s'appliquer à la feuille active

 

[Verba_Tim]

Re : Userform: (FIND) recherche de donnée depuis une textbox vers une page source

Trouvé une autre façon entre temps...:

Range("A1").Select
Selection.End(xlDown).Select


Href = ActiveCell.Row
A = Range("B" & Href).Value
B = Range("C" & Href).Value
C = Range("F" & Href).Value
D = Range("I" & Href).Value

ça marche pas mal comme ça...
Je vais quand même essayer ta technique ^^ histoire de ne pas t'avoir re-déranger pour rien ;D