Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

erreurs de calcul

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion HERBIN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

HERBIN

Guest
bonjour
j'ai un souci pour trouver le chiffre d'affaires saisonnalisé en vba, sous excel on applique la formule suivante :
=B2/$K$7
=B3/$K$8
=B4/$K$9
=B5/$K$10
ensuite on sélectionne les cellules et on fait une recopie vers le bas: ça marche les résultats sont justes
par contre en langage vba j'ai la formule suivante :
' calcul du chiffre d'affaires saisonalisés
' calcul du chiffre d'affaires saisonalisés
Code: 
For i = 2 To DerLig
   Select Case (i - 1) Mod 4
        Case 1
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim1
        Case 2
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim2
        Case 3
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim3
        Case 0
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / Trim4
    End Select
Next i


on trouve pas le meme résultat , je ne trouve pas mon erreur:
merci pour votre aide
bien cordialement
herbin
 

Pièces jointes

Trier par date Trier par votes
Re : erreurs de calcul

Bonjour,

Il me semble qu'en "manuel" tu utilises dans ton calcul les valeurs de Trim de K1 à K7 et qu'en "auto", le Trim utilisé donne des valeurs équivalentes à celles que tu as indiquées en M2 à M5 ...(mets les deux plages à 6 décimales pour mieux voir sur la feuille et fais un point d'arrêt sur la boucle que tu as indiquée ci-dessus puis continue avec F8 en VBA pour lire les valeurs en passant le curseur sur Trim1 ...etc)

Mais ce n'est peut-être pas cela ...

EDIT : Grillé au poteau!

Cordialement
 
Vote positif 0 Vote négatif
Re : erreurs de calcul

Bonjour

dans un cas tu divises par les valeurs M2 et suivantes, dans l'autre cas par N2 et suivantes

logique que tes résultats soient différents (affiche les décimales en M et N


edit : moi c'est roussi au poteau !!!!!!!
 
Vote positif 0 Vote négatif
Re : erreurs de calcul

Comme ceci, on trouve pareil qu'en manuel...

Code: 
For i = 2 To DerLig
   Select Case (i - 1) Mod 4
        Case 1
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim1 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
        Case 2
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim2 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
        Case 3
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim3 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
        Case 0
            Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim4 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
    End Select
Next i

Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
733
kiki29
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
819
KRUG WOO
K
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
872
piga25
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
614
Aya_flo
A
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
328
patricktoulon
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
R
  • Question Question
XL 2019 Transpose et limiter nombre de valeur
Réponses
1
Affichages
468
Rabeto
R
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
1 K
Compte Supprimé 979
C
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
626
Eric 888
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
4 K
saidoush
S
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
1 K
cathodique
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…