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.!
etc...
Merci d'avance.
Willnet
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.!
Code:
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