XL 2019 Recherche en VBA dans un classeur

Sellig

XLDnaute Nouveau
Bonjour,

Je bloque sur un code qui doit être tout bête.

J’aimerais simplement sélectionner en VBA, la cellule où se trouve les mots :

« paramétrer télé » dans un classeur Excel.

Je souhaite que ma phrase apparaisse dans le code

Pourrais-je avoir de l’aide ?

Merci d’avance

Cordialement
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Selling,
Un petit fichier test aurait été le bienvenu. ;)
Un essai en PJ avec :
VB:
Sub Trouver()
Phrase = "paramétrer télé"
Lmax = 1000000      ' Ligne max où rechercher, peut être adapté
For Each F In Worksheets
    With Sheets(F.Name)
        If Application.CountIf(.[A:ZZ], Phrase) > 0 Then
            C = 1: Nmax = 1000
            While Application.CountIf(.Range(.Cells(1, C), .Cells(Lmax, C)), Phrase) = 0
                C = C + 1
            Wend
            L = Application.Match(Phrase, .Range(.Cells(1, C), .Cells(Lmax, C)), 0)
            .Select
            .Cells(L, C).Select
            Exit Sub
        End If
    End With
Next F
End Sub
 

Pièces jointes

  • ChercherPhrase.xlsm
    24.5 KB · Affichages: 4

Discussions similaires

Réponses
2
Affichages
188

Statistiques des forums

Discussions
312 207
Messages
2 086 240
Membres
103 162
dernier inscrit
fcfg