Une partie de macro VBA sautée et non exécutée
Bonjour,
mon problème est que lors de l'exécution de ma macro ,j'ai constaté qu'il ya de sauts de lignes de codes.
voila la macro concernée :
Sub CalculDesJalons()
DéfinirDateJalons
ConversionDatesLivraison
Select Case DateLivraisonDSIConvertie
'2012_01R
Case DateLivraisonDSI2012_01R
DétailsJalons.DJDSIRecette = "18 / 1 / 2012"
DétailsJalons.DJDSISES = "2 / 1 / 2012"
DétailsJalons.DJDSICahierDesCharges = "30 / 9 / 2011"
DétailsJalons.DJDSIEDBTransmiseDSI = "9 / 9 / 2011"
DétailsJalons.DJDSILancement = "14 / 10 / 2012"
'2012_03R
Case DateLivraisonDSI2012_03R
DétailsJalons.DJDSIRecette = "19 / 3 / 2012"
DétailsJalons.DJDSISES = "20 / 2 / 2012"
DétailsJalons.DJDSICahierDesCharges = "12 / 12 / 2011"
DétailsJalons.DJDSIEDBTransmiseDSI = "28 / 11 / 2011"
DétailsJalons.DJDSILancement = "30 / 12 / 2011"
=>il parcourt cette cas et il saute directement vers la fin
'2012_06V
Case DateLivraisonDSI2012_06V
DétailsJalons.DJDSIRecette = "09 / 5 / 2012"
DétailsJalons.DJDSISES = "2 / 4 / 2012"
DétailsJalons.DJDSICahierDesCharges = "3 / 2 / 2012"
DétailsJalons.DJDSIEDBTransmiseDSI = "13 / 1 / 2012"
DétailsJalons.DJDSILancement = "10 / 2 / 2012"
'2012_09R
Case DateLivraisonDSI2012_09R
DétailsJalons.DJDSIRecette = "17 / 9 / 2012"
DétailsJalons.DJDSISES = "13 / 8 / 2012"
DétailsJalons.DJDSICahierDesCharges = "4 / 5 / 2012"
DétailsJalons.DJDSIEDBTransmiseDSI = "13 / 4 / 2012"
DétailsJalons.DJDSILancement = "15 / 5 / 2012"
'2012_11V
Case DateLivraisonDSI2012_11V
DétailsJalons.DJDSIRecette = "10 / 12 / 2012"
DétailsJalons.DJDSISES = "5 / 11 / 2012"
DétailsJalons.DJDSICahierDesCharges = "20 / 7 / 2012"
DétailsJalons.DJDSIEDBTransmiseDSI = "29 / 6 / 2012"
DétailsJalons.DJDSILancement = "3 / 8 / 2012"
'2012_12R
Case DateLivraisonDSI2012_12R
DétailsJalons.DJDSIRecette = "10 / 12 / 2012"
DétailsJalons.DJDSISES = "5 / 11 / 2012"
DétailsJalons.DJDSICahierDesCharges = "20 / 7 / 2012"
DétailsJalons.DJDSIEDBTransmiseDSI = "29 / 6 / 2012"
DétailsJalons.DJDSILancement = "3 / 8 / 2012"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'2013_01R
Case DateLivraisonDSI2013_01R
DétailsJalons.DJDSIRecette = "17 / 1 / 2013"
DétailsJalons.DJDSISES = "2 / 1 / 2013"
DétailsJalons.DJDSICahierDesCharges = "27 / 9 / 2012"
DétailsJalons.DJDSIEDBTransmiseDSI = "6 / 9 / 2012"
DétailsJalons.DJDSILancement = "11 / 10 / 2012"
'2013_03R
Case DateLivraisonDSI2013_03R
DétailsJalons.DJDSIRecette = "18 / 3 / 2013"
DétailsJalons.DJDSISES = "18 / 2 / 2013"
DétailsJalons.DJDSICahierDesCharges = "3 / 12 / 2012"
DétailsJalons.DJDSIEDBTransmiseDSI = "19 / 11 / 2012"
DétailsJalons.DJDSILancement = "26 / 12 / 2012"
'2013_06V
Case DateLivraisonDSI2013_06V
DétailsJalons.DJDSIRecette = "17 / 5 / 2013"
DétailsJalons.DJDSISES = "10 / 4 / 2013"
DétailsJalons.DJDSICahierDesCharges = "11 / 1 / 2013"
DétailsJalons.DJDSIEDBTransmiseDSI = "1 / 12 / 2012"
DétailsJalons.DJDSILancement = "21 / 1 / 2013"
'2013_09R
Case DateLivraisonDSI2013_09R
DétailsJalons.DJDSIRecette = "16 / 9 / 2013"
DétailsJalons.DJDSISES = "12 / 8 / 2013"
DétailsJalons.DJDSICahierDesCharges = "26 / 4 / 2013"
DétailsJalons.DJDSIEDBTransmiseDSI = "5 / 4 / 2013"
DétailsJalons.DJDSILancement = "14 / 5 / 2013"
'2013_11V
Case DateLivraisonDSI2013_11V
DétailsJalons.DJDSIRecette = "30 / 9 / 2013"
DétailsJalons.DJDSISES = "2 / 9 / 2013"
DétailsJalons.DJDSICahierDesCharges = "8 / 3 / 2013"
DétailsJalons.DJDSIEDBTransmiseDSI = "15 / 2 / 2013"
DétailsJalons.DJDSILancement = "29 / 3 / 2013"
'2013_12R
Case DateLivraisonDSI2013_12R
DétailsJalons.DJDSIRecette = "9 / 12 / 2013"
DétailsJalons.DJDSISES = "4 / 11 / 2013"
DétailsJalons.DJDSICahierDesCharges = "19 / 7 / 2013"
DétailsJalons.DJDSIEDBTransmiseDSI = "28 / 6 / 2013"
DétailsJalons.DJDSILancement = "2 / 8 / 2013"
'Autres Dates
Case DateLivraisonDSIAutre
DétailsJalons.DJDSIRecette = ""
DétailsJalons.DJDSISES = ""
DétailsJalons.DJDSICahierDesCharges = ""
DétailsJalons.DJDSIEDBTransmiseDSI = ""
DétailsJalons.DJDSILancement = ""
End Select
End Sub
ésperant etre claire dans mes explications .
merci d'avance.
Bonjour
Une macro d'1 km de long ce n'est pas intéressant
Mais tu notes
c'est normal, des qu'une correspondance est trouvée, il la traite puis va à la finnarrou a écrit :=>il parcourt cette cas et il saute directement vers la fin
C'est un fonctionnement normal
Salut Banzai64,
je t'explique :
je suis bien dac que dès qu'une correspondance est trouvée , il la traite , mais c'est ça que je voulais mais le problème qu'il me retourne mem résultat à chaque fois meme si je saisie une autre date (DateLivraisonDSIConvertie).
c'était claire !!!!!??
Bonjour
Alors si à chaque fois tu as le même résultat, cela provient surement de ta variable "DateLivraisonDSIConvertie"
Et sans ton fichier (en y expliquant ce que tu dois obtenir) cela ne va être évident de trouver une solution
Bonjour Banzai64,
donc le problème est résolu , c'était au niveau de la declaration de variable .
merci comme méme .