2 pièce(s) jointe(s)
Vider le pop-up de Recherche / Remplace standard d'Excel par VBA
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.
Pièce jointe 484876
J'essaie de remettre ce pop-up dans son état initial.
Après recherche, j'ai trouvé ce code:
Code:
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.
Pièce jointe 484877
Question: Auriez-vous une petite idée de "comment" vider ce champs ?
Merci d'avance de votre aide.
André
