Addition 2 cellules (incompatibilité de type)

Linebaker Messages postés 50 Date d'inscription   Statut Membre Dernière intervention   -  
Linebaker Messages postés 50 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Dans le code j'écris cette ligne :
ActiveCell.Offset(0, 4).Value = CDbl(ActiveCell.Offset(0, 4).Value) + CDbl(ActiveCell.Offset(1, 4).Value)

Celle-ci (ActiveCell.Offset(0, 4).Value (sa valeur est "")) est en texte ce qui me donne un Incompatibilité de type car CDbl(ActiveCell.Offset(1, 4).Value) = 3.

Comment corriger le tout pour que ActiveCell.Offset(0, 4).Value = CDbl(ActiveCell.Offset(0, 4).Value) + CDbl(ActiveCell.Offset(1, 4).Value) = 3

Merci
A voir également:

2 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Utilises Val()
1
Linebaker Messages postés 50 Date d'inscription   Statut Membre Dernière intervention   1
 
Salut Patrice,

Merci
0