augmentation de loyer

L

laetitia

Guest
Bonjour

Je suis propriétaire d'appartements que je loue, je voudrais avoir dans mon tableau une fonction qui me permet de calculer l'augmentation de loyer à une date bien précise. Vous savez que l'augmentation a lieu chaque année suivant l'indice du cout de construction.
Merci pour votre aide.
Bonne journée à tous.
 

jepi67

XLDnaute Occasionnel
Bonjour Laetitia, Bobby,

Voilà un exemple comment on peut faire également

à+ [file name=Augn_loyer.zip size=3893]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Augn_loyer.zip[/file]
 

Pièces jointes

  • Augn_loyer.zip
    3.8 KB · Affichages: 259
L

laetitia

Guest
bonjour jepi,

mais j plusieurs locataires, je voudrais que ce soit automatisé.


date bail loyer date augmentation nouveau loyer

1/01/05 200 ? ?




COMMENT CALCULER LA DATE DE L'AUGENTATION DE LOYER
AINSI QUE LE NOUVEAU LOYER SACHANT QUE L'AUGMENTATION A LIEU UNE FOIS PAR AN.
 

@Bobby

XLDnaute Junior
Place dans la colonne A ta date bail
Place dans la colonne B le loyer

--> Une ligne par location

puis colle la macro ci-dessous dans ta feuille: En fonction de la date du bail elle calculera un an plus tard le nouveau loyer

Sub nouv_loyer()

Dim x As Integer
x = 2

Do While Cells(x, 'A')

Dim NY, OY

OY = Year(Cells(x, 'A'))

NY = OY + 1
Cells(x, 'C') = CDate(Day(Cells(x, 'A')) & '/' & Month(Cells(x, 'A')) & '/' & NY)

curdate = CDate(Format(Now(), 'DD/MM/YYYY'))

If Cells(x, 'C') = curdate Then
Cells(x, 'D') = Cells(x, 'B') * 1.1 'Montant du loyer * 10%
End If

x = x + 1

Loop

End Sub


Bonne chanceb :)
 

@Bobby

XLDnaute Junior
:( Malheureusement je n'ais plus le fichier

Mais tu dois placer dans ta fauille :

Colonne A la date bail
Colonne B le loyer
Colonne C La Date de renouvellement --> Calculé par la macro
Colonne D Le Nouveau Loyer --> Calculé par la macro

Donc une ligne par location.

Puis tu copies la macro dans cette sheets via Outils -> Macro -> Visual Basic Editor (ou ALT + F4 racourci).

Quand c'est fait tu lances la macro via Outils -> Macro -> Macros (ou ALT F8 racourci). Le nom de la macro est nouv_loyer.

Bonne chance

:)
 

jepi67

XLDnaute Occasionnel
Re Laetitia, Bobby, Martin,

Laetitia, pour savoir comment joindre un fichier, clique ICI

On ne peut se contenter du montant du loyer actuel que l'on multiplie par un taux 'absolu' mis dans le code. Il faut en fonction de la date de bail intégrer le dernier indice trimestriel connu que l'on rapproche de celui pris en compte dans le bail etc...
Donc on ne peut se contenter de 4 colonnes ni d'une automatisation complète car le nouvelle indice n'étant connu qu'à la date anniversaire il faudra le 'rentrer' dans ton tableau.

Edition pardon pour 'le nouvel' indice...

Message édité par: jepi67, à: 20/10/2005 15:11
 

@Bobby

XLDnaute Junior
J'ai ajouté une inputbox comme cela tu peux spécifier le taux avant d'exécuter la macro.

Sub nouv_loyer()

Dim x As Integer
x = 2

Dim tx
tx = InputBox('Taux')

Do While Cells(x, 'A')

Dim NY, OY

OY = Year(Cells(x, 'A'))

NY = OY + 1
Cells(x, 'C') = CDate(Day(Cells(x, 'A')) & '/' & Month(Cells(x, 'A')) & '/' & NY)

curdate = CDate(Format(Now(), 'DD/MM/YYYY'))

If Cells(x, 'C') = curdate Then
Cells(x, 'D') = Cells(x, 'B') + ((Cells(x, 'B') / 100) * tx) 'Montant du loyer * 10%
End If

x = x + 1

Loop

End Sub

Bonne chance :)
 

Discussions similaires

Réponses
4
Affichages
202

Statistiques des forums

Discussions
312 836
Messages
2 092 623
Membres
105 469
dernier inscrit
gautronmi