XL 2013 Erreur 13 - Incompatibilité de type

MrAntonin · 24 Octobre 2017

Bonjour,
j'ai un problème que je ne comprends pas, incompatibilité de type ...

Ma ligne de code :

Sheets("Resultat").Range("B" & activeligne).Value2 = Sheets("Resultat").Range("B" & activeligne).Value2 + consodumois

activeligne est une variable de type string mais cela ne fonctionne pas non plus avec un integer
consodumois est un single

ce que je comprends pas c'est qu'on manipule que des nombres, surtout avec Value2 alors pourquoi ce n'est pas compatible ?

Cordialement,

MrAntonin

pierrejean · 24 Octobre 2017

Bonjour Antonin
Voila qui prouve que ta ligne devrait fonctionner
Il y a autre chose dans le fichier !!!
Peux-tu le poster ?

Si... · 24 Octobre 2017

Bon_jour

Pierrejean , pour cette erreur 13, je pense que ce n'est pas .Value2 qui importe mais plutôt le type de contenu de B&activeligne, de consodumois.

VB:

activeligne = "2"
consodumois = 2.5
Sheets("Resultat").Range("B" & activeligne) = Sheets("Resultat").Range("B" & activeligne) + consodumois

ne renvoie une erreur 13 que si B2 n'est pas numérique (le vide passe quand même)

VB:

activeligne = "2"
consodumois = "2.5"  'ou "2,5"
Sheets("Resultat").Range("B" & activeligne) = Sheets("Resultat").Range("B" & activeligne) + consodumois

ne renvoie pas d'erreur 13 quand B2 n'est pas numérique mais le + devient une concaténation

VB:

activeligne = "2"
consodumois = "2.5" 'ou "2,5" et même 2.5
Sheets("Resultat").Range("B" & activeligne) = Sheets("Resultat").Range("B" & activeligne) + consodumois.Value2

renvoie toujours une erreur (424 pas 13)

MrAntonin · 24 Octobre 2017

Merci beaucoup !! En initialisant toutes les cellules a 0 cela marche

XL 2013 Erreur 13 - Incompatibilité de type

MrAntonin

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Pièces jointes

Si...

XLDnaute Barbatruc

MrAntonin

XLDnaute Nouveau

Discussions similaires