Discussion :

[dede_bo]

Bonjour,
J'aurais aimé recevoir de l'aide. Je suis un peu perdu.

J'ai un fichier Excel (2010) contenant des macros qui utilisent le pop-up standard de recherche.
Lorsqu'elles ont finis de travailler, le contenu du pop-up est donc modifié.

Voyez la copie d'écran ci-dessous.



J'essaie de remettre ce pop-up dans son état initial.
Après recherche, j'ai trouvé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub ResetFind()
    On Error Resume Next    'just in case there is no active cell
    On Error GoTo 0
 
    Application.FindFormat.Clear          'yes
    Application.ReplaceFormat.Clear       'yes
 
    Application.EnableEvents = False
    Application.DisplayAlerts = False
 
    Cells.Find What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext
    Cells.Replace What:="", Replacement:="", ReplaceFormat:=False, MatchCase:=True    'format not seem to do anything
 
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

Après exécution de ce code, tout fonctionne bien à l'exception du champs "Replace with" qui ne veut pas se vider.
Voyez la copie d'écran.




Question: Auriez-vous une petite idée de "comment" vider ce champs ?

Merci d'avance de votre aide.

André