Discussion :

[nikoumouk]

Bonjour à toutes et à tous !
J'ai commencé la programmation via Visual Basic il y a une semaine, pour l'instant je m'en suis sorti (notamment grâce aux messages de ce forum) mais désormais je bute !
Je vais tenter de vous expliquer simplement mon problème :
J'ai créé des boîtes de dialogues,
Les valeurs saisies dans ses boîtes de dialogues permettent de retrouver des valeurs exactes dans un tableau Excel
Le problème est que si j'utilise cette formule :

Code :

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

Set findcell1 = Rows("12").Find(value1, LookIn:=xlValues)

Jusque là tout marche très bien !
Maintenant j'aimerais que lorsque l'on saisi des valeurs qui ne sont pas dans mon tableau, le programme trouve la valeur supérieure (présente dans mon tableau) la plus proche de la valeur saisie !
Voilà j'espère avoir été assez clair !
En attendant avec impatience un petit coup de pouce,
Bonne journée

[EngueEngue]

Code :

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

1
2
3
4
5
If Not findcell1 Is Nothing then
'--
Else
'Tu recherches ta valeur proche si c'est du numérique c'est simple... Pour du texte c'est plus galère mais aussi jouable
end if

[nikoumouk]

Tout d'abord merci de ta réponse si rapide !
Mais tout çà j'ai déjà fait et ça marche sans problèmes,
C'est juste que je ne parviens pas à trouver le bon code pour sélectionner une valeur qui ne figure pas dans mon tableau.
si je reprends cet exemple :

Code :

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

Set findcell1 = Rows("12").Find(valeursaisie1, LookIn:=xlValues)

ensuite tout marche bien si l'utilisateur saisit une valeur qui est dans mon tableau, j'ai aussi programmé pour qu'il y est un message d'erreur si la valeur saisie ne figure pas dans mon tableau, j'ai bloqué la saisie de lettres etc.
Maintenant je veux que quand l'utilisateur rentre une valeur qui n'est pas dans mon tableau le programme trouve la valeur supérieure la plus proche de la valeur saisie et c'est ça que je n'arrive pas à programmer !

[EngueEngue]

Code :

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

1
2
3
4
5
If Not findcell1 Is Nothing then
'--
Else
'Pour chaque valeur du tableau tu compares ta data à celle du tableau et tu prends la difference positive la plus petite.. Ou tu différencies ton tableau et tu prends le min des valeurs positives.. ou... 
end if

Tu as les capacités de coder cela

[nikoumouk]

J'avais pensé à cette solution en effet mais ça me paraissait un peu lourd !
je pensais qu'une formule plus simple pourrait m'aider à résoudre mon problème en fait !!

[EngueEngue]

Un vlookup ?

[nikoumouk]

Du genre vlookup(find(If(min etc. ?

[EngueEngue]

Si ton tableau est trié:

Code :

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

worksheetfunction.vlookup(Valeurrecherche,tableau,1,true)

va te donner la valeur proche, mais je crois qu'elle est inférieure... il suffira de tester et si inférieure, prendre la suivante tant qu'elle est plus petite..

[nikoumouk]

haa c'est plus une réponse comme ça que j'espérais
Merci je vais essayer ça !

Bonjour !
Malheureusement je ne parviens pas a utiliser cette formule,
Deja je dois rechercher mes valeurs dans des colonnes donc Hlookup est plus approprie non ?
Ensuite je rentre en premiere valeur : la valeur saisie par l utilisateur
en deuxieme valeur : la plage de cellule ou sont mes valeurs
et enfin : l indice de ma ligne en question ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim entervalue1 As Boolean, value1 As String
If TextBox1.Value = "" Then
Else
entervalue1 = UserForm5.TextBox1.Value
    If entervalue1 = True Then
    value1 = UserForm5.TextBox1.Value
    Else
    End If
        WorksheetFunction.HLookup(value1, ("E11:AG12"), 2)
        MsgBox "you value is :" & ActiveCell.Value
End If

Mais ca ne marche pas, le programme me demande de mettre un "=" a la fin ..

Quand je lance le programme en fractionne avec F8 la valeur saisie s affiche bien dans value1 donc le probleme vient de la plage ou de l indice ou de la suite !
Je vous remercie tres sincerement pour votre aide !!

[Philippe Tulliez]

Bonjour,

Mais ca ne marche pas, le programme me demande de mettre un "=" a la fin ..

Afin d'éviter aux contributeurs de deviner ou de rechercher dans le code à quelle ligne se produit l'erreur, il serait sympathique sinon plus pratique d'indiquer le n° de ligne où une erreur a été déclenchée.
J'imagine que cela se passe à la ligne 9 qui contient une fonction.
Une fonction renvoie toujours une valeur et cette valeur doit soit être imprimée soit doit renvoyer sa valeur à une variable.
Donc soit

Code :

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

Msgbox WorksheetFunction.HLookup(value1, ("E11:AG12"), 2)

soit

Code :

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

maVariable = WorksheetFunction.HLookup(value1, ("E11:AG12"), 2)

Bien entendu il y a lieur de prévoir la gestion d'une erreur éventuelle renvoyée pas la fonction au cas par exemple où la valeur contenue dans value1 ne serait pas trouvée.

[EngueEngue]

Hlookup: Horizontal look up
V look up, vertical look up

Je ne comprends pas pourquoi tu as deux rows dans ton range...

[mercatog]

Code :

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

MsgBox WorksheetFunction.HLookup(Value1, Feuil1.Range("E11:AG12"), 2)

[nikoumouk]

bonjour merci beaucoup de votre aide !
Grace a vous j ai finalement reussit a parvenir a mes fins avec cette fonction que j ai tiree d excel :

Code :

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

1
2
3
ActiveCell.FormulaR1C1 = "=HLOOKUP(R[1]C,R[10]C[4]:R[11]C[36],2)"
valuefinal = Range("A1").Value
MsgBox "your cable size :" & valuefinal & "mm"

Merci encore,
Cordialement

[EngueEngue]

Valeur proche supérieure ?