Addition format date et nombreRésolu

Question

bonjour, j'ai un problème avec un code sur vba avec Excel. voici le code que j'ai fait:

Sheets("SGBBE").Select
    ActiveSheet.[AA].Select
    Selection.End(xlDown).Select
        If Selection.Address = "$A$65536" Then
            Range("AA").Offset(1, 0).Select
        Else
            Selection.Offset(1, 0).Select
        End If
    ActiveCell.Value = UserForm1.Montantpret.Value
        ActiveCell.NumberFormat = "#,##0"
    ActiveCell.Offset(0, 1).Value = UserForm1.Datedeblocage.Value
        ActiveCell.Offset(0, 1).NumberFormat = "dd.mm.yyyy"
    ActiveCell.Offset(0, 2).Value = UserForm1.Taux.Value / 100
        ActiveCell.Offset(0, 2).NumberFormat = "0.00%"
    ActiveCell.Offset(0, 3).Value = UserForm1.Remboursement
        If Remboursement = "Mensuel" Then
            ActiveCell.Offset(0, 5).Value =date(year(datedeblocage),month(datedeblocage+nbreecheances))
            ElseIf Remboursement = "Trimestriel" Then
            activecell.Offset(0,5).ValueElseIf Remboursement "Semestriel" Then
            activecell.Offset(0,5).ValueElseIf Remboursement "In fine" Then
            activecell.Offset(0,5).ValueActiveCell.Offset(0, 5).NumberFormat "dd.mm.yyyy"
        End If
    ActiveCell.Offset(0, 4).Value = UserForm1.Nbreecheances.Value
        ActiveCell.Offset(0, 4).NumberFormat = "#,##0"
        
Unload Me

End Sub

Mon problème c'est à partir de "If Remboursement = "Mensuel"". j'aimerais que dans la cellule offset(0,5) ça m'additionne la datedeblocage avec le nbreecheances afin de me donner la date de la dernière échéance... mais moi j'arrive pas à le faire (suis pas très doué en programmation). donc merci d'avance si quelqu'un pouvait m'aider.

jrivet · Accepted Answer

Re,
Ou bien en corrigeant ta ligne 

ActiveCell.Offset(0, 5).Value = DateSerial(Year(Datedeblocage), Month(Datedeblocage)
 + Nbreecheances, Day(Datedeblocage))

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

Regarde du côté de : DateAdd et DateDiff

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_moustachu · Answer

Bonjour,
Utilise DateSerial à la place de Date

++
 Moustachu

Landoltp · Answer

merci pour vos réponses, mais arrive toujours pas. j'ai mis ça:

ActiveCell.Offset(0, 5).Value = DateSerial(Year(Datedeblocage), Month(Datedeblocage + Nbreecheances), Day(Datedeblocage))

comme exemple, la date de déblocage est le: 12.06.2007
               le nbreecheances est de: 23
il fautdrait dons que la date dernière échéance soit égale au: 12.05.2009

jrivet · Answer

Salut,
regarde ceci:

Dim Echeance As Date
Dim Deblocage As Date

Deblocage = DateSerial(2007, 6, 12)
Echeance = DateAdd("M", 23, Deblocage)
MsgBox Echeance

@+: Ju£i?n
Pensez: Réponse acceptée

Landoltp · Answer

ça marche parfaitement, merci beaucoup à tous.
à+

Addition format date et nombre

6 réponses

Votre réponse

Discussions similaires