Discussion :

[oliver75]

Bonsoir,

voilà mon pb. je lance des macros sur excel qui me bloque mon traitement lorsque les cellules sont renseignées avec "#N/A" ou "#REF!" sur la zone Range("H6:V40").

Je souhaite mettre à "zéro" les cellules qui sont renseignées avec ces info ("#N/A" ou "#REF!" )

Je sais que cela peut etre une abération pour les "puristes" mais bon mes résultas sont bon malgrès cette manip.

si quelqu'un peut m'aider pour faire cela merci d'avance.

Oliver

[jfontaine]

prenons un exemple.
La cellule A1 contient la formule

Code :

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

=B1/C1

Malheureusement C1=0 alors la cellule prend la valeur #DIV/0
Pour empecher ca tu geres l'erreur dans ta formule

Code :

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

=SI(ESTERREUR(B1/C1);0;B1/C1)

C'est plus long mais ca empeche ce genre de desagrément et c'est aussi plus jolie à l'impression

[oliver75]

bONJOUR,

pour l'avenir je tiendrais compte de ces remarques mais là il me faudrait un truc massif qui sur une plage donnée me convertissent mes ("#N/A" ou "#REF!" ) en zéro.

je bricole des trucs mais pas encore de solution.......

oliver

[oliver75]

J'ai bricolé un code pour virer les "#N/A" et lorsque j'arrive sur la cell concerné j'ai une erreur d'execution type 13

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
Sub Mise_en_forme_recapv2B()
 
    Windows("Contrôle benchmarké1.xls").Activate
    Sheets("recap v2 - b").Activate
 
 Dim x As Boolean
 Dim i
 
    x = False
 
For i = 1 To 500
 
If Sheets("recap v2 - b").Range("I" & i) = "ESTERREUR" Then
 
x = True
 
 Else
 
    End If
 
Next i
 
    If x = True Then
    Sheets("recap v2 - b").Range("I" & i) = 0
 
     Else
 
    End If
 
End Sub

[tirex28]

Bonjour,

Essaye ceci:

Code :

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

1
2
3
4
5
6
7
 
On Error Resume Next
With Range("H6:V40")
    .SpecialCells(xlCellTypeFormulas, xlErrors).Value = 0
    .SpecialCells(xlCellTypeConstants, xlErrors).Value = 0
End With
On Error GoTo 0

Attention, ca ne fait pas la différence entre les différentes valeurs d'erreurs.

Cordialement,

Tirex28/

[oliver75]

merci tirex c'est exactement cela que je voulais!!!!!!!!