XL 2019 Recherche en VBA dans un classeur

Sellig

XLDnaute Junior
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: 6

Discussions similaires

Statistiques des forums

Discussions
314 486
Messages
2 110 107
Membres
110 666
dernier inscrit
Yaya123