Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème de condition de contenu de cellule

willnet

XLDnaute Nouveau
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.!
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
 

Pierrot93

XLDnaute Barbatruc
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 :
Code:
If Month(ActiveCell.Value) = 1 Then

bonnne soirée
@+
 

Discussions similaires

Réponses
28
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…