Problème de condition de contenu de cellule

[willnet]

Bonjour,

novice en VBA, je bloque sur une condition dans un code:

je cherche à ce que si ma cellule (qui contient une date sous le format jj/mm/yyyy ) contient une date avec le mois de janvier (et idem avec février, mars, avril, etc...)
afin que le contenu de certaines cellules soient copié dans une autre feuille.

Voici ce que j'ai pour le moment mais je ne trouve pas comment formuler la condition par rapport à la date.!

Sheets("fiche_paie").Select
Range("D6").Select

 If ActiveCell.?????? Then
  Sheets("donnees").Range("R" & X).Value = Sheets("fiche_paie").Range("D12").Value
  Sheets("donnees").Range("S" & X).Value = Sheets("fiche_paie").Range("D13").Value
  Sheets("donnees").Range("T" & X).Value = Sheets("fiche_paie").Range("C12").Value
  Sheets("donnees").Range("U" & X).Value = Sheets("fiche_paie").Range("G40").Value
 Else
 
  If ActiveCell.????? Then
   Sheets("donnees").Range("V" & X).Value = Sheets("fiche_paie").Range("D12").Value
   Sheets("donnees").Range("W" & X).Value = Sheets("fiche_paie").Range("D13").Value
   Sheets("donnees").Range("X" & X).Value = Sheets("fiche_paie").Range("C12").Value
   Sheets("donnees").Range("Y" & X).Value = Sheets("fiche_paie").Range("G40").Value

etc...

Merci d'avance.

Willnet

 

[Pierrot93]

Re : Problème de condition de contenu de cellule

Bonsoir,

regarde peut être du coté de la fonction "month", exemple ci-dessous test si mois de janvier :

If Month(ActiveCell.Value) = 1 Then

bonnne soirée
@+