Discussion :

[marieKa]

Bonjour,

Afin de rendre compatible mon classeur avec Excel 2003, je dois modifier toutes les cellules comprenant la formule sierreur(... par si(esterreur..., en essayant de récupérer automatique les arguments.

J'ai réussi à appliquer ma macro sur une cellule active, mais je n'arrive pas à l'appliquer sur l'ensemble des cellules non vides, que je sélectionne préalablement à l'aide d'une macro, qui fonctionne.

Pourriez-vous me donner un peu d'aide?

Merci beaucoup.

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
 
 
Sub RemplacerSiErreur()
'
' Macro2 Macro
 
Dim Formule As String
Dim Trouve As Range
On Error Resume Next
 
Set Trouve = Selection.Find(what:="SIERREUR", LookIn:=xlFormulas, lookat:=xlPart)
adr = Trouve.Address
 
If Not Trouve Is Nothing Then
Do
 
'enlève le égale
Formule = Right(CStr(ActiveCell.FormulaR1C1), Len(CStr(ActiveCell.FormulaR1C1)) - 1)
 
'Enlève le ISERREUR()
Formule = Replace(Formule, "IFERROR", "")
 
'Enlève le dernier argument du ISERREUR()
Formule = Replace(Formule, ",0", "")
 
'Scinder les deux parties de la formule
'param = Split(Formule, ";")
 
'Applique le SI(ESTERREUR()...
FormulaR1C1 = "=SI(ESTERREUR(" & Formule & "),0," & Formule & ")"
 
Set Trouve = Selection.FindNext(Trouve)
Loop Until Trouve.Address = adr Or Trouve Is Nothing
End If
 
 
End Sub

[Daniel.C]

Bonjour,

VBA pense en anglais :

Code :

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

Set Trouve = Selection.Find(what:="IFERROR", LookIn:=xlFormulas, lookat:=xlPart)

[marieKa]

Bonjour,

Merci pour votre réponse.
J'avais déjà essayé avec iferror, mais cela ne marche pas pour autant.

Avez-vous une autre idée?

Merci beaucoup.

[Daniel.C]

J'ai refait le test avec Excel 2007 :

Code :

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

1
2
3
Cells.SpecialCells(xlCellTypeFormulas).Select
Set Trouve = Selection.Find(what:="IFERROR", LookIn:=xlFormulas, lookat:=xlPart)
MsgBox Trouve.Address

donne bien l'adresse de ma cellule contenant la formule (D7).

Enlève la ligne :

Code :

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

On Error Resume Next

elle peut masquer une erreur.

[marieKa]

En remplaçant ActiveCell par Trouve comme suit, j'ai réussi à exécuter correctement la macro.
Cependant elle ne marche toujours pas sur le classeur excel qui m'intéresse.

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
'Boucle sur les cellules selectionnees
 
Set Trouve = Selection.Find(what:="IFERROR", LookIn:=xlFormulas, lookat:=xlPart)
adr = Trouve.Address
 
If Not Trouve Is Nothing Then
Do
 
'enlève le égale
Formule = Right(CStr(Trouve.FormulaR1C1), Len(CStr(Trouve.FormulaR1C1)) - 1)
 
'Enlève le SIERREUR()
Formule = Replace(Formule, "IFERROR", "")
 
'Enlève le dernier argument du SIERREUR()
Formule = Replace(Formule, ",0", "")
 
 
'Applique le SI(ESTERREUR()...
Trouve.FormulaR1C1 = "=SI(ESTERREUR(" & Formule & "),0," & Formule & ")"
 
Set Trouve = Selection.FindNext(Trouve)
Loop Until Trouve.Address = adr Or Trouve Is Nothing
End If
 
End Sub

Par ailleurs, j'aurais automatiser davantage la macro, et utiliser la fonction split, pour pouvoir généraliser à toutes les fonctions commençant par sierreur (la macro écrit telle qu'elle est adaptée à une formule particulière). Je n'y suis pas parvenue.

L'idée était la suivante :

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
Sub Replace_IF_ERROR_by_IF_IS_ERROR()
 
Dim P1 As Range
Dim P2 As Range
Dim Formule As String
Dim Trouve As Range
Dim param() As String
 
  On Error Resume Next
 
'Selection des cellules non vides
 
  Set P1 = Cells.SpecialCells(xlCellTypeConstants, 23)
  Set P2 = Cells.SpecialCells(xlCellTypeFormulas, 23)
  On Error GoTo 0
  If Not P1 Is Nothing And Not P2 Is Nothing Then
    Union(P1, P2).Select
  ElseIf Not P1 Is Nothing Then
    P1.Select
  ElseIf Not P2 Is Nothing Then
    P2.Select
  End If
 
'Cellules non vides selectionnees
 
'Boucle sur les cellules selectionnees
 
Set Trouve = Selection.Find(what:="IFERROR", LookIn:=xlFormulas, lookat:=xlPart)
adr = Trouve.Address
 
If Not Trouve Is Nothing Then
Do
 
'enlève le égale
Formule = Right(CStr(Trouve.FormulaR1C1), Len(CStr(Trouve.FormulaR1C1)) - 1)
 
'Enlève le SIERREUR()
Formule = Replace(Formule, "IFERROR", "")
 
'Scinder les deux parties de la formule
'param = Split(Formule, ";")
 
'Applique le SI(ESTERREUR()...
Trouve.FormulaR1C1 = "=SI(ESTERREUR(" & param(0) & "), " & param(1) & "," & param(0) & ")"
 
Set Trouve = Selection.FindNext(Trouve)
Loop Until Trouve.Address = adr Or Trouve Is Nothing
End If
 
End Sub

Merci beaucoup pour votre aide

[Daniel.C]

Ca dépend surtout des formules, de la condition mise en cas d'erreur... Si tu postes un classeur représentatif, je peux regarder.

[marieKa]

j'ai finalement réussi à m'en sortir, merci beaucoup.