Vendredis 13

Le 14/02/2009 à 01:57

Bonjour a tous sur le Forum.

Encore une petite question...

Comment compter les vendredis 13 février depuis 1949 sous Excel ?

Est-ce possible de savoir aussi en quelles année c'est arriver ?

Je vous remercie d'avance de votre réponse.

Jacques

Le 14/02/2009 à 02:42

Salut le forum

Baril, une petite macro

Sub Les_Vendredi_13()
Dim Annee As Integer
Dim Mois As Byte
Dim Cellule As String
Dim Compteur As Byte

Cellule = "B2"
Compteur = 1
Columns("B:B").ClearContents

For Annee = 1949 To 2009
  For Mois = 1 To 12
    If Weekday(Mois & "/13/" & Annee) = 6 Then
        Range(Cellule).Offset(Compteur, 0) = "13-" & Format(Mois, "00") & "-" & Annee
        Compteur = Compteur + 1
    End If
  Next Mois
Next Annee
Range(Cellule).Offset(Compteur, 0) = "Nbre = " & Compteur - 1
End Sub

Mytå

Le 14/02/2009 à 03:05

Bonjour le Forum

Je te remercie beaucoup Mytå pour ta réponse rapide.

C'est super !!!

Jacques

Le 14/02/2009 à 18:06

Bonjour,

Pour le fun, une solution formule :

Date 1 en A1 et Date 2 en A2 :

Nombre de vendredis 13 :

=SOMMEPROD((JOUR(LIGNE(INDIRECT($A$1&":"&$A$2)))=13)*(JOURSEM(LIGNE(INDIRECT($A$1&":"&$A$2));2)=5))

Liste des vendredis 13 :

en C1 par exemple, une formule matricielle :

=SI(LIGNE()>SOMMEPROD((JOUR(LIGNE(INDIRECT($A$1&":"&$A$2)))=13)*(JOURSEM(LIGNE(INDIRECT($A$1&":"&$A$2));2)=5));"";PETITE.VALEUR(SI((JOURSEM(LIGNE(INDIRECT($A$1&":"&$A$2));2)=5)*(JOUR(LIGNE(INDIRECT($A$1&":"&$A$2)))=13)<>0;(JOURSEM(LIGNE(INDIRECT($A$1&":"&$A$2));2)=5)*(JOUR(LIGNE(INDIRECT($A$1&":"&$A$2)))=13)*LIGNE(INDIRECT($A$1&":"&$A$2)));LIGNE()))

Formule matricielle à valider par CTRL + MAJ + ENTREE

puis à recopier vers le bas.

Détail (important) : cette formule met un ..... certain temps à se calculer.

@+

Rechercher des sujets similaires à "vendredis"