Aide sur UserForm

Version imprimable

Aide sur UserForm

Bonjour

Je fais appel à un Userform via macro

Code:

1
2
3
Sub Replace_MCL()
Replace_MCL_Tool.Show
End Sub

Dans ce userform, j'ai les fonctions suivantes

Code:

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

13/10/2011, 17h21
aalex_38

Bonjour,

Utilise le debogueur et les points d'arret pour voir ou tu passes.
14/10/2011, 11h07
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

Bonjour,

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

Code:

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.

14/10/2011, 14h31
lafafmentvotre

Ok

Donc après l'affichage MSGBOX

Code:

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

Le userForm se ferme et plus rien
14/10/2011, 15h27
gFZT82

Première piste : le programme n’a pas trouvé de cellule contenant une formule à modifier dans la feuille sélectionnée.
14/10/2011, 15h41
lafafmentvotre

Hello

Pourtant la formule existe

Code:

=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
14/10/2011, 17h32
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é.
14/10/2011, 17h34
gFZT82

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

Code:

=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:

=RECHERCHEV(A12;'P:\Toto\Projets\[Benchmark team.xls]FR_Site Inventory'!$A$3:$T$33;2;FAUX)
14/10/2011, 18h00
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é ?
16/10/2011, 15h32
AlainTech

Bonjour,

Donc,

Code:

For Each Sh In ThisWorkbook.Worksheets

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

Est-ce bien ce que tu veux?
17/10/2011, 18h25
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
21/10/2011, 18h22
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 ?
21/10/2011, 18h32
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