XL 2010 Résolu par Roland et SI : code recherche + format n° tel

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

pour mon boulot, j'ai besoin de faire des recherches dans tout mon classeur.
J'ai d'abord tenté de faire un code, LOL catastrophe je n'y suis pas arrivé.
J'ai donc cherché sur le net et j'ai trouvé 2 codes géniaux qui fonctionnent super dans leur classeur d'origine.
Je remercie au passage les 2 auteurs.
Tout content, j'ai tenté de transférer les macros dans mon classeur et ..... ça coince !!! :(

Malgré mes tentatives, je n'ai pas trouvé ce qui ne va pas.
J'ai encore besoin de votre aide.
Je ne peux pas joindre mon classeur avec toutes ses données et il est très "lourd".
J'ai tenté de faire un classeur pour reproduire les blocages mais je n'ai pas réussi.
je joins les photos qui montrent où ça coince et les 2 classeurs qui fonctionnement parfaitement.
Avec mes remerciements,
Bonne fin de soirée à toutes et à tous,
Amicalement,
Lionel,
 

Pièces jointes

  • Rectangle1.jpg
    Rectangle1.jpg
    101.8 KB · Affichages: 129
  • RechercheMot.jpg
    RechercheMot.jpg
    133.5 KB · Affichages: 86
  • RECHERCHE SUR UN CLASSEUR COMPLET.xls
    49 KB · Affichages: 80
  • RechercheMotDansFeuilles.xls
    38 KB · Affichages: 77

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour DoubleZero,
Bonjour à toutes et à tous,

Miracle, mes bidouillements de profanes ont (presque) fonctionné).

En effet, si j'entre dans la recherche des chiffres ou des mots en minuscules ..... ça marche

Mais ça ne marche plus si il y a une majuscule au début de la saisie.
Apparemment, si la majuscule n'est pas au début mais n'importe où ça marche aussi.

Un dernier coup de main ?
Photo jointe du beug
Avec mes remerciements,
Amicalement,
Lionel,
 

Pièces jointes

  • Recherche.jpg
    Recherche.jpg
    108.4 KB · Affichages: 74

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bonjour,

Je comprends qu'il serait bien d'avoir un fichier test mais je n'arrive pas à reproduire les beugs en fichier test (je vais continuer d'essayer).

En attendant, je vais tenter de faire plus simple.
Excel a une recherche automatique mais j'ai besoin d'un accès direct.

Pour cela, j'ai fait la macro suivante (avec l'enregistreur excel) qui recherche dans toutes les feuilles.
Code:
Sub trouveEtVa()
Application.EnableEvents = False
Application.ScreenUpdating = False
    Cells.Find(What:="33695842338", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Mon souci est que je n'arrive pas à faire en sorte que la boite de dialogue s'ouvre en me laissant le champ de saisie libre.
dans le cas présent, la recherche s'ouvre avec : 33695842338

Si vous pouvez me dire comment modifier, j'abandonne la recherche précédente car trop compliquée pour ma petite tête LOL,
Avec mes remerciements,
 
Dernière édition:

Si...

XLDnaute Barbatruc
salut
Merci DoubleZero d'être encore là.
Maintenant, il bloque plus loin LOL et Grrrrrrrrrrrrrrr :confused::eek::oops:
Comme te l'a dit ;):D, Option Explicit t'oblige à déclarer toutes les variables !
Une variation sur ce thème ...
VB:
Private Sub CommandButton1_Click()
  Dim Sh As Worksheet, Quoi, C As Range, T As String 'obligatoire avec Option Explicit
  Quoi = InputBox("Donnée à rechercher", "Recherche de ...")
  T = "Pas"
  If Quoi = "" Then Exit Sub
  For Each Sh In Worksheets
    Set C = Sh.Cells.Find(Quoi, LookAt:=1, MatchCase:=1)  'voir aide pour la casse
    If Not C Is Nothing Then
      Sh.Activate: C.Select                                                         'pour voir
      If MsgBox("trouvé en " & Sh.Name & "." & vbLf & _
          "Recherche du suivant ?", 4, "Recherche de " & Quoi) = 7 Then
          MsgBox "Recherche arrêtée !", , "Oups": Exit Sub
      End If
      T = "Plus "
    End If
  Next
  If T = "Pas" Then
    MsgBox "Recherche infructueuse !", , "Oups"
  Else
    MsgBox "Recherche terminéee !", , "Eh oui..."
  End If
End Sub
 

Pièces jointes

  • Recherche dans le Classeur(VBA).xlsm
    24.6 KB · Affichages: 51

DoubleZero

XLDnaute Barbatruc
Re-bonjour, bonjour + bise, Si:D:D:D,

...Une variation sur ce thème ...

Bien jolie variation :

upload_2016-11-10_18-49-39.png

A bientôt :):)
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir Si,
Bonsoir à toutes et à tous,
Merci de m'avoir répondu ...... et c'est la solution.
Je dois approfondir les variables car à ce jour, je ne comprends pas trop.
Ton code marche nikel et j'ai pu l'intégrer dans mon classeur.

Un grand merci et un Grand merci à DoubleZero qui m'a tant aidé à comprendre et à avancer.
Je ne renonce pas, je continuerai à chercher pour faire marcher l'autre macro.

Merci à vous tous d'être là et rapides et efficaces.
Bonne fin de journée,
Amicalement,
Lionel,
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour DoubleZero,
Bonjour SI,
Bonjour Hervé62,
Bonjour à toutes et à tous,

Je reviens sur le code de SI qui fonctionne parfaitement.

J'ai une dernière question sur ce sujet (enfin, je pense LOL) :
Nous avons des formatages de saisie quand il s'agit de numéros de téléphone (j'ai un code qui fonctionne super fait par Hervé62 que je remercie encore au passage).

Est-il possible, si c'est un NUMERO à rechercher, qu'il soit automatiquement FORMATE en le collant dans la recherche ?

Je joins le classeur test dans lequel j'ai inclus la feuille Téléphone.
Avec mes remerciements,
Je vous souhaite à toutes et à tous un très bon dimanche,
Amicalement,
Lionel,
 

Pièces jointes

  • Recherche dans le Classeur(VBA).xlsm
    32.3 KB · Affichages: 52

Discussions similaires

Statistiques des forums

Discussions
311 734
Messages
2 082 020
Membres
101 872
dernier inscrit
Colin T