fenetre rechercher remplacer

[papat]

bonjour a toutes et tous
a votre avis peut on 'copier coller, ou photocopier' les resultats d'une recherche obtenues dans la fenetre 'rechercher remplacer'
merci a vous

 

[_Thierry]

Bonjour Papat, le Forum

Pas vraiment certain d'avoir compris la question !

Ce code te listera ta recherche dans une MsgBox :

Option Explicit

Sub FindReplace()
Dim Cell As Range
Dim Recherche As String, Remplacement As String
Dim FirstAddress As String, Resultat As String
Dim Compteur As Integer
Dim Question As Byte

Recherche = InputBox('Indiquez la String à chercher')

With ActiveSheet.UsedRange
    Set Cell = .Find(Recherche, LookIn:=xlValues, LookAt:=xlPart)
    If Not Cell Is Nothing Then
        FirstAddress = Cell.Address
        Do
            Resultat = Resultat & Cell.Address(0, 0) & vbCrLf
            Compteur = Compteur + 1
            Set Cell = .FindNext(Cell)
        Loop While Not Cell Is Nothing And Not Cell.Address = FirstAddress
    End If
End With

If Not Compteur = 0 Then
        Question = MsgBox('La String ' & Recherche & ' a été trouvée ' & Compteur & _
                          ' fois, dans les cellules :' & vbCrLf & Resultat & vbCrLf & _
                          'voulez-vous effectuer un remplacement ?', vbQuestion + vbYesNo)
        If Question = vbYes Then
            Remplacement = InputBox('Indiquez la String à Remplacer')
            Cells.Replace What:=Recherche, Replacement:=Remplacement, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
        End If
Else
MsgBox 'La String ' & Recherche & ' n'a pas été trouvée !'
End If

End Sub

Maintenant, si tu veux envoyer cette recherche dans une Feuille on peut le faire aussi mais il faudrait savoir quand savoir ce que tu souhaites obtenir...

Bon Aprèm
[ol]@+Thierry[/ol]

 

[PtitCastor]

A mon avis pas directement mais en passant par du code Vba tu peux stocker les résultats :

ex :
On Error Resume Next ' desactive la gestion des erreurs
' recherche de la cle bureau
Sheets('cle_bureau').Select
' Colonne de recherche
Columns('B:B').Select
'Fonction de recherche
Selection.Find(locgene, , xlValues, xlWhole, xlByColumns).Select
'Si la valeur est trouvé
If (Err.Number = 0) Then
'On stock la valeur trouvée dans numbureau
numbureau = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 1)).Value
End If
Err.Clear

Sinon pour le remplacement, je ne connais plus la fonction

 

[papat]

bonjour thierry ptitcastor le forum
merci pour votre aide ,c'est un peu compliqué pour moi vu mon niveau ,malgré tout je reviendrai sur vos solutions quand j'aurai un peu evolue.
bonne journée a vous.