Extration du jour/mois/année et faction

bonjour

j'ai un fichier excel dans le lequel je voudrais écrire en VBA les fonctions suivantes

colonne R : =JOUR(LC(-8))

colonne S : =MOIS(J2)

colonne T : =ANNEE(J2)

colonne U : =SI(ET(HEURE(J2)>=4;HEURE(J2)<12);"A";SI(ET(HEURE(J2)>=12;HEURE(J2)<20);"B";"C"))

j'ai essayé de transformer un enregistrement automatique de macro, mais avec les date et les heures je bug

Sub jour_mois_année_faction()

Dim ligne As Integer

ligne = 2

Do While Cells(ligne, 1).Value <> ""

Cells(ligne, 18) = Application.WorksheetFunction.Day(Cells(ligne, 10))

ligne = ligne + 1

Loop

End Sub

Si quelqu'un pouvait m'expliquer et me trouver la solution

merci d'avance à tous

cordialement

philippe

Bonjour,

Je te laisse essayer le programme lié au bouton, il s'appelle Formules.

Bonjour,

VBA dispose déjà d'un certain nombre de fonctions sur les dates, sans avoir besoin de passer par celles d'Excel.

Un lien utile (merci encore à J. Boisgontier !) :

http://boisgontierjacques.free.fr/pages_site/FonctionsDates.htm

bonjour à pedro22 et Ausecour

je vous remercie pour vos réponses, j'ai bien résolu mon problème.

j'ai trouvé le lien de pedro22 très intéressant si tu as d'autre comme ça je suis preneur

merci encore à vous 2

Philippe