"erreur d'exécution 13 : incompatibilité de type"

**oliver75** · 19/07/2007, 14h45

bonjour,

lorsque que je lance le code ci-dessous j'ai le msg d'erreru suivant

"erreur d'exécution 13 : incompatibilité de type"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sheets("Recap V2 - b").Select
 
 
If Abs(Range("I20").Value) / Range("h20").Value - 1 > (10 / 100) And Abs(Range("O20").Value) < (1 / 100) And Range("P20").Value < 100000 Then
 
Range("u20") = "Valider et analyser"
 
Else
 
Range("u20") = "OK"
 
End If

apres diverses tentatives de correction , je reste caller.......

merci de votre aide.

olivier

**damspav** · 19/07/2007, 14h50

salut,

Quand tu affecte une valeur à une cellule utilise range.value comme tu l'as fais pour récupérer des valeurs plus haut.

Range("u20").value = "Valider et analyser"

Range("u20").value = "OK"

**oliver75** · 19/07/2007, 15h02

apres les modifications proposées, j'obtiens le meme resultat

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
 
Sub analyse_opcvm_monetaire()
'
' analyse_opcvm_monetaire Macro
' Macro enregistrée le 17/07/2007 par Administrateur
 
'le code ci-dessous est utilisé pour l'analyse des opcvm monétaire
 
 
Sheets("Recap V2 - b").Select
 
 
If Abs(Range("I20").Value) / Range("h20").Value - 1 > (10 / 100) And Abs(Range("O20").Value) < (1 / 100) And Range("P20").Value < 100000 Then
 
Range("u20").Value = "Valider et analyser"
 
Else
 
Range("u20").Value = "OK"
 
End If
 
 
If Abs(Range("I20").Value / Range("h20").Value - 1) > (10 / 100) And Abs(Range("O20").Value) > (1 / 100) Or Range("P20").Value > 100000 Then
 
Range("u20").Value = "Non validable"
 
Else
 
Range("u20").Value = "OK"
 
End If

**damspav** · 19/07/2007, 15h07

en rajoutant des parenthèses dans ton if chez moi ca passe :

Code :

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

If (Abs(Range("I20").Value) / (Range("H20").Value - 1) > (10 / 100)) And (Abs(Range("O20").Value) < (1 / 100)) And (Range("P20").Value < 100000) Then

**oliver75** · 19/07/2007, 15h21

chez moi toujours pas

**damspav** · 19/07/2007, 15h22

sur quelle ligne tu a cette erreur ?

**oliver75** · 19/07/2007, 15h24

j'ai l'erreur sur

Code :

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

1
2
 
If (Abs(Range("I20").Value) / Range("h20").Value - 1 > (10 / 100) And Abs(Range("O20").Value) < (1 / 100) And Range("P20").Value < 100000) Then

**Chewi** · 19/07/2007, 15h28

Bonjour oliver et damspav,

Je me permets d'intervenir ...

Lorsque je teste, le code fonctionne très bien chez moi (même sans les parenthèses).

oliver, pourrais-tu nous donner les valeurs que tu as dans tes cellules concernées lors de test ?

Ton message d'erreur me fait croire que c'est du aux valeurs de tes cellules H20, I20 et companie.
N'as-tu pas du texte au lieu de nombres ?

Regarde suivant que tu utilise des points ou des virgules si ce sont des nombres. Excel reconnaît peut-être tes cellules comme du texte.

Dis nous...

Cordialement Chewi