[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
Mimi - 13 avril 2018 à 16:56
A voir également:
- Vba rechercher une valeur dans une colonne
- Vba - recherche cellule contenant valeur - Meilleures réponses
- Vba recherche cellule contenant valeur - Meilleures réponses
- Rechercher ou entrer l'adresse - Guide
- Déplacer une colonne excel - Guide
- Rechercher ou entrer l'adresse 4 - recherche google ✓ - Forum Réseaux sociaux
- Adresse IP locale : comment la trouver facilement - Guide
- Vba dernière colonne non vide ✓ - Forum VB / VBA
6 réponses
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
14 févr. 2008 à 12:39
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
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
4 mars 2017 à 08:56
28 juil. 2017 à 09:00
24 janv. 2018 à 13:36
13 avril 2018 à 16:56