Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation

[Olihoes]

Bonjour à tous,


J'ai besoin de votre aide pour 2 soucis que je n'arrive pas à résoudre :
(Je sais que certaines choses paraissent étranges dans ce tableau, mais je dois simuler certaines données qui n'ont pas été fournies par les chauffeurs les années précédentes)

1)
J'ai grâce à l'aide de ce forum pu avoir un premier bouton qui effaçait les cellules se rapportant aux jours où on ne fait pas de plein du véhicule.
Vous m’avez fourni 2 solutions : (Encore merci à Sylvanu et CHRIS1945)
J'ai dans un premier temps utilisé la première (Macro nettoyage) mais j'ai dû ensuite rajouter une ligne pour chaque jour de l'année dans mon tableau ... :-(
Et étant assez nul je n'ai jamais réussi à modifier cette Macro nettoyage pour qu'elle supprime 3 cellules au lieu de deux.
J'ai donc utilisé la seconde Macro (Macro MAJ) que j'ai réussi à modifier pour supprimer également les lignes kilométrages que j'ai dû rajouter.

La Macro "nettoyage" donnait un résultat instantané tandis que l'autre mettait 2 ou 3 secondes à effacer les cellules superflues.
Mais maintenant, je ne sais pas ce que j'ai pu faire comme bêtise mais la macro MAJ met bien 5 minutes à s'exécuter...

Si vous pouviez modifier la macro "nettoyage" qui semblait plus rapide pour qu'elle puisse également effacer 3 cellules au lieu de 2.
(La macro affectée au bouton est actuellement celle "MAJ" que j'ai modifié)

2)
J'aurais besoin d'un second bouton qui calculerait la valeur des cellules "kilométrage" restantes après la macro du premier bouton en estimant le kilométrage par rapport à la consommation moyenne fournie au-dessus du tableau et au nombre de litre mis par le chauffeur ce jour-là.
En modifiant le résultat d'un nombre aléatoire (par exemple entre -40 et 40) pour avoir des données de kilométrage + réaliste qu'une consommation qui resterait parfaitement fixe toute l'année.

Pour l'instant j'ai mis une formule basique dans les cellules "kilométrage"(sans l'ajout de la valeur aléatoire) qui fonctionne tant que mon tableau est plein, mais dès que j'effacerai les cellules des jours où il n'y a pas eu de plein ma formule ne fonctionnera plus…


Merci d’avance pour votre aide.


Olivier

 

[sylvanu]

Bonjour,
Je pense qu'il suffit de changer :

Tablo = Range("A9:Q" & [A10000].End(xlUp).Row)
en
Tablo = Range("A9:U" & [A10000].End(xlUp).Row)

A vérifier.

 

[Olihoes]

Non j'avais essayé cela avant de vous déranger à nouveau mais à première vue ça ne fonctionne pas.
Si je rajoute un nombre de litre il ne calcule pas de kilométrage pour les dernière colonnes.

 

[sylvanu]

Oups, excat.
Il faut modifier aussi :

For Vehicule = 4 To 21

Pour aller jusqu'à la dernière colonne.

 

[Olihoes]

Et oui tout simplement ... 😅

Encore un grand merci pour votre aide.
Au cas où donnez-vous aussi votre aide professionnellement?
Car si j'ai d'autres modifications à faire pour améliorer ce fichier ça me gênerais d'encore prendre de votre temps sans rien en retour...

 

[sylvanu]

Au cas où donnez-vous aussi votre aide professionnellement?

Merciiiiii beaucoup ...

Moi, ça me suffit. 🙂
On fait ça pour le plaisir car passionnés par XL et les challenges.
Alors postez tant que vous voulez. 😉

 

[Olihoes]

Moi, ça me suffit. 🙂
On fait ça pour le plaisir car passionnés par XL et les challenges.
Alors postez tant que vous voulez. 😉

D'accord... Mais si vous changé d'avis n'hésitez pas.
Tout travail mérite salaire ;-)

Normalement je pense que pour les années écoulées le fichier actuel sera bon.
Mais partir de l'année 2024 j'aurai aimé que le fichier calcule aussi ce que je dois déclarer l'administration.
J'aurais très certainement besoin de votre aide car le calcul me semble assez difficile à appliquer dans mon tableau...

Déjà merci pour votre aide sur le fichier actuel 🙂

 

[sylvanu]

le fichier calcule aussi ce que je dois déclarer l'administration.

Faire un calcul fiscal n'est jamais simple. 😅
Il faut toujours partir du décret d'application qui donne les modalités.

 

[Olihoes]

Faire un calcul fiscal n'est jamais simple. 😅
Il faut toujours partir du décret d'application qui donne les modalités.

Si vous avez envie de vous casser un peu la tête dessus 😉 l'administration m'a donné un fichier Excel pour me montrer un exemple de comment on doit calculer les différents montants à déclarer.
C'est pour se faire rembourser une partie des accises sur le diesel consommé par nos camions (véhicules admis).
Il y a différents "cliquets" durant l'année (qui changent chaque année) et on doit déterminer le nombre de litres admis pour chaque cliquet durant l'année.
Ils donnent les détails dans le fichier, mais en gros on ne passe pas au cliquet suivant tant que tout les litres de diesel du dernier approvisionnement n'a pas été totalement écoulé.

 

[sylvanu]

Bonjour,
Ouvrez un nouveau post car ce problème est loin du sujet abordé par le titre de ce post.
Cela permettra en plus d'attirer plus de contributeurs car on ne lit guère les post déjà solutionnés. (hors recherches)

 

[Olihoes]

Bonjour,
Ok, je vais déjà finir de compléter le fichier actuel avec les années précédentes.
Et quand je commencerai à bosser sur le prochain fichier je posterai ici dés que je suis bloqué.
Assez rapidement surement ....😅

 

[Olihoes]

Bonjour Sylvanu,

Je me rends compte maintenant d'un petit détail qui m'ennuie.
Pour la macro que tu m'as donné qui calcule le kilométrage, pourrais tu faire en sorte que le résultat soit un nombre entier?

Merci d'avance

​

 

[sylvanu]

Bonjour,
Dans le code de "Kilométrages" remplacez :

km = (AjoutAlea + km_init + 100 * Tablo(L, Vehicule) / Conso)
par
km = Round((AjoutAlea + km_init + 100 * Tablo(L, Vehicule) / Conso), 0)

Comme ça il fera l'arrondi entier du nombre calculé.

 

[Olihoes]

Merciiiii 🙂