Repartition du chiffres d'affaires
h
Bonjour à tous,
J'ai un fichier avec un CA théorique et un chiffres d'affaire réel, j'ai une cellule de calcul avec la différence.
Je souhaiterai faire une répartition d'un chiffre d'affaire non réalisé sur les jours suivants de manière équitable, mais aussi choisir si un jour je décide de faire plus ou moins.
J'aimerai savoir si vous pouvez m'aider dans cette demande.
Bien à vous tous.
J'ai un fichier avec un CA théorique et un chiffres d'affaire réel, j'ai une cellule de calcul avec la différence.
Je souhaiterai faire une répartition d'un chiffre d'affaire non réalisé sur les jours suivants de manière équitable, mais aussi choisir si un jour je décide de faire plus ou moins.
J'aimerai savoir si vous pouvez m'aider dans cette demande.
Bien à vous tous.
Invité
Bonjour homernell
Voici déjà le code pour la répartition du CA
Sub RépartitionCA()
Dim Lig As Long
Dim CAàRep As Single, CaTot As Single, ValCa As Single
CAàRep = Abs(Range("E19"))
For Lig = 3 To 18
If Range("D" & Lig).Value <> "" Then GoTo SuiteLig1
CaTot = WorksheetFunction.Sum(Range("C" & Lig & ":C18"))
Exit For
SuiteLig1:
Next Lig
' ensuite on fait la répartition
For Lig = 3 To 18
If Range("D" & Lig).Value <> "" Then GoTo SuiteLig2
ValCa = Round(Range("C" & Lig).Value / CaTot * CAàRep, 0)
Range("D" & Lig).Value = ValCa
SuiteLig2:
Next Lig
End SubA vous de vous en inspirer pour les + et -
h
Re,
Déjà merci.
Mais alors pas sûr de tout suivre, n'ayant pas ton niveau de compétence je ne sais pas trop quoi faire de ce code mais je vais essayer 🤞
Invité
Bonjour homernell
Mince, voici le fichier ça va être compliqué pour le reste alors
mais pas envie de me lancer sur ce sujet, désolé
A+