Macro recherche
Résolu
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
Merci pour votre aide
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
6 réponses
-
ContributeurBonjour,
Changer la déclaration de ta variable.Dim strChaine As Variant
A+ -
Merci pour ta réponse mais c'est toujours pareil
Il m'affiche Le message Pas trouvé -
ContributeurPourtant 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) -
je l'ai encore testé ce matin ca ne marche pas
ci-joint mon fichier
https://www.cjoint.com/?ippjCX1VPR -
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 -
ah oui merci beaucoup j'utilisai la virgule et ca ne marchai pas !
merci a tous pour votre aide
