Bonjour à tous.
Je rencontre un soucis sur l'utilisation d'un document dans lequel j'ai créer deux fonctions. Sur ma feuille ces deux fonctions sont utilisées. Lorsque je fait un copier-coller d'une case quelconque, Excel mouline 10s. Si je fait Echap à ce moment là je retombe sur une de ces deux fameuses fonctions (qui doivent tourner en boucle).
Quelqu'un aurait-il une idée ?
Function Semaine(Date1 As Double)
'Renvoie la semaine d'une date au format ASS (jj/mm/aaaA > ASS)
Application.Volatile
Semaine = Mid(Year(Date1), 4, 1) * 100 + WorksheetFunction.WeekNum(Date1)
End Function
Function DiffSemaine(Semaine1, Semaine2 As Double)
'Renvoie le nombre de semaine entre deux date au format ASS - AS*S*
Application.Volatile
DiffSemaine = (Int(Semaine1 / 100) - Int(Semaine2 / 100)) * 52 + (Semaine1 Mod 100) - (Semaine2 Mod 100)
End Function
Je rencontre un soucis sur l'utilisation d'un document dans lequel j'ai créer deux fonctions. Sur ma feuille ces deux fonctions sont utilisées. Lorsque je fait un copier-coller d'une case quelconque, Excel mouline 10s. Si je fait Echap à ce moment là je retombe sur une de ces deux fameuses fonctions (qui doivent tourner en boucle).
Quelqu'un aurait-il une idée ?
Function Semaine(Date1 As Double)
'Renvoie la semaine d'une date au format ASS (jj/mm/aaaA > ASS)
Application.Volatile
Semaine = Mid(Year(Date1), 4, 1) * 100 + WorksheetFunction.WeekNum(Date1)
End Function
Function DiffSemaine(Semaine1, Semaine2 As Double)
'Renvoie le nombre de semaine entre deux date au format ASS - AS*S*
Application.Volatile
DiffSemaine = (Int(Semaine1 / 100) - Int(Semaine2 / 100)) * 52 + (Semaine1 Mod 100) - (Semaine2 Mod 100)
End Function