Discussion :

[MagalieATF]

Bonjour, je débute dans le langage VBA , j'utilise Excel 97 et essaye de créer une macro qui permet de rechercher des données dans un tableau et les inscrit dans un formulaire UserForm.
Pour cela j'ai essayé d'utiliser la fonction Hlookup, le programme fonctionne partiellement. Vous pourrez ouvrir le fichier joint pour mieux comprendre le problème. (lorsque l'on saisi un poids pour un colis quelconque, les prix sont bien restitués lorsque le poids du colis est compris entre 11 et 99 kg mais lorsque son poids est inférieur, les prix restitués ne sont pas les bons, ils sont pris dans une mauvaise colonne ! je ne comprends pas pourquoi !
Voici le code utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton2_Click()
If UserForm1.TextBox12.Value = "" Then
 MsgBox "Veuillez saisir le poids du colis !", vbOKOnly, "Erreur"
Else
TextBox4 = ""
TextBox6 = ""
TextBox8 = ""
TextBox10 = ""
TextBox14 = ""
'If UserForm1.TextBox12.Value = Feuil2.Cells(Feuil2.Range("c25:cy32").Find(UserForm1.TextBox12).Row, 1) Then
TextBox4 = Application.WorksheetFunction.HLookup(UserForm1.TextBox12, Worksheets(2).Range("c25:cy32"), 3)
TextBox6 = Application.WorksheetFunction.HLookup(UserForm1.TextBox12, Worksheets(2).Range("c25:cy32"), 7)
TextBox8 = Application.WorksheetFunction.HLookup(UserForm1.TextBox12, Worksheets(2).Range("c25:cy32"), 6)
TextBox10 = Application.WorksheetFunction.HLookup(UserForm1.TextBox12, Worksheets(2).Range("c25:cy32"), 4)
TextBox14 = Application.WorksheetFunction.HLookup(UserForm1.TextBox12, Worksheets(2).Range("c25:cy32"), 8)
End If
End Sub

tous vos conseils seront les bienvenus ! merci d'avance à tous ceux qui me répondront.

[Krovax]

Quelques remarques
Utilise les balise code c'est illisible ainsi
Pour savoir comment regarde ici
Edit ton message pour les ajouter (et enlève la couleur)

Ensuite dans le fichier que tu nous donne il n'y a pas le userform on va avoir du mal a t'aider

Personnellement je chercherais plutot a parcourir la ligne avec les différente masse et une fois que tu as la masse recherché tu récupère les valeur de la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim DerniereColonne as integer, i as integer
DerniereColonne = Range("IV1").End(xlToLeft).Column
for i = 3 to DerniereColonne 
    if cells(25,i)=UserForm1.TextBox12.Value then
        TextBox4=cells(27,i)  'pour avoir le prix de sernam express par exemple
        '...
    end if
next i

(c'est quand même plus lisible avec les balise code non?)

[garion28]

et initialiser les textbox a "" est inutile puisque tu les initialise une nouvelle fois juste en dessous

[MagalieATF]

Merci à vous 2 qui m'avez répondu mais étant donné que je suis débutante, je ne comprend malheureusement pas tout ce que vous me dites ! lol j'ai remis le bon fichier avec le userform , avec toutes mes excuses

j'ai essayé d'utilisé les balises codes comme tu m'as dit , mais je ne crois pas que c'est fonctionné ! quant aux masses dont tu me parles pourrais tu m'en expliqué le principe ? Je te remercie

[Krovax]

Topn but c'est de retrouver dans ton tableau la colmonne qui contient les prix pour une certaine masse de coli

Je parcoures ton tableau et dès que la cellule en ligne 25 colonne est la meme que le contenue de la textbox qui visiblement contient la masse du colie tu n'a plus qu'a remplir tes textbox avec les différente valeur de la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(l,c)

corespond a la cellule de la ligne l colonne c

Le code avec des commentaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim DerniereColonne as integer, i as integer
 'déclaration des variable, essentiel quand ton début 
'le mieu étant d'écrire OPTION EXPLICITE dans la première ligne du module
 
DerniereColonne = Range("IV1").End(xlToLeft).Column 'je récupère le numéro de la dernière colonne remplie a la ligne 25
 
for i = 3 to DerniereColonne  'on va faire varier i a chaque boucle de 3 a dernierecolonne
    if cells(25,i)=UserForm1.TextBox12.Value then 'si la cellule de la ligne 25 colonne i est égale au contenu de la textbox12
        TextBox4=cells(27,i)  'on ecrit dans la textbox4 le contenue de la cellule ligne 27 colonne i
        '...  ici c'est a toi de remplir les autres textbox
    end if 'fin si
next i 'i suivant

Je peux difficilement expliquer d'avantage, mais si tu n'as toujours pas compris je vais essayer

[MagalieATF]

Merci pour ton code et ta patience !
je commence a mieux comprendre ton code, seuls quelques éléments me paraissent encore flous :
ce que tu as mis entre parenthèses après Range, à quoi cela correspond ?
Qu'est qu'une boucle de 3
et dans ta première ligne du code, il faut que je remplace i par la lettre correspondant à ma dernière colonne , c'est ça ?

Sinon selon toi la fonction hlookup que j'avais fait ne peut pas fonctionné ?

Je vais devoir y aller , je te remercie pour tes précieux conseils et j'espère te lire prochainement.