XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON

[Usine à gaz]

Bonjour à toutes et à tous de bon matin 🙂

recherche supprimer les espaces '"si valeur cherchée est numérique" : je n'arrive pas à trouver le bon code Grrr !!!

Code de Recherche

Sub Rechercher_youky()
    'ValDef = Range("K1")
    nom = Application.InputBox("Saisir texte/chiffre(s) à trouver :", "Rechercher", Default:=ValDef)
    If VarType(nom) = vbBoolean Then 'Touche Annuler
        nom = CStr(nom)
        [A1].Select
        Exit Sub
    End If
    If nom = "" Then
        Application.EnableEvents = False
        MsgBox ("Faudrait p'être saisir le(s) texte/chiffre(s) à trouver !")
        [A1].Select
        Application.EnableEvents = True
        Exit Sub
    End If
    Application.EnableEvents = False
    q = ActiveSheet.Index
 
    For q = q To ActiveSheet.Index + Sheets.Count - 1
    K = (q - 1) Mod (Sheets.Count) + 1
        With Intersect(Sheets(K).UsedRange, Sheets(K).Rows("1:" & Rows.Count))
        On Error Resume Next
            Application.ScreenUpdating = False
            Set C = .Find(nom, LookAt:=xlPart)   'LookAt:=xlpart dans cellule - LookAt:=xlWhole) 'cellule entière
      
            If Not C Is Nothing Then
                firstAddress = C.Address
                Do
                On Error Resume Next
 
                Sheets(K).Select
                C.Activate
                Application.ScreenUpdating = True
                ActiveWindow.ScrollRow = Selection.Row
                  
            Rep = MsgBox("A trouver : " & nom & Chr(10) & Chr(10) & "- OK dans  " & ActiveSheet.Name & Chr(10) _
            & "- Colonne " & Split(C.Address, "$")(1) & Chr(10) & "- ligne       " & C.Row & Chr(10) & Chr(10) _
            & "Continuer la recherche ?", 4 + 32, "Résultat")
            Cells(ActiveCell.Row, 1).Select
                  
                If Rep = vbNo Then
                    Application.EnableEvents = True
                    Exit Sub
                End If
  
        Application.ScreenUpdating = True
        Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> firstAddress
        End If
        End With
    Next q
 
            MsgBox "Ben NON : y'a pas ou y'a plus !"
                Application.EnableEvents = False
                [A1].Select
                Application.EnableEvents = True
End Sub

Contexte
Dans mon téléphone Ringover, le n° s'affiche comme ceci "33 0 00 00 00 01"
Dans mon fichier de travail, il est comme ceci "33000000001" (cf cellule B6 du fichier joint)

Quand j'ai besoin de coller un n° dans ma recherche je vais le copier sur mon Ringover et j'ai donc ceci "33 0 00 00 00 01" à coller dans ma recherche

Evidemment, il n'est pas trouvé alors qu'il est en B6 mais sans les espaces.

Ma question
Comment coder pour, s'il s'agit d'un nombre à coller que les espaces soient supprimés ?

Auriez-vous le bon code ?
En cas, pour tests, je joins un petit fichier...
Grand merci à toutes et à tous 🙂
Je continue mes recherches...
🙂

 

[mapomme]

Bonjour @Usine à gaz 🙂,

ajouter une instruction avant la ligne :

For q = q To ActiveSheet.Index + Sheets.Count - 1

pour donner ceci :

   nom = Replace(Replace(nom, Chr(160), ""), " ", "")
   For q = q To ActiveSheet.Index + Sheets.Count - 1

 

[Usine à gaz]

Bjr mapomme 🙂

Merci à toi encore une fois 🙂
ça fonctionne parfaitement, super, je vais gagner du temps !

J'aurais une petite demande complémentaire si c'est pas trop compliqué à faire :

Est-il possible d'avoir "direct" le n° sans les espaces à l'affichage ?
Cela me permettrait de voir directement ce que je recherche et aussi si c'est un texte.
🙂

 

[mapomme]

Re,

Est-il possible d'avoir "direct" le n° sans les espaces à l'affichage ?

Je ne suis pas un spécialiste du presse-papier 🙁...

J'ai tenté quelque chose. Il faut copier soit du texte soit une cellule puis lancer la macro.
La boite de dialogue ne devrait plus avoir d'espace (et pas de + ou -) si le texte copié est un nombre.

A tester...

 

[Usine à gaz]

Re Ma

🙂

Pas tout compris car :
1 - à partir de mon téléphone (softphone sur mon ordi), je copie le N° qui a des espaces qui me gênent,
2 - clic sur le bouton de recherche,
3 - je le colle dans la chti-p'tite lunette (de plus en plus petite le calva aidant 😛😇🤪)
et voila ce qui apparait :

C'est exactement mon souhait car j'aime bien voir avant le clic sur ok, voir ce que je recherche.
Tu as exhaucé mon souhait = Tu es ma féfée

😉😛
Tout petit bémol :
ça ne fonctionne pas si je colle du texte.
Mais bon, 90 % des recherches sont des nombres...
C'est vrai que ce serait super complet. Mais déjà, c'est super bien.

Je remets en pièce joint ta V2 et une note pour tests si tu veux y jeter encore un pépin... de pomme bien sûr 😇.
🙂

 

[mapomme]

3 - je le colle dans la chti-p'tite lunette

Essaye et dis moi si ça fonctionne avec ton matos ?
1) copier ce que tu veux voir apparaitre (avec ou sans espace) dans la boite de dialogue Recherche
2) cliquer sur le bouton recherche
3) ce qui est dans le presse-papier devrait être automatiquement collé dans la boite de dialogue sans avoir besoin de le coller

ça ne fonctionne pas si je colle du texte.

Non, tu avais précisé que cela devait être fait pour les numériques pas pour du texte

 

[Usine à gaz]

Essaye et dis moi si ça fonctionne avec ton matos ?
1) copier ce que tu veux voir apparaitre (avec ou sans espace) dans la boite de dialogue Recherche
2) cliquer sur le bouton recherche
3) ce qui est dans le presse-papier devrait être automatiquement collé dans la boite de dialogue sans avoir besoin de le coller

Non, tu avais précisé que cela devait être fait pour les numériques pas pour du texte

Oui c'est vrai, alors c'est parfait.
Je vais voir pour les textes 🙂

 

[Usine à gaz]

Bonjour mapomme 🙂, Bonjour à toutes et à tous 🙂

Encore merci à toi et...
Encore grâce à toi :
Voilà qui est fait...
Voire fichier joint,
🙂