Discussion :

[mphzz]

Bonjour,

Je me permets de poster ici car j'ai un petit problème avec une macro.

Tout à l'heure lorsque je l'ai construite ça marchait nickel, et lorsque j'ai fermé puis ouvert à nouveau le tableur, ça ne marchait plus, la fonction "remplacer ... par ..." buggait : elle s'applique dans toutes les cellules au lieu de s'appliquer uniquement dans la cellule déclarée.

L'erreur en question est la 92 : "variable bloc with non définie"

Je vous mets le code vba en espérant que quelqu'un puisse me dire qu'est 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub real_mak()
'
' real_mak Macro
 
a = Range("J15")
b = Range("K15")
c = Range("J16")
d = Range("K16")
 
    Range("J15").Select
    ActiveCell.Replace What:="=", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="=", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
    Range("K15").Select
    ActiveCell.Replace What:="=", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="=", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
    Range("J16").Select
    ActiveCell.Replace What:="=", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="=", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
    Range("K16").Select
    ActiveCell.Replace What:="=", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="=", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
       Range("K16").Select
    ActiveCell.Replace What:="G", Replacement:="H", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="G", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
    Columns("L:IV").Select
    Selection.Replace What:=a, Replacement:=b, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Columns("L:IV").Select
    Selection.Replace What:=c, Replacement:=d, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
    Range("M260").Select
 
End Sub

Merci d'avance pour l'aide que vous pourrez m'apporter.

[Daniel.C]

Bonsoir,

Ca me paraît normal. Si "=" n'est pas trouvé,

Code :

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

1
2
3
    Cells.Find(What:="=", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

renvoie une erreur 91

[mphzz]

Comment faire pour qu'il n'aille pas chercher ailleurs s'il n'y a pas de "=" dans la cellule ?

Et là je réessaie en mettant un égal et ça me remplace toujours dans toute la feuille...

Ouais en gros quand je configure en "xlpart", il me trouve bien l'élément à remplacer mais il me remplace dans toute la feuille, et quand je met "xlwhole", il me trouve pas les éléments dans la cellule... Difficile de savoir comment arranger mon problème...

[Daniel.C]

Si tu disais ce que tu veux faire au juste ?

[mphzz]

Alors en gros :

je cherche à actualiser mes calculs en fonction de la plage de données que je choisis, afin d'avoir un résultat par "ligne", et plus précisément "par terme" de ma série.

Le truc est qu'un grand nombre de calculs doivent être faits dans la feuille, ce qui fait que je peux pas simplement faire une petite formule magique sur chaque ligne de ma série.

Donc j'ai voulu faire un truc pour que je puisse (au mieux au cas par cas), actualiser les calculs en fonction de la plage de cellules que je choisis.

De ce fait, j'ai voulu faire un truc de ce style :

Dans une cellule quelconque, je sélectionne la plage de données choisie en faisant "=A1:A10"

Puis, ma fameuse macro enlève le égal dans la formule pour ne garder que le "A1:A10" dans la cellule, sans rien d'autre.

Puis, cette même macro copie le contenu de la formule en question, puis la colle dans le "remplacer par" du formulaire rechercher / remplacer" après avoir collé l'ancienne plage de données dans la case "rechercher".

Résultat : les calculs sont actualisés dans les quelques 120 000 cellules avec la nouvelle plage de données choisie.

Ensuite le top serait de pouvoir copier le résultat final tout en bas et de le coller dans la cellule de départ (où la fonction aurait été tapée), mais bon ça me parait difficile vu que la macro se barre partout dans la feuille pour faire plusieurs tâches, comment lui faire comprendre qu'il faut qu'elle colle le résultat final dans telle cellule (à moins de déclarer ladite cellule comme une variable, mais bon...)

D'où la construction de cette macro si "artisanale"

Voilà j'espère que vous aurez eu le courage de lire tout ce charabia^^

[Daniel.C]

Dans une cellule quelconque, je sélectionne la plage de données choisie en faisant "=A1:A10"

Puis, ma fameuse macro enlève le égal dans la formule pour ne garder que le "A1:A10" dans la cellule, sans rien d'autre.

Je n'ai pas compris pourquoi tu mets le signe "=" pour l'enlever...
Dans un module standard, mets :

Code :

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

Public Res As String

Dans le module de la feuille, mets :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Formula <> "" And Left(Target.Formula, 1) = "=" Then
        Application.EnableEvents = False
        Target.Value = Right(Target.Formula, Len(Target.Formula) - 1)
        Cells.Replace Res, Target.Value, xlPart
        Application.EnableEvents = True
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Value <> "" Then
        If Target.HasFormula Then
            Res = Right(Target.Formula, Len(Target.Formula) - 1)
        End If
    End If
End Sub

Entre ensuite les valeurs comme indiqué; les macros se déclencheront automatiquement.