XL 2013 Recherche qui ne commence pas dans la feuille active

[Usine à gaz]

Bonjour à toutes et à tous,

Dans mes réflexions et améliorations de mon fichier de travail, j'ai un nouveau souci que je n'arrive pas à résoudre malgré mes tentatives et recherches.

J'ai l'excellente recherche de Roland M qui fonctionne à merveille.
Mais je voudrais que la recherche commence sur la feuille active et je n'y arrive pas.

Dans le fichier joint, je suis sur la feuille active qui contient le bouton recherche et si je recherche un Nbr qui est dans la feuil1, même s'il est dans la feuille active, la recherche positionne directement dans la feuil1

Auriez-vous la solution ?

Avec mes remerciements,
Bon dimanche à toutes et à tous,
Amicalement,
arthour973

 

[mapomme]

Bonjour @arthour973 ,

Un essai dans le fichier joint en attendant @Roland_M que je salue .

edit : bonjour @Lone-wolf

 

[Usine à gaz]

Bonjour mapomme,

Un grand merci pour m'avoir répondu
Je regarde et je reviens

 

[Lone-wolf]

Bonjour Lionel

EDIT: RE mapomme

@arthour973

Seul Roland peux faire la modification. Mais pourquoi avoir m'y 5 fois Application.EnableEvents dans BoutonRecherche???

Public Sub BoutonRecherche()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
    Sheets("SuivisAppels").Select
    ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(1).Select
 
    If ActiveCell.Offset(0, 6) = "" Then
        Application.Calculation = xlManual
    End If

    'UserForm_Initialize
    fm_SaisieRecherche.Show

    If ActiveSheet.Name = "SuivisAppels" Then
        'Range("a1").Select
    End If
 
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Comme cela, ça suffit.

 

[Usine à gaz]

Re-Bonjour Mapomme, le Forum,

J'ai testé mais je ne comprends pas car dans mon fichier, il y a une erreur de compilation.
Voir photo jointe :

 

[Usine à gaz]

Bonjour Lone, en effet, tu as raison, je regarde

 

[Lone-wolf]

Re Lionel

@arthour973

Avec ton 1er fichier posté, il suffit de mettre la feuille SuivisAppel tout à gauche.
SuivisAppel > Feuil1 > Feuil2.

 

[Roland_M]

Bien le bonjour à tous,

@arthour, j'ai bien du mal à retrouver mes jeunes dans le code que je t'avais fais et que tu as modifié !?
Et tu t'étonnes qu'il y ai des plantages !? mais c'est normal !

 

[Usine à gaz]

Bonjour Roland,

Pas de plantage; ça marche bien.
Juste que je voudrais que la recherche commence sur la feuille active

 

[Usine à gaz]

Re Lionel

@arthour973

Avec ton 1er fichier posté, il suffit de mettre la feuille SuivisAppel tout à gauche.
SuivisAppel > Feuil1 > Feuil2.

OUI Lone, j'avais vu cela mais ce ne serait plus sa place dans le fonctionnement du classeur de travail

 

[mapomme]

Re @arthour973

Re-Bonjour Mapomme, le Forum,

J'ai testé mais je ne comprends pas car dans mon fichier, il y a une erreur de compilation.
Voir photo jointe :

Le message est pourtant clair.
La variable sh doit être de type Variant
C'est comme ça qu'elle est déclaré dans mon fichier.
Regarde les déclarations des variables dans mon fichier

Remplacer Dim Sh As Worksheet par Dim Sh tout simplement (variant est le type par défaut quand le type n'est pas explicitement défini)

 

[Usine à gaz]

Re-Mapomme,

Un grand merci c'est tout bon
Bonne fin de dimanche;
Amicalement,
arthour973