fonction date VBA

fonction date VBA - VB/VBA/VBS - Programmation

Marsh Posté le 10-09-2007 à 16:58:04    

Bonjour à tous, j'espère que vous avez passé un bon WD.  
j'ai un petit problème à vous soumettre.  
voilà, je voudrai savoir s'il était possible de créer le code pour une fonction excel qui me permettrait de trouver le numéro de la semaine d'une date donnée ( c'est le même principe que =jour(date) ou =mois(date).  
merci

Reply

Marsh Posté le 10-09-2007 à 16:58:04   

Reply

Marsh Posté le 10-09-2007 à 17:18:19    


Function NumeroSemaine(ByVal DDate As Date) As Integer
Dim n As Integer
    n = Int((DDate - DateSerial(Year(DDate), 1, 1) + ((Weekday(DateSerial(Year(DDate), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
    If n = 0 Then
        n = NumeroSemaine(DateSerial(Year(DDate) - 1, 12, 31))
    ElseIf n = 53 And (Weekday(DateSerial(Year(DDate), 12, 31)) - 1) Mod 7 <= 3 Then
        n = 1
    End If
    NumeroSemaine = n
End Function
 
Function NSem(ByVal ddate As Date) As Integer
Dim t As Long
  t = DateSerial(Year(ddate + (8 - Weekday(ddate)) Mod 7 - 3), 1, 1)
  NSem = ((ddate - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
End Function
 
Function NumSem(ByVal D As Date) As Integer
  NumSem = DatePart("ww", D, vbMonday, vbFirstFourDays)
End Function


etc il en existe quantité d'autres
un détail qui me semble aller de soi
 
Création Fonction Personnalisée
__________________________
 
Le code est à placer dans un Module standard  
[Alt+F11] Menu Insertion | Module  
 
Ensuite sous Excel  
Sélectionner la cellule de destination  
Menu Insertion | Fonction | Catégorie : Personnalisées  
Sélectionner la Fonction_Désirée
l'assistant apparait etc  
 
Sinon par Exemple A2 =Fonction_Désirée(A1)


Message édité par kiki29 le 10-09-2007 à 23:57:27
Reply

Marsh Posté le 11-09-2007 à 08:49:33    

merci bcp.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed