macro recherche

[hamza00]

Bonjour à tous,

j'ai la macro suivante qui marche parfaitement et qui permet de faire des recherches, mais je voudrais inclure même les chiffres tels que 10,121212

Sub Rectangleàcoinsarrondis1_Cliquer()

Dim rngTrouve As Range
Dim strChaine As String

strChaine = InputBox("Nom à rechercher :")
Set rngTrouve = ActiveSheet.Columns().Cells.Find(what:=strChaine)

If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
Cells.Find(what:=strChaine).Activate
End If

Set rngTrouve = Nothing
End Sub

Merci pour votre aide

 

[BOISGONTIER]

Re : macro recherche

Bonjour,

    x = InputBox("Valeur recherchée")
    If IsNumeric(x) Then x = CDbl(x)
    Cells.Find(What:=x).Activate

JB
Formation Excel VBA JB

 

[hamza00]

Re : macro recherche

J'ai remplacé

strChaine = InputBox("Nom à rechercher :")
Set rngTrouve = ActiveSheet.Columns().Cells.Find(what:=strChaine)

par ce que vous m'aviez suggérer,après débogage

==>

Cells.Find(What:=x).Activate

devient en jaune

 

[kjin]

Re : macro recherche

bonjour,
Remplacé certe mais comment ?

Sub Rectangleàcoinsarrondis1_Cliquer()
Dim rngTrouve As Range
Dim strChaine [COLOR="Blue"]As Variant
[/COLOR]
strChaine = InputBox("Nom à rechercher :")
[COLOR="Blue"]If IsNumeric(strChaine) Then strChaine = CDbl(strChaine)[/COLOR]
Set rngTrouve = ActiveSheet.Cells.Find(what:=strChaine)

If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
rngTrouve.Activate
End If

End Sub

A+
kjin

 

[hamza00]

Re : macro recherche

merci beaucoup