macro recherche Résolu

Question

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

lermite222 · Answer

Bonjour,
Changer la déclaration de ta variable.
Dim strChaine As Variant
A+

mizou00 · Answer

Merci pour ta réponse mais c'est toujours pareil

Il m'affiche Le message Pas trouvé

lermite222 · Answer

Pourtant j'ai tester avec Variant et ça fonctionnait. 
Quel est le format de la cellule qui contient 10,1212 ? 
EDIT : je viens de retester et même avec String ça fonctionne !!
Voir format cellule ?
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

mizou00 · Answer

je l'ai encore testé ce matin ca ne marche pas
ci-joint mon fichier 



https://www.cjoint.com/?ippjCX1VPR

Patrice33740 · Answer

Bonjour,

Normalement cela devrait fonctionner.

Pour chercher un nombre tu dois taper 10.1212 (avec le point et pas la virgule),
ou plutôt un nombre qui se trouve dans la feuille car 10.1212 n'y est pas, c'est donc normal de pas le trouver !

cordialement

mizou00 · Answer

ah oui merci beaucoup j'utilisai la virgule et ca ne marchai pas !

merci a tous pour votre aide

Macro recherche

6 réponses

Discussions similaires

Newsletters