Discussion :

[lafafmentvotre]

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

[aalex_38]

Bonjour,


Utilise le debogueur et les points d'arret pour voir ou tu passes.

[lafafmentvotre]

Hello

Je ne connais pas trop donc pas évident pour moi.

Bonjour

Pourriez-vous m'aider ou me guider pour faire tourner mon userform car je suis bloqué.

Merci par avance

[gFZT82]

Bonjour,

J'ai inséré quelques messages dans ton code.
Cela peut t'aider à découvrir ce qui cloche

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
21
22
23
Private Sub Valider_Click()
Dim OldStr As String, NewStr As String
Dim Sh As Worksheet
Dim c As Range
MsgBox "La commande VALIDER est bien passée"
OldStr = Replace_MCL_Tool.TextBox1.Value
NewStr = Replace_MCL_Tool.TextBox2.Value
 
For Each Sh In ThisWorkbook.Worksheets
    MsgBox "La feuille <" & Sh.Name & "> est sélectionnée"
    On Error Resume Next
    For Each c In Sh.UsedRange.SpecialCells(xlCellTypeFormulas)
        c.Formula = Replace(c.Formula, OldStr, NewStr)
        MsgBox "La chaine de caractères <" & OldStr & "> a été remplacée par <" & NewStr & ">." & Chr(10) & _
        "La cellule <" & c.Address & "> contient la formule <" & c.Formula & ">."
    Next c
    On Error GoTo 0
Next Sh
Me.Hide
End Sub
Private Sub Annuler_Click()
    Me.Hide
End Sub

Cordialement.

[lafafmentvotre]

Ok

Donc après l'affichage MSGBOX

Code :

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

    MsgBox "La feuille <" & Sh.Name & "> est sélectionnée"

Le userForm se ferme et plus rien

[gFZT82]

Première piste : le programme n’a pas trouvé de cellule contenant une formule à modifier dans la feuille sélectionnée.