Discussion :

[clemanz]

Bonjour à tous,

Lors de l'execution d'une macro sous VBA, je reçois le message d'erreur "Runtime Error Type Mismatch" mais ne parviens pas à en trouver la cause.

Auriez-vous une idée de ce qui pourrait causer ce problème ?

Merci

Voici le code en question :

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
Sub suite()
 
Worksheets("Fev-18 PF").Activate
nb_lignes = Worksheets("Fev-18 PF").Range("A1").End(xlDown).Row
 
 
For i = 2 To nb_lignes
 
    If Worksheets("Onglet central - hors PV=0").Range("O" & i).Value <> 0 And Worksheets("Fev-18 PF").Range("I" & i).Value < 5 Then
    x = Worksheets("Fev-18 PF").Range("J" & i).Value
    y = Worksheets("Onglet central - hors PV=0").Range("O" & i).Value
    Worksheets("Fev-18 PF").Range("J" & i).Value = x / y
    End If
 
Next i
 
End Sub

[Pierre Fauconnier]

Salut.

On suppose (puisque tu ne le dis pas) que tu as le problème sur la ligne 12. Vérifie que x et y sont bien des valeurs numériques.

au delà de ça, on pourrait réaliser cela par formule. Y-a-t'il un intérêt particulier à réaliser cela par vba?

[pijaku]

Salut,
Je rejoins Pierre et n'interviens que pour ajouter : de l'importance de systématiquement déclarer ET typer chacune des variables.
Bonne suite!

[clemanz]

Merci beaucoup pour vos réponses.

Le problème se situe en ligne 13 (pardon pour l'oubli) et j'ai bien vérifié que mes données étaient de type numérique sur Excel.

En effet, cela peut facilement se faire par formule, mais la macro que je vous ai isolé plus haut est en fait intégrée à une procédure plus complète, c'est pourquoi j'ai privilégié l'utilisation de VBA.

Merci Pijaku, j'ai rectifié cela.

Cependant le problème persiste.

[Pierre Fauconnier]

Sur la ligne 13 End If, j'ai des doutes.

Type Mismatch (erreur 13) survient, notamment, lorsque tu utilises des variables qui n'ont pas les types adéquats lors d'un traitement.



Dans la mesure où il n'y a à mon avis que ta division qui peut poser un problème de ce type, j'ai identifié que x et/ou y ne sont pas numériques.

Comment as-tu vérifier que tes valeurs sont correctes? Comportent-elles des décimales? Si oui, quel séparateur? As-tu vérifié leur type dans Excel ou dans VBA? Dans la mesure où c'est dans VBA que tu as le problème, il me semble logique que ce soit dans VBA que tu vérifies que tes variables sont bien numériques.

Je rejoins Franck (nous nous rejoignons donc... ) sur le typage des variables, qui passe par leur déclaration (un option explicit en début de module et une déclaration explicite dans la procédure). Cela permet de bloquer si tu essaies de passer autre chose à une variable qu'une valeur du même type qu'elle. Ici, pour l'exemple, je déclare x et y en double, mais il y a d'autres types numériques.

Code :

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

dim x as double, y as double

Méfie-toi de VBA qui est très permissif et assigne le type qui correspond à la valeur passée lors de la première affectation d'une valeur à une variable non déclarée.