Ranger des valeurs suivant la date du mois en cours

Usineur54 · 17 Septembre 2012

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 · 17 Septembre 2012

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

BOnjour Usineur54,

Tu peux essayer:

Code:

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 · 17 Septembre 2012

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

Ranger des valeurs suivant la date du mois en cours

Usineur54

XLDnaute Nouveau

VDAVID

XLDnaute Impliqué

Usineur54

XLDnaute Nouveau

Discussions similaires

Ranger des valeurs suivant la date du mois en cours

Usineur54

XLDnaute Nouveau

VDAVID

XLDnaute Impliqué

Usineur54

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency