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 ?