Bonjour

Je fais appel à un Userform via macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub Replace_MCL()
Replace_MCL_Tool.Show
End Sub
Dans ce userform, j'ai les fonctions suivantes
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
18
19
20
Private Sub Valider_Click()
Dim OldStr As String, NewStr As String
Dim Sh As Worksheet
Dim c As Range
 
OldStr = Replace_MCL_Tool.TextBox1.Value
NewStr = Replace_MCL_Tool.TextBox2.Value
 
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
    On Error Resume Next
    For Each c In Sh.UsedRange.SpecialCells(xlCellTypeFormulas)
        c.Formula = Replace(c.Formula, OldStr, NewStr)
    Next c
    On Error GoTo 0
Next Sh
End Sub
Private Sub Annuler_Click()
Hide
End Sub
Mais rien ne se passe quand je clique sur Valider (le nom du CommandButton est bien Valider).

Pourriez-vous m'aider ?


Merci