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.

[lafafmentvotre]

Hello

Pourtant la formule existe

Code :

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

=VLOOKUP(A12;'P:\@@@Travail\Projets\[Benchmark team.xls]FR_Site Inventory'!$A$3:$T$33;2;FALSE)

Dans ce test, je remplace P:\@@@Travail\ par P:\Toto\ mais rien ne se passe.

Je craque

[Theze]

Bonjour,

Une piste :
tes formules Excel sont en Français ou en Anglais ?
dans le cas où c'est en Français, utilise FormulaLocal au lieu de Formula ou éventuellement FormulaR1C1Local ?

Hervé.

[gFZT82]

J'ai effectué un test avec la formule suivante en cellule A1 :

Code :

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

=RECHERCHEV(A12;'P:\@@@Travail\Projets\[Benchmark team.xls]FR_Site Inventory'!$A$3:$T$33;2;FAUX)

J'ai obtenu le résultat attendu :

Code :

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

=RECHERCHEV(A12;'P:\Toto\Projets\[Benchmark team.xls]FR_Site Inventory'!$A$3:$T$33;2;FAUX)

[lafafmentvotre]

Hello

Les formules sont en Anglais.

Point peut être important, ma macro qui appelle le userform ainsi que le userform sont dans le VBAProject (PERSONAL.XLSB) afin de pouvoir les utiliser avec n'importe quel fichier.

Je me serais planté ?

[AlainTech]

Bonjour,

Donc,

Code :

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

For Each Sh In ThisWorkbook.Worksheets

Fait référence aux feuilles présentes dans PERSONAL.XSLB.

Est-ce bien ce que tu veux?

[lafafmentvotre]

Hello

En fait, je souhaiterais que cela fonctionne pour n'importe quel fichier que j'exécute avec la macro qui se trouve dans le Personal

[aalex_38]

Bonjour à tous,

Donc comme le signale Alain, il ne faut pas utiliser Thisworkbook, ce qui signifie le classeur dans lequel se trouve cette macro, mais une autre instanciation, pourquoi pas par exemple Activeworkbook ?

[kiki29]

Salut, créer une macro complémentaire ( xla ) ? voir http://silkyroad.developpez.com/VBA/...Editor/#LIII-B http://excel.developpez.com/faq/?page=VBA