Gestion Budget v2004-25.03a

[VincentB74]

VincentB74 a mis à jour Gestion Budget avec une nouvelle entrée de mise à jour:

Gestion Budget

Regarde la pièce jointe 1214952

Mise à jour de l'application, modification de la présentaiton, correction de petits bugs.
Amélioration de la gestion des tableaux.
Correction de la RAZ annuelle.

Bonne découverte.
Vincent

Note => Voir toutes mes ressources: https://excel-downloads.com/resources/?creator_id=297170

Lire le reste de cette entrée de mise à jour...

 

[VincentB74]

VincentB74 a mis à jour Gestion Budget avec une nouvelle entrée de mise à jour:

Gestion Budget

Regarde la pièce jointe 1215108

Mise à jour 2025. Modifcation et amélioration du code.
Modification de formules
Corrections de bugs

Bonne découverte.
Vincent

Note => Voir toutes mes ressources: https://excel-downloads.com/resources/?creator_id=297170

Lire le reste de cette entrée de mise à jour...

 

[jdaniel55]

VincentB74 a soumis une nouvelle ressource:

Budget 2023 - Gestion simplifiée d'un budget familial



En savoir plus sur cette ressource...

Bonjour, La fonction "SEQUENCE" ne fonctionne pas sur Excel 2019. Peut-on créer un fonction manuellement en vba avec les meme fonctionnalitées, merci, José

 

[VincentB74]

Bonjour, La fonction "SEQUENCE" ne fonctionne pas sur Excel 2019. Peut-on créer un fonction manuellement en vba avec les meme fonctionnalitées, merci, José

Bonjour,

Si tel est le cas, alors allez dans le VBE depuis Excel par ALT+F11
Sélectionnez wb_Gestion

Dans le module Open, en bas de celui-ci, cherchez le texte suivant:

ws_Home.Activate
Call AutoUnProtect(ActiveSheet)
ws_Home.Range("P8:V13").ClearContents
ws_Home.Range("P8").Select
Select Case Val(Application.Version)
Case Is >= 14
ws_Home.Range("P8").Formula2R1C1 = "=SEQUENCE(6,7,R6C16-WEEKDAY(R6C16,2)+1,1)"
Case Is < 14
ws_Home.Range("P8:V13").FormulaR1C1 = "=R6C16 + (ROW() - ROW(R8C16)) * 7 + (COLUMN() - COLUMN(R8C16)) - WEEKDAY(R6C16, 2) + 1"
End Select
Call AutoProtect(ws_Home)
ActiveSheet.Cells(4, 2).Select

et remplacer le par:

ws_Home.Activate
Call AutoUnProtect(ActiveSheet)
ws_Home.Range("P8:V13").ClearContents
ws_Home.Range("P8").Select
'Select Case Val(Application.Version)
' Case Is >= 14
' ws_Home.Range("P8").Formula2R1C1 = "=SEQUENCE(6,7,R6C16-WEEKDAY(R6C16,2)+1,1)"
' Case Is < 14
ws_Home.Range("P8:V13").FormulaR1C1 = "=R6C16 + (ROW() - ROW(R8C16)) * 7 + (COLUMN() - COLUMN(R8C16)) - WEEKDAY(R6C16, 2) + 1"
'End Select
Call AutoProtect(ws_Home)
ActiveSheet.Cells(4, 2).Select

Ainsi, vous ne gardez que la ligne en gras, le reste est en commentaire

Bonne découverte.
Vincent