XL 2016 Aide pour fichier de location, remplissage automatique calendrier annuel

GALOUGALOU

XLDnaute Accro

• 25 Mars 2020

• #2

bonjour Audreyla bonjour le forum
je me suis laissé inspiré pour la gestion de votre classeur
je vous propose un calendrier différent du votre
dans une nouvelle feuille événement, saisie des dates d'occupation par propriétaire ou locataire. quoi que vous saisissiez, il est important de commencer par un p pour propriétaire et L pour locataire
le calendrier se rempli automatiquement, et celui ci est ajustable grâce à deux boutons en haut de la feuille.
les formules sont protégées. (la feuille est verrouillée)

cordialement
galougalou

 

Pièces jointes

• CALENDRIER 2020.05.xlsm

  244.7 KB · Affichages: 30

Vote positif 0 Vote négatif

A

AudreyLa

XLDnaute Nouveau

• 25 Mars 2020

• #3

Bonjour Galougalou,

Merci de votre réponse, ce n'est pas tout à fait ce que je recherche car cela nous oblige à créer un onglet supplémentaire, et en soit un risque d'erreurs supplémentaires.

Je vais encore tenter de trouver une méthode plus proche, mais en tout cas merci beaucoup.

Audrey

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 25 Mars 2020

• #4

je viens de voir la feuille année, je peux vous préparer un classeur qui rend inutile la saisie dans ce nouvel onglet evenement en reprenant les informations de votre feuille année.
mais la question avant cela, est ce que le calendrier vous convient ?
cordialement
galougalou

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 25 Mars 2020

• #5

Bonjour
Si j'ai bien compris?
En activant la feuille calendrier, elle se met a jour par rapport à la feuille année 1
J'ai modifié le calendrier de façon ace que les dates contenue dans la feuille année 1 soit compatible.
Sans doute à adapter en fonction dont on veux gérer les années

 

Pièces jointes

• Suivi_facturation.xlsm

  62 KB · Affichages: 18

Vote positif 0 Vote négatif

A

AudreyLa

XLDnaute Nouveau

• 25 Mars 2020

• #6

Bonjour Sousou,

Merci beaucoup c'est exactement ce que je voulais faire!!! Je n'ai pas encore le niveau pour écrire des macros!

J'ai une autre question concernant la taxe de séjour pour une formule à appliquer,pensez-vous que je doive ouvrir un nouveau post?

Audrey

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 25 Mars 2020

• #7

Pourquoi pas,
C'est quoi la question?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 25 Mars 2020

• #8

J'ai ajouté quelques explication dans le code, car je suis sur que tu devras le modifier en fonction de ta gestion des années

 

Pièces jointes

• Suivi_facturation.xlsm

  62.5 KB · Affichages: 14

Vote positif 0 Vote négatif

A

AudreyLa

XLDnaute Nouveau

• 25 Mars 2020

• #9

Ma question se porte sur une formule qui permettrait de déterminer un montant au-delà duquel la taxe de séjour serait plafonnée.

Je m'explique, selon la loi, la taxe taxe se calcule de manière suivante :

- 5% du montant du séjour globale par personne et par nuité
- ou 2,30€ par personne et par nuité maximum.

Si on prend un exemple:

	Montant Location	Nbre de nuit	Nb Adulte	taux	TX par pers	Total
Meuble non classé	500,00	7	2	5%	1,79 €	25,00
	500,00	7	2		2,30 €	32,20

Dans ce cas on appliquera la première formule.

Dans mon tableau j'ai utilisé cette formule: =MIN(J10;(E11*B11)/D11/C11

Mais je souhaiterais ajouter une condition, un maximum de 2,30€.

Le but est de calculer automatiquement le montant de la taxe d'habitation dans l'onglet année1

Je vais essayer de copier la macro dans un autre fichier pour la comprendre, merci pour les indications.

Audrey

 

Pièces jointes

• Suivi_facturation_Mont_Joly.xlsx

  80.4 KB · Affichages: 8

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 25 Mars 2020

• #10

Si j'ai pigé
Mais si ce n'est pas cela tu peux lancer un post
Dans la feuille1
si min....<2,30 alors(min...) sinon 2,30
=SI(MIN($J$10;(E11*B11)/D11/C11)<$J$10;MIN($J$10;(E11*B11)/D11/C11);$J$10)

 

Vote positif 0 Vote négatif

A

AudreyLa

XLDnaute Nouveau

• 25 Mars 2020

• #11

Merci c'est exactement cela, cependant, est-il possible d'ajouter de ne pas tenir compte des cellules vident ou à zéro, pour que l'on évite les #DIV/0! ?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 25 Mars 2020

• #12

=SIERREUR( (SI(MIN($J$10;(E12*B12)/D12/C12)<$J$10;MIN($J$10;(E12*B12)/D12/C12);$J$10));"")

 

Vote positif 0 Vote négatif

A

AudreyLa

XLDnaute Nouveau

• 25 Mars 2020

• #13

Encore merci, c'est exactement cela !

Je galère un peu avec le fait d'avoir coller la macro dans mon fichier, j'ai déjà un bug au tout début de son exécution... Mais je cherche encore un peu par moi-même pour comprendre ce que je fais mal...

J'ai essayé de rajouter des dates no problème, sauf que quand je supprime les dates (imaginons une annulation) cela ne s'efface pas du calendrier.

Faut-il ajouter une boucle?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 25 Mars 2020

• #14

bonsoir
N'hèsite pas à poser des questions.
J'ai un de temps en ce moment
Pour tes dates ajoutées renvoi le fichier que je regarde,

 

Vote positif 0 Vote négatif

A

AudreyLa

XLDnaute Nouveau

• 25 Mars 2020

• #15

Je crois que pas mal d'entre nous ont un peu de temps

J'ai intégré la nouvelle formule, mais bon je n'arrive pas à déboguer...

En fait je ne comprends pas bien la partie :
Set zone = .Range(.Cells(4, 2), .Cells(fincol.Row, 3))

D'ordinaire j'utilise des choses très basique genre (A3; B12) et là je souhaiterais faire démarrer mon calendrier par le mois de décembre de l'année précédente et le finir au mois de novembre de l'année en cours.
Comme j'ai supprimé un ligne en haut, j'ai modifié en :
Set zone = .Range(.Cells(3, 3), .Cells(fincol.Row, 3))
et là Bug... Mes deux cellules sont bien date.début et date.fin

Je sèche...

 

Pièces jointes

• Suivi_facturation_Mont_Joly_V3.xlsm

  93.9 KB · Affichages: 14

Vote positif 0 Vote négatif