XL 2019 Faire somme avec offsset renvoi 0

[Hoareau]

Bonjour

la formule ci-dessous me donne comme total 0, alors qu'il y a des valeurs dans les cellules
j'ai supposé, comme les valeurs étaient avant du texte, qu'il fallait les rendre numériques
j'ai don essayé :
ActiveCell.Offset(0, 3) = Val(ActiveCell.Offset(0, 3))
ActiveCell.Offset(0, 3).NumberFormat = "0.00"

ActiveCell.Offset(0, 4) = Val(ActiveCell.Offset(0, 4))
ActiveCell.Offset(0, 4).NumberFormat = "0.00"

le résultat est toujours le même 0 et non pas 0.00, comme cela aurrai du être le cas

Total = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(0, 3).Address & ":" & ActiveCell.Offset(0, 4).Address))

ActiveCell.Offset(0, 6).Value = Total

merci

 

[Hoareau]

j'ai fini par trouver, j'ai oublié text à la fin

ActiveCell.Offset(0, 3) = Val(ActiveCell.Offset(0, 3).Text)

 

[dysorthographie]

 Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 4)))

 

[Hoareau]

merci

il me semble que c'était ma première formule, après comme l'affichage était à 0, j'ai cherché pourquoi, et ne suis plus revenu sur cette ligne

 

[dysorthographie]

pas exactement,
Toi

Total = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(0, 3).Address & ":" & ActiveCell.Offset(0, 4).Address))

MOI

Total = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 4)))

 

[Hoareau]

Quand j'ai écrit le code , pas dans le contenu du message
Quand j'ai vu cela ne fonctionnait pas, j'ai testé plusieurs choses, alors que l'errreur venait du fit qu'il fallait ajouter .text pour que la somme se fasse, après je suis passé à autre chose d'où les .address et &
c'est bien, cela m'as permit de ne pas garder en mémoire une formule compliquée, alors qu'il y en avait une de simple