Comparer en VBA

Le
Luc
Salut!
En vba, quelle est la faon la plus simple et la plus
rapide pour vrifier qu'une valeur entre dans une
inputbox est gale une liste de valeurs ranges en
colonne dans une autre feuille Excel? Cette plage de
donnes de rfrence est variable en taille. Merci!
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-François Aubert
Le #1229328
Salut Luc,

une façon de faire:
la liste est nommée : plg

Sub yy()
Dim rech
On Error Resume Next
rech = [plg].Find(What:=InputBox("", ""), _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:úlse).Row
If Err <> 0 Then
Err = 0: MsgBox "pas trouvé"
Else: MsgBox "trouvé"
End If
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Luc" news:1641d01c41c08$fae4ef00$
Salut!
En vba, quelle est la façon la plus simple et la plus
rapide pour vérifier qu'une valeur entrée dans une
inputbox est égale à une liste de valeurs rangées en
colonne dans une autre feuille Excel? Cette plage de
données de référence est variable en taille. Merci!
isabelle
Le #1229326
bonjour Luc,

voici une possibilité.

LaValeur = Sheets("Feuil1").TextBox1.Value
On Error Resume Next
Set x = Range(Sheets("Feuil2").Range("A:A").Find(What:=LaValeur, _
LookAt:=xlWhole).Address)
If Not IsObject(x) Then MsgBox "non trouver"

isabelle


Salut!
En vba, quelle est la façon la plus simple et la plus
rapide pour vérifier qu'une valeur entrée dans une
inputbox est égale à une liste de valeurs rangées en
colonne dans une autre feuille Excel? Cette plage de
données de référence est variable en taille. Merci!


Publicité
Poster une réponse
Anonyme