arpelilo
Messages postés2Date d'inscriptionmardi 29 janvier 2008StatutMembreDernière intervention30 janvier 2008
-
30 janv. 2008 à 12:17
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
30 janv. 2008 à 17:08
Bonjour
Je debute sur VB et je cherche comment creer une cellule de recherche sur une feuille excel.
je voudrais saisir une valeur dans une cellule donnée ( exemple D5)
puis en cliquant sur mon bouton sur lequel j ai affecte ma macro
que la commande soit la suivante
copier la valeur de ma cellule (D5)
et rechercher dans mon tableau si il existe la meme valeur
puis l afficher
a ce jour j en suis la ( 10093 étant la valeur de D5 que je doit pouvoir modifier pour une nouvelle recherche)
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 30/01/2008 par Administrateur
'
'
Range("D5").Select
Selection.Copy
Cells.Find(What:="10093", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub
ou
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 30/01/2008 par Administrateur
'
'
Range("D5").Select
Selection.Copy
Selection.AutoFilter Field:=1, Criteria1:="=10093", Operator:=xlAnd
End Sub
ceci etant dit, vu que tu n'as donné aucune info sur ton tableau on vas supposer qu'il ce
trouve en A1:C20
Option Explicit 'rend la declaration des variables obligatoires (si je puis dire)
Sub RechercheValeur ()
Dim MaValeur As Variant 'variant car je ne sais pas exactement ce que tu as dans tes celules a remplacer par String si c'est du text
Dim MonTableau As Range, AddressMaValeur as String
MaValeur = [D5].Value
Set MonTableau = Range("A1:C20"]
AddressMaValeur = MonTableau.Find(MaValeur, , , , xlByRows, xlPrevious).Address
MsgBox "La valeur recherchée ce trouve en : " & AddressMaValeur
End Sub