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).Value=
ElseIf Remboursement = "Semestriel" Then
activecell.Offset(0,5).Value=
ElseIf Remboursement = "In fine" Then
activecell.Offset(0,5).Value=
ActiveCell.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.