Addition 2 cellules (incompatibilité de type)

Linebaker Messages postés 53 Statut Membre -  
Linebaker Messages postés 53 Statut Membre -
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 8930 Statut Membre 1 781
 
Bonjour,

Utilises Val()
1
Linebaker Messages postés 53 Statut Membre 1
 
Salut Patrice,

Merci
0