Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Gestion Compte bancaire et budget personnel 2.24

Inscrivez vous pour télécharger ce fichier
Vue principale Mises à jour (4) Avis (7) Historique Discussion

Gégé-45550

XLDnaute Accro
Comme je m'en doutais, chez moi (comme chez tous les autres utilisateurs), votre fichier marche à la perfection.
Je ne comprends pas d'où vient votre problème.
Je vous propose de me dire quelles sont les catégories dont vous avez besoin et, pour chacune d'elles, les postes nécessaires (quel que soit leur nombre), je vais créer le fichier et vous l'envoyer par ce même canal.
Vous me direz ensuite si c'est le seul problème de vous rencontrez.
 

Gégé-45550

XLDnaute Accro
Il me vient une autre idée : disposez-vous d'une version Excel en français ? ou dans une autre langue ?
 

Gégé-45550

XLDnaute Accro
Pour finir et après quelques recherches, il semblerait que FormulaVersion:=xlReplaceFormula2 ne fonctionne que pour les version d'Excel à partir de 2019.
Essayez de modifier la ligne comme ceci :
VB: 
.Range("C" & ligne + 1 & ":O" & ligne + 1).Replace What:="Revenus", Replacement:=fnSupprAccents(Initiale(Nom)), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False', FormulaVersion:=xlReplaceFormula2
Merci de me tenir au courant du résultat
Bonne nuit
 
C

cristobal61

XLDnaute Nouveau
Bonsoir Gégé-45550,

Visiblement vous avez mis le doigt sur l'origine du problème...
Bravo !!

Avec votre ligne modifiée, la création de catégorie ne génère plus d'erreur systématique comme avant.
Après quelques essais dans tous les sens, les créations et suppressions de catégorie / sous-catégories semblent entièrement fonctionnelles également.

Le pb venait apparemment bien de FormulaVersion:=xlReplaceFormula2, qu'il convenait donc d'occulter pour ma version d'excel (Office Professionnel Plus 2019).

Merci beaucoup pour le temps passé pour débusquer l'origine du problème (et vu l'horaire du dernier message hier soir, jusqu'à une heure avancée... ).

A présent je vais aller un peu plus loin, et me pencher sur la fonctionnalité d'import de relevé excel.

