XL 2013 Erreur 13 : incompatibilité de type lors addition cellule (résolu)

[Cougar]

Bonjour le forum,

Lorsque j'essai de faire additionner des cellules, j'ai l'erreur 13 ? Pourtant mes cellules sont tous du même format. Comment corriger. Voir le fichier joint.

Merci

 

[CHALET53]

Bonjour,
A priori tu fais appel à une plage (REGUL par exemple)
Cette plage n'est pas définie : il faut préalablement le faire
Formule / Gestionnaire de noms / Nouveau : choisir un nom et définir la plage

a+

 

[Dranreb]

Bonjour.
Ce n'est pas une question de format mais de type de donnée.
Au lieu d'être vide la cellule D3 contient un texte vide, lequel ne peut être additionné à un Double.

 

[Dranreb]

Remarque: En passant par des tableaux VBA c'est beaucoup plus rapide :

Sub MacroDranreb()
Dim Rng As Range, TE(), LE As Long, TS(), LS As Long, C As Long
Set Rng = ActiveSheet.UsedRange
Set Rng = Rng.Rows(2).Resize(Rng.Rows.Count - 1)
TE = Rng.Value
ReDim TS(1 To UBound(TE, 1), 1 To UBound(TE, 2))
LE = 1
Do
   LS = LS + 1
   For C = 1 To 3
      TS(LS, C) = TE(LE, C)
      Next C
   Do
      For C = 4 To UBound(TE, 2)
         If VarType(TE(LE, C)) = vbDouble Then TS(LS, C) = TS(LS, C) + TE(LE, C)
         Next C
      LE = LE + 1
      If LE > UBound(TE, 1) Then Exit Do
      Loop Until TE(LE, 1) <> TS(LS, 1)
   Loop Until LE > UBound(TE, 1)
Rng.Value = TS
End Sub

 

[Cougar]

Le fil, le forum,

Merci pour votre aide