Commande Recherche/Remplacer

[f69815]

Bonjour,

Quand on utilise la commande Recherche on obtient la liste de toutes les occurrences trouvées.

Est-il possible de récupérer cette liste, car on peut la sélectionner (Ctrl+A) mais impossible de Copier ?

Merci de votre aide.

 

[msouply]

Re : Commande Recherche/Remplacer

Bonjour

Je ne sais pas si ça peu dépanner... mais une copie écran peut peut-être t'aider... ?

Nak

 

[f69815]

Re : Commande Recherche/Remplacer

Bonjour

Je ne sais pas si ça peu dépanner... mais une copie écran peut peut-être t'aider... ?

Nak

Merci de ton conseil,
oui mais il y a 447 lignes et je veux surtout les retravailler, c'est à dire les coller dans une autre feuille.

 

[Staple1600]

Re : Commande Recherche/Remplacer

Bonjour à tous


En guise d'illustration ( à adapter si beaucoup d'occurences trouvées, la MsgBox sera vite limitée)
NB: Pour tester, dans un classeur vierge (de 3 feuilles), mettre le mot toto au hasard dans une ou plusieurs cellules de chaque feuille, puis lancer la macro suivante

Sub a()
Dim Sh As Worksheet, TuEsOu As Range, fa, k&
For Each Sh In ThisWorkbook.Worksheets
    With Sh.UsedRange
        Set TuEsOu = .Cells.Find(What:="toto")
        If Not TuEsOu Is Nothing Then
        fa = TuEsOu.Address
            Do
                resultat = resultat & Sh.Name & "| " & TuEsOu.Address(0, 0) & vbCrLf
                k = k + 1
                Set TuEsOu = .FindNext(TuEsOu)
            Loop While Not TuEsOu Is Nothing And TuEsOu.Address <> fa
        End If
    End With
    Set TuEsOu = Nothing
Next
MsgBox resultat, vbInformation, k & " cellule(s) trouvée(s)" & Space(9)
End Sub

 

[Lone-wolf]

Re : Commande Recherche/Remplacer

Bonjour Jean-Marie, le Forum,

If Not TuEsOu Is Nothing Then I LIKE

MsgBox "Je ne suis pas là" & , , "Staple1600"


A+