'---------------------- Sub test() Dim x As Date, Result As String Dim LastLg As Long, n As Byte n = 1 [E2].CurrentRegion.ClearContents [E1] = "N° Semaine": [F1] = "Du": [G1] = "Au" For x = "1/1/" & Year(Now) To "31/12/" & Year(Now) If Format(x, "dddd") = "mercredi" Then LastLg = [E65000].End(xlUp).Row + 1 Range("E" & LastLg) = n Range("F" & LastLg) = Format(x, "dd.mm.yyyy") 'Range("F" & LastLg).NumberFormat = "dd.mm.yyyy" Range("G" & LastLg) = Format(x + 6, "dd.mm.yyyy") n = n + 1 End If Next End Sub '----------------------
Une solution :
'----------------------
Sub test()
Dim x As Date, Result As String
Dim LastLg As Long, n As Byte
n = 1
[E2].CurrentRegion.ClearContents
[E1] = "N° Semaine": [F1] = "Du": [G1] = "Au"
For x = "1/1/" & Year(Now) To "31/12/" & Year(Now)
If Format(x, "dddd") = "mercredi" Then
LastLg = [E65000].End(xlUp).Row + 1
Range("E" & LastLg) = n
Range("F" & LastLg) = Format(x, "dd.mm.yyyy")
'Range("F" & LastLg).NumberFormat = "dd.mm.yyyy"
Range("G" & LastLg) = Format(x + 6, "dd.mm.yyyy")
n = n + 1
End If
Next
End Sub
'----------------------
'---------------------- Sub test() Dim x As Date, Result As String Dim LastLg As Long, n As Byte n = 1 [E2].CurrentRegion.ClearContents [E1] = "N° Semaine": [F1] = "Du": [G1] = "Au" For x = "1/1/" & Year(Now) To "31/12/" & Year(Now) If Format(x, "dddd") = "mercredi" Then LastLg = [E65000].End(xlUp).Row + 1 Range("E" & LastLg) = n Range("F" & LastLg) = Format(x, "dd.mm.yyyy") 'Range("F" & LastLg).NumberFormat = "dd.mm.yyyy" Range("G" & LastLg) = Format(x + 6, "dd.mm.yyyy") n = n + 1 End If Next End Sub '----------------------
MichD
Bonjour,
Cette formule te retourne le premier jeudi à partir d'un mois donné :
Dans la cellule A1 = 01/01/2012
=$A$1-JOUR($A$1)+8-JOURSEM($A$1-JOUR($A$1)-4)
Si tu veux connaître la date du premier lundi du mois de janvier
=$A$1-JOUR($A$1)+8-JOURSEM($A$1-JOUR($A$1)-4)-3
à partir de cette date, tu ajoutes 7 pour déterminer le début de toutes les semaines. Tu tires la formule sur ta plage de cellules...
Si en A1, tu as une date dans un format reconnu par Excel =ENT((A1-(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)-JOURSEM(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)))+5)/7)
Est-ce que le format de la cellule a un format "DATE" ? Si tu élargis la colonne, est-ce que la date s'affiche à droite ou à gauche dans la cellule?
Si tu double-cliques la cellule, est-ce que la formule fonctionne lorsque tu sors de la cellule?
Il n'y a aucune raison pour que cette formule ne fonctionne pas!
Si en A1, tu as une date dans un format reconnu par Excel
=ENT((A1-(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)-JOURSEM(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)))+5)/7)
Est-ce que le format de la cellule a un format "DATE" ?
Si tu élargis la colonne, est-ce que la date s'affiche à droite ou à gauche dans la
cellule?
Si tu double-cliques la cellule, est-ce que la formule fonctionne lorsque tu sors de la
cellule?
Il n'y a aucune raison pour que cette formule ne fonctionne pas!
Si en A1, tu as une date dans un format reconnu par Excel =ENT((A1-(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)-JOURSEM(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)))+5)/7)
Est-ce que le format de la cellule a un format "DATE" ? Si tu élargis la colonne, est-ce que la date s'affiche à droite ou à gauche dans la cellule?
Si tu double-cliques la cellule, est-ce que la formule fonctionne lorsque tu sors de la cellule?
Il n'y a aucune raison pour que cette formule ne fonctionne pas!
Ben, chez moi, l'Amérique, le Canada et la Belgique sont d'accord. Dans la cel, j'ai mis = aujourdhui(), pour être on ne peut plus certain. Et qu'est-ce que Excel me dit ? ---> 25 Ah, le brave. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : jrpl22$rk9$
Cette formule fonctionne correctement :
Si en A1, tu as une date dans un format reconnu par Excel =ENT((A1-(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)-JOURSEM(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)))+5)/7)
Est-ce que le format de la cellule a un format "DATE" ? Si tu élargis la colonne, est-ce que la date s'affiche à droite ou à gauche dans la cellule?
Si tu double-cliques la cellule, est-ce que la formule fonctionne lorsque tu sors de la cellule?
Il n'y a aucune raison pour que cette formule ne fonctionne pas!
Ben, chez moi, l'Amérique, le Canada et la Belgique sont d'accord.
Dans la cel, j'ai mis = aujourdhui(), pour être on ne peut plus certain.
Et qu'est-ce que Excel me dit ? ---> 25
Ah, le brave. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
jrpl22$rk9$1@speranza.aioe.org...
Cette formule fonctionne correctement :
Si en A1, tu as une date dans un format reconnu par Excel
=ENT((A1-(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)-JOURSEM(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)))+5)/7)
Est-ce que le format de la cellule a un format "DATE" ?
Si tu élargis la colonne, est-ce que la date s'affiche à droite ou à gauche
dans la
cellule?
Si tu double-cliques la cellule, est-ce que la formule fonctionne lorsque tu
sors de la
cellule?
Il n'y a aucune raison pour que cette formule ne fonctionne pas!
Ben, chez moi, l'Amérique, le Canada et la Belgique sont d'accord. Dans la cel, j'ai mis = aujourdhui(), pour être on ne peut plus certain. Et qu'est-ce que Excel me dit ? ---> 25 Ah, le brave. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "MichD" a écrit dans le message de groupe de discussion : jrpl22$rk9$
Cette formule fonctionne correctement :
Si en A1, tu as une date dans un format reconnu par Excel =ENT((A1-(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)-JOURSEM(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)))+5)/7)
Est-ce que le format de la cellule a un format "DATE" ? Si tu élargis la colonne, est-ce que la date s'affiche à droite ou à gauche dans la cellule?
Si tu double-cliques la cellule, est-ce que la formule fonctionne lorsque tu sors de la cellule?
Il n'y a aucune raison pour que cette formule ne fonctionne pas!
