Salut!
En vba, quelle est la fa=E7on la plus simple et la plus=20
rapide pour v=E9rifier qu'une valeur entr=E9e dans une=20
inputbox est =E9gale =E0 une liste de valeurs rang=E9es en=20
colonne dans une autre feuille Excel? Cette plage de=20
donn=E9es de r=E9f=E9rence est variable en taille. Merci!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
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" a écrit dans le message de 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!
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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1641d01c41c08$fae4ef00$a601280a@phx.gbl...
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!
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" a écrit dans le message de 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
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!
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!
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!