Une petite suggestion, en cas de prochaine mise à jour...
les lignes 95 et 103 de l'onglet 'Flux réels' sont masquées sur la version téléchargeable (ce qui m'a dérouté 2 minutes...), et non affichables du fait que la feuille est protégée.
(mais vu que j'ai parcouru le code de long en large depuis quelques jours, j'ai pu y trouver le sésame pour les rendre visibles... merci de l'avoir laissé accessible).

Merci encore,
Bonne soirée.
 
C

cristobal61

XLDnaute Nouveau
Bonsoir,

Le retour de l'erreur 1004 : "Erreur définie par l'application ou par l'objet"...

Lorsque je tente d'ajouter des lignes dans l'onglet journal :
- la 1ère ligne s'intègre sans problème,
- c'est lors du remplissage des éléments de la 2ème ligne que ça se gâte...: l'erreur survient au moment où je renseigne la catégorie (que je sélectionne dans la liste déroulante)

Selon le débogueur, le problème est dans le déroulement de la procédure Worksheet_Change de la feuille fJournal, au niveau de la ligne ".Add Type: ..." ci-dessous :
VB: 
'On met dynamiquement à jour la liste de validation des éléments figurant dans la catégorie choisie
    '
    If Not Intersect(Target, Range("Journal[Catégorie]")) Is Nothing Then
        If Target.Count = 1 Then
'
            With Range("E" & Target.Row).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=INDIRECT($V$" & Target.Row & ")"

Cette erreur est systématique, que je renseigne ces lignes dans le journal dès l'ouverture du fichier natif téléchargé, ou que fasse un RAZ préalable du contenu du journal pour partir sur un nouveau millésime.

Y a t-il une chance pour qu'il y ait là encore incompatibilité entre cette portion de code et la version d'excel que j'utilise ?
 

Gégé-45550

XLDnaute Accro
Bonsoir,
Cette erreur est due à vos différents tests précédents qui ont un peu "détraqué" le programme.
Le remède est simple :
Dans la feuille "Journal", positionnez vous sur la cellule V5 et double-cliquez sur le petit carré en bas à droite (cela propagera la formule écrite en blanc, donc invisible, vers le bas) puis reprenez votre saisie en resélectionnant une catégorie.
Normalement, le problème devrait être résolu.
Bien cordialement,
 

Gégé-45550

XLDnaute Accro
re-bonjour,
En fait, vous venez de mettre le doigt sur une faiblesse du programme dans le cas où on supprime toutes les lignes du Journal.
En fonctionnement "normal", cette action devrait uniquement survenir lorsqu'on clique sur le bouton 'RAZ-Nouveau millésime' de l'onglet 'Flux prévus'. Dans ce dernier cas, elle est gérée.
Je vais publier une mise à jour mais, pour vous éviter d'avoir à la retélécharger, le vous invite à remplacer les procédures 'Verification' et 'RepareV' du module ActionsTS par celles-ci :
VB: 
Public Sub Verification(ByVal Targete As Range)
Dim CompteLignes As Long
Dim PrecedentCompteLignes As Long
'Combien y avait-il de lignes dans le journal avant l'évènement _Change
    PrecedentCompteLignes = ActiveWorkbook.CustomDocumentProperties("RowCnt").Value
'
    'D'abord, on surveille si des lignes ont été supprimées. Si c'est le cas, il faudra rafraîchir la colonne V
    '
    CompteLignes = Sheets("Journal").ListObjects("Journal").ListRows.Count
'    If CompteLignes = 0 Then Exit Sub      'Le tableau est vide
    If CompteLignes < PrecedentCompteLignes Then      'si le nombre de lignes est inférieur a celui qui a été stocké précédemment lors de l'évènement _SelectionChange, au moins une ligne a été supprimée
        Application.ScreenUpdating = False
        'Réparation de la colonne V
        RepareV PrecedentCompteLignes
        '
        NombreLignesJournal = CompteLignes
        Application.ScreenUpdating = True
    End If
    '
    ' et on retire le surlignage si la valeur enregistrée est correcte
    '
    If Not Intersect(Targete, Sheets("Journal").Range("D5:E1205")) Is Nothing Then
        If Targete.Count = 1 Then
            ControleCoherence Targete
        End If
    End If
    StockInCDP "RowCnt", Sheets("Journal").ListObjects("Journal").ListRows.Count        'Stocke dans les propriétés particulières du classeur une variable baptisée "RowCnt" dont la valeur est le nombre de lignes du journal
End Sub

Sub RepareV(Optional nbLignes&)
Dim fin As Long
    If nbLignes <> 0 Then
        fin = nbLignes
    Else
        fin = Sheets("Journal").Range("Journal").ListObject.ListRows.Count
    End If
    With Sheets("Journal").Range("V4")
        .AutoFill Destination:=Sheets("Journal").Range("V4:V" & fin + 4)
    End With
End Sub
Cordialement
 
Dernière édition:
C

cristobal61

XLDnaute Nouveau
Bonjour Gégé-45550,

Merci de votre réponse.
Je n'ai pas encore eu l'occasion de tester votre code, mais vous fait part d'une autre observation faite entre temps.

Lorsque je remplis la ligne 19 du journal, la formule en cellule V19 fait référence à la cellule D19 (dans laquelle on sélectionne la catégorie).
La formule en V20 fait alors bien référence à D20.
Jusque là tout est normal...

Une fois la ligne 19 complétée, dès que la cellule active passe en A20 : la formule en V20 ne fait plus référence à D20 mais à D21, qui par définition est donc une cellule vide.
Il semble donc bien y avoir une incohérence de ce côté là...

Est-ce que cela coïncide avec les 2 modifications que vous avez proposé dans les codes des procédures ?

En attendant de tester votre proposition de code...

Autre retour d'expérience, qui n'a rien à voir :
La navigation dans les onglets, via le ruban, ne fonctionne pas pour accéder aux onglets " Relevés bancaires", "Relevé Excel" et "Relevé PDF" : exécution de la macro "xxxxxxxx" impossible.
Je n'ai pas trouvé les 3 macros concernées dans le code.
Pour tous les autres onglets proposés, la navigation fonctionne .

Merci.
 

Gégé-45550

XLDnaute Accro
Gégé-45550 à dit:
Gégé-45550 a mis à jour Gestion Compte bancaire et budget personnel avec une nouvelle entrée de mise à jour:

Gestion Compte bancaire et budget personnel V 2.22



Lire le reste de cette entrée de mise à jour...
Cliquez pour agrandir...
Nouvelle version de 'RepareV' dans le module 'Actions TS'
VB: 
Sub RepareV(Optional nbLignes&)
Dim fin As Long
    If nbLignes <> 0 Then
        fin = 1496
    Else
        fin = Sheets("Journal").Range("Journal").ListObject.ListRows.Count
    End If
    With Sheets("Journal").Range("V4")
        .AutoFill Destination:=Sheets("Journal").Range("V4:V" & fin + 4)
    End With
End Sub
à ajouter dans le module Callbacks
Code: 
'Callback for rBancaire onAction
Public Sub GotorBancaire(ByVal control As IRibbonControl)
    Sheets("Relevés bancaires").Activate
End Sub

'Callback for relExcel onAction
Public Sub GotorelExcel(ByVal control As IRibbonControl)
    Sheets("Relevé Excel").Activate
End Sub

'Callback for relPDF onAction
Public Sub GotorelPDF(ByVal control As IRibbonControl)
    Sheets("Relevé PDF").Activate
End Sub
Bravo !
Vous êtes mon meilleur testeur (il est difficile, derrière son ordi, d'imaginer toutes les manips que pourra faire l'utilisateur, d'où l'intérêt de vos messages).
J'espère tout de même qu'on arrive au bout des réglages.
Cordialement,
NB : la version corrigée a été publiée, elle sera en ligne dès que le modérateur aura validé.
 

Gégé-45550

XLDnaute Accro
@cristobal61
Bonjour,
Annulez mes messages précédents et utilisez plutôt la version 2.23b (adaptée à Excel 2019).


Cordialement,
 
Dernière édition:
C

cristobal61

XLDnaute Nouveau
Merci Gégé-45550 pour votre réactivité !!
On avance...

Malheureusement, je viens à nouveau signaler un petit dysfonctionnement...
Avec cette version 23b, téléchargée à partir du lien présent dans votre dernier post, la réinitialisation du journal ne fonctionne pas (Erreur de compilation, Sub ou Function non définie).


En cherchant un peu dans le code, et en comparant avec celui de versions précédentes je me suis aperçu que la procédure ValidationDate s'était perdue en route... et qu'elle n'était plus présente dans le module ActionTS.
Idem pour la procédure RepareV.

En les ayant copié/collé pour les rajouter dans le code de la v23b, la réinitialisation fonctionne bien.
(Je ne suis pas allé plus loin dans le test pour l'instant, donc ne sais pas si la RepareV récupérée est bien fonctionnelle pour ce qu'elle a à faire au niveau du renseignement progressif de l'onglet journal.)

C'est tout pour aujourd'hui...
 
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…