[vba] recherche d'une valeur EXACTE

Résolu/Fermé
cel92
Messages postés
28
Date d'inscription
mercredi 13 février 2008
Statut
Membre
Dernière intervention
16 décembre 2008
- 13 févr. 2008 à 12:06
 Mimi - 13 avril 2018 à 16:56
Bonjour,

Débutante en vba,
je recherche la valeur "NumUnique" parmi les cellules "B39 à B200" grâce au code :
"
Set CelluleTrouvee = Range("B39:B200").Find(NumUnique, LookIn:=xlValues)
"

PROBLEME : ma macro ne me retourne pas les cellules de valeur EGALE à la valeur NumUnique recherchée, mais les cellules CONTENANT NumUnique.
Par exemple, si je recherche NumUnique = 2
le résultat est CelluleTrouvee.Value = 52

Connaissez vous une autre fonction me retournant une cellule contenant la valeur exacte recherchée ?
Sinon, auriez-vous un exemple simple permettant de contourner le problème ?

D'avance merci !
Céline

6 réponses

tompols
Messages postés
1219
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
458
14 févr. 2008 à 12:39
Bonjour,

La méthode Find admet un argument facultatif de type variant "Lookat", les valeurs possibles sont xlWhole ou xlPart...
En reprenant ton exemple, ça fait :

Public Sub test()

Dim numéro As Integer
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer

numéro = 8

Set celluletrouvee = Range("A1:A5").Find(numéro, lookat:=xlWhole)

If celluletrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col)
End If

End Sub
53
hich24
Messages postés
1596
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
21 décembre 2020
752
4 mars 2017 à 08:56
merci
0
Merci !
0
Top, merci !
0
Merci ligne de code très utile !
0