Discussion :

[souhail77]

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).



voilà la partie du macro qui fait ça:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

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 '.') ?????

[Nicolas JACQUIN]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonsoir,
https://www.developpez.net/forums/d1...e/#post9092464

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.