rechercher une valeur dans une plage.

B

Ben

Guest

• 29 Novembre 2002

• #2

Salut Claudy,

Voilà un petit truc, désolé mais j'm bien les For...next!

Sub cherche()
Dim zaza As Integer
zaza = InputBox("Quelle valeur ?")

For i = 3 To 2000

If Cells(i, 28).Value = zaza Then
popo = Cells(i, 29).Value
MsgBox "valeur correspondante = " & popo
End 'ou autre chose...
End If

Next i

MsgBox "valeur invalide"

End Sub

@+, Ben

 

Vote positif 0 Vote négatif

C

claudy

Guest

• 29 Novembre 2002

• #3

Merci ben pour la rapidité,
mais à la ligne
If Cells(i, 28).Value = zaza Then
ça coince: type incompatible :-(
A+
Claudy
(Je suis sur Mac OS X)

 

Vote positif 0 Vote négatif

S

sousou

Guest

• 29 Novembre 2002

• #4

Voici de quoi d'inspirer.
Attention au type de valeur rechercher!

Sub cherche()
Set maplage = ActiveSheet.Range("a1:a10")
mavaleur = InputBox("Entrez la valeur recherchée :")
If mavaleur = "" Then Exit Sub

If IsNumeric(mavaleur) = True Then mavaleur = " " & mavaleur

For Each i In maplage

If IsNumeric(i) = True Then compare = Str(i) Else compare = i

If compare = mavaleur Then
MsgBox i.Offset(0, 1)
flag = flag + 1
End If
Next

If flag = 0 Then
MsgBox ("Aucune valeur")
Else
MsgBox flag & " valeur(s) trouvée(s)"
End If
End Sub

 

Vote positif 0 Vote négatif

C

claudy

Guest

• 29 Novembre 2002

• #5

Merci à vous deux,
la macro de sousou ne bogue pas, mais elle ne trouve rien!, alors que je sui s certain que la valeur introduite est présente dans ma plage
A+

 

Vote positif 0 Vote négatif

B

Ben

Guest

• 29 Novembre 2002

• #6

C quoi les données dans les cellules? parce que si c du texte, change simplement le cells().value en cells().text, ca marchera peut-etre...

 

Vote positif 0 Vote négatif

C

claudy

Guest

• 29 Novembre 2002

• #7

Re...
Ce sont des montants en euro, au format monétaire euro
A+
merci

 

Vote positif 0 Vote négatif

B

Ben

Guest

• 29 Novembre 2002

• #8

ahhh...je viens de relire tes messages et je remarque que tu es sur Mac...le problème vient peut-etre (surement ) de là, et je n'y connais rien en Mac!!

Sinon essaie quand-même de mettre range(cells(i,28),cells(i,28)) = zaza

ou encore cells(i,28) = zaza

si ca marche pas, je ne peux plus rien. Attends l'avis de quelqu'un qui s'y connait en Mc..

@+, Ben

 

Vote positif 0 Vote négatif

C

claudy

Guest

• 29 Novembre 2002

• #9

Rien à faire...
j'ai essayé
Merci Ben...
A+, je recontacte dés que j'ai la soluce.

Y a t il QQ d'autre pour m'aider?????

 

Vote positif 0 Vote négatif

C

claudy

Guest

• 29 Novembre 2002

• #10

re et re...
J'trouvé )
en remplacant integer par string!!!
Question subsidiaire:
Comment déclencher(a partir d'une autre feuille) la recherche dans ma feuille "données", sans activer cette feuille "données"
Encore merci à Ben et Cie
Claudy

 

Vote positif 0 Vote négatif

B

Ben

Guest

• 29 Novembre 2002

• #11

Et....re!

Tu fais un

With sheets("données")

'tu insères ton code avec chaque ordre qui réfère à la feuille qui commence par un point. Exemple : remplace 'If Cells(i, 28).Value = zaza Then' par :

If .Cells(i, 28).Value = zaza Then

'Ca marchera peut-etre...

'et tu finis par :

end with

@+, Ben

 

Vote positif 0 Vote négatif

C

claudy

Guest

• 29 Novembre 2002

• #12

Merci...
ça marche!
Bon Week end
Claudy

 

Vote positif 0 Vote négatif