Ranger des valeurs suivant la date du mois en cours

[Usineur54]

Bonjour tous le monde,

Je voudrais ranger des valeurs dans 3 colonnes diférentes suivant la date du mois en cour.

Si la date du jour est >= au 15 alors ranger les données dans les colonnes B-D et E
Si la date du jour est < au 15 alors ranger les données dans les colonnes F-H et I

If "la date de ce jour" >= "au 15 du mois en cour" Then
Range("B80").End(xlUp).Offset(1, 0).Value = LibeleConvertit
Range("B80").End(xlUp).Offset(1, 0).Value = CDbl(Me.Montant)
Range("D80").End(xlUp).Offset(1, 1).Value = CDbl(Me.SommePayer)
GoTo fin
Else
Range("F80").End(xlUp).Offset(1, 0).Value = LibeleConvertit
Range("H80").End(xlUp).Offset(1, 0).Value = CDbl(Me.Montant)
Range("H80").End(xlUp).Offset(1, 1).Value = CDbl(Me.SommePayer)
End If

Si quelqun pourrais m'aider Merci

 

[VDAVID]

Re : Ranger des valeurs suivant la date du mois en cours

BOnjour Usineur54,

Tu peux essayer:

If Day(date) >= 15 Then
Range("B80").End(xlUp).Offset(1, 0).Value = LibeleConvertit
Range("B80").End(xlUp).Offset(1, 0).Value = CDbl(Me.Montant)
Range("D80").End(xlUp).Offset(1, 1).Value = CDbl(Me.SommePayer)
GoTo fin
Else
Range("F80").End(xlUp).Offset(1, 0).Value = LibeleConvertit
Range("H80").End(xlUp).Offset(1, 0).Value = CDbl(Me.Montant)
Range("H80").End(xlUp).Offset(1, 1).Value = CDbl(Me.SommePayer)
End If

BOnne soirée

 

[Usineur54]

Re : Ranger des valeurs suivant la date du mois en cours

Bonjour VDAVID et, merci pour ton aide.

J'ai réussis de cette façon :

dat = Day(Date)
If dat >= 15 Then
Range("F80").End(xlUp).Offset(1, 0).Value = LibeleConvertit
Range("H80").End(xlUp).Offset(1, 0).Value = CDbl(Me.Montant)
Range("H80").End(xlUp).Offset(0, 1).Value = CDbl(SommePayer)
GoTo fin
Else
Range("B80").End(xlUp).Offset(1, 0).Value = LibeleConvertit
Range("D80").End(xlUp).Offset(1, 0).Value = CDbl(Me.Montant)
Range("D80").End(xlUp).Offset(0, 1).Value = CDbl(SommePayer)
End If