Discussion :

[Romhain]

Bonjour

Excel me renvoie une incompatibilité de type "erreur d'exécution 13" quand j'essaie de transformer la formule en valeur :

Code :

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

1
2
3
4
5
 
'Sheets("Resultats").Range("N" & i).FormulaLocal = "=SI(ET(B" & i & "=0;C" & i & "=0;ABS(L" & i & "-M" & i & ")<0,02);0;M" & i & "-L" & i & ")"
With Sheets("Resultats").Range("N" & i)
       .Value = IIf(.Offset(0, -12).Value = 0 And .Offset(0, -11).Value = 0 And Abs(.Offset(0, -2).Value - .Offset(0, -1).Value) < 0.02, 0, .Offset(0, -1).Value - .Offset(0, -2).Value)
End With

Je ne vois pas d'erreur; Quelqu'un peut m'aider ?
Merci
Romhain

[eriiic]

Bonjour,

pas chez moi.
Sans doute que dans tes test '... = 0' tu compares avec une chaine (ou une valeur d'erreur ?).
Contrôle les cellules concernées.
eric

[joe.levrai]

Bonjour,

outre la judicieuse remarque de eriic,
les deux actions d'un iif était toujours évaluées (contrairement à une structure If/Else/End If) même si une seule s'applique, assure toi que CHAQUE issue peut s'utiliser sans erreur
au lieu d'un iif, tu peux réaliser un If/Else/End If

Code :

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

1
2
3
4
5
6
7
With Sheets("Resultats").Range("N" & i)
    If .Offset(0, -12).Value = 0 And .Offset(0, -11).Value = 0 And Abs(.Offset(0, -2).Value - .Offset(0, -1).Value) < 0.02 Then
        .Value = 0
    Else
        .Value = .Offset(0, -1).Value - .Offset(0, -2).Value
    End If
End With

[Menhir]

Pourquoi fonctionner avec des Offset en ribambelle ?
Ne serait-il pas plus clair d'écrire :

Code :

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

1
2
3
With Sheets("Resultats")
    .Range("N" & i).Value = IIf(.Range("B" & i).Value = 0 And .Range("C" & i).Value = 0 And Abs(.Range("L" & i).Value - .Range("M" & i).Value) < 0.02, 0, .Range("L" & i).Value - .Range("M" & i).Value)
End With

Excel me renvoie une incompatibilité de type "erreur d'exécution 13" quand j'essaie de transformer la formule en valeur :

L'une des cellules en colonne M ou L ne contiendrait-elle pas du texte ?
Quelle est la valeur de i au moment du plantage ? Utilise cette valeur pour vérifier le contenu des cellule de la ligne concernée.

Code :

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

1
2
3
4
5
6
7
With Sheets("Resultats").Range("N" & i)
    If .Offset(0, -12).Value = 0 And .Offset(0, -11).Value = 0 And Abs(.Offset(0, -2).Value - .Offset(0, -1).Value) < 0.02 Then
        .Value = 0
    Else
        .Value = .Offset(0, -1).Value - .Offset(0, -2).Value
    End If
End With

Encore plus simple :

Code :

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

1
2
3
4
5
6
With Sheets("Resultats")
    .Range("N" & i).Value = 0
    If .Range("B" & i).Value <> 0 Or .Range("C" & i).Value <> 0 Or Abs(.Range("L" & i).Value - .Range("M" & i).Value) >= 0.02 Then
        .Range("N" & i).Value = .Range("L" & i).Value - .Range("M" & i).Value
    End If
End With