la fonction worksheetfunction.sum ne marche pas

Version imprimable

1 pièce(s) jointe(s)

Bonjour et avant tous merci pour votre temps,

j'ai un fichier qui contient des données correspond à des véhicules (date,heure,Véhicule,num,volume... etc)
tout d'abord j'ai fait le regroupement des lignes de ce fichier par véhicule (c'est à dire matricule) et une fois la matricule change j'ajoute une nouvelle ligne qui va contenir la somme des cellules de chaque colonne(voir image).

Pièce jointe 254455

voilà la partie du macro qui fait ça:
Code:

1 2 3 Range("F" & j) = WorksheetFunction.Sum(Range(Range("F" & K), Range("F" & j - 1))) Range("G" & j) = WorksheetFunction.Sum(Range(Range("G" & K), Range("G" & j - 1))) Range("I" & j) = WorksheetFunction.Sum(Range(Range("I" & K), Range("I" & j - 1)))
mon problème est le suivant de la colonne G "volume" comme vous voyez les données viennent avec des virgule (46,20/51,20...) et la fonction WorksheetFunction.Sum ne le traite pas comme étant des doubles; alors j'aurai des problèmes au niveau des résulta.

Est ce que c'est possible d'avoir une solution sans passer par la modification des données ( remplacer ',' par '.') :calim2: :calim2: :calim2: ?????

Bonjour,

pour le remplacement des virgule par point, vous pouvez le faire à partir de l'enregistreur de macros
Code:

1 2 3 4 Range("A1:A100").Select Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False
A adapter bien sur
merci

15/03/2017, 20h23
Invité

Bonsoir,
https://www.developpez.net/forums/d1...e/#post9092464
15/03/2017, 20h35
unparia

Bonjour
La lecture de ton code me laisse perplexe, Nicolas JACQUIN
Si tu penses que (par exemple) :

Code:

Range("G" & j) = WorksheetFunction.Sum(Range(Range("G" & K), Range("G" & j - 1)))

te retourne la somme des valeurs de la colonne G, de la ligne K à la ligne j-1, tu es dans une erreur fondamentale !
Ne pas confondre la plage résultant de plages séparées par un "," avec la plage résultant de plages séparées par un ":". Ce n'est pas du tout du tout du tout du tout la même chose !
Ouvre donc tout simplement ton aide VBA à la rubrique Worksheetfunction.Sum, lis et (surtout) applique.