augmentation de loyer

[laetitia]

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.

 

[@Bobby]

En formule Excel :

=si(today = ta_date stockee dans une colonne;column avec loyer *1.2)

 

[laetitia]

bonjour, j'essaye tout de suite. merci

 

[LAETITIA]

Bonjour,

Je ne suis pas tres douée, je joint un fichier pour plus de facilité. Merci. Laetitia

 

[laetitia]

j oublié d'envoyer le fichier

 

[jepi67]

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]

 

[laetitia]

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.

 

[Martin]

bonjour
ne peux-tu joindre ton fichier

 

[laetitia]

bonjour

je n'y arrive pas

colonne A1 = DATE BAIL
colonne A2 = MONTANT LOYER
colonne A3 = DATE AUGMENTATION LOYER
Colonne A4 = NOUVEAU LOYER

Merci

 

[@Bobby]

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

 

[laetitia]

bonjour Bobby

Merci pour ton aide mais je n'y arrive pas peux tu m'envoyer un fichier excel. Encore mille merci. Tu sais je ne suis pas tres douée. Désolée.
Laetitia

 

[@Bobby]

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

 

[LAETITIA]

Bonjour,

Cela marche pour la nouvelle date mais pas pour le nouveau montant

Merci
Laetitia

 

[jepi67]

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]

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