Contenu récent par bsalv

bonjour, d'accord pour ce remarque, mais pour le reste, on se triche soi-même avec ces calculations, surtout si le solde final en litres n'est pas ce qu'on a calculé. On a 14 875 € à répartir entre la consommation et le stock final, donc on ne calcule pas au centième près !

c'est ridicule que votre stock pour 2026 aura un prix moyenne de 98.03€/100L au lieu de 93.15€/100L, ce qui me semble plus logique. Comme ça, vous ajouter des coûts (environ 240€) à l'année prochaine qui devraient être chargé cette année.

comme je l'ai dit dans l'autre question, il faut utiliser le système "FIFO" pour calculer les prix des consommations intermédiaires. A mon avis, la consommation est 11.274 litres, EDIT : nouveau fichier avec ce nouveau compteur.

désolé, mais, à mon avis, ces formules n'étaient pas correct, donc je corrige pas ce tableau.

normallement on utilise un système "FIFO", First IN, First OUT, pour cela .... et si on lit régulièrement le compteur, la consommation se calcule facilement.

allez, j'avais dit cela tout au début, poste #3 🙈

@job75 https://stackoverflow.com/questions/45602726/range-replace-is-always-true-for-chr1

union prend trop de temps, si le nombre de "areas" est assez grand, donc là, il y a des possibilités, mais cela vaut la peine ?

okay, pour moi, cela suffit aussi ...

je ne comprends pas la question, votre fonction, est-elle plus performante que "specialcells" ? Je ne le crois pas. Supposons qu'on le fait avec 500 lignes au lieu d'une trentaine.

allez ....

c'est plus facile à répondre si on a un fichier ...

si on a payé, on est dans la liste et puis en feuille "Feuil1", on a le résultat en 4 colonnes

je pense qu'on fait quelques erreurs : If Worksheet.Cells.Rows.Hidden Then Exit Function ne vérifie que la première ligne, si la première ligne est cachée alors le résultat sera "Vrai", le reste est sans importance. Mieux serait de vérifier ceci : if worksheet.cells(rows.count,1).top=0 then...

autre méthode peut-être plus fiable Sub Test() MsgBox IIf(f_Visible(Sheets("Feuil1").Cells), "une/plusieurs ", "aucune ") & " cellule(s) visible(s)" End Sub Function f_Visible(Plage As Range) Dim c1 As Range, c2 As Range Set c1 = Plage.Find("*", lookat:=xlWhole) Set c2 =...