Enregistrement des modifications + nouveau total
Bonjour à tous,
Je ne suis pas un spécialiste de VBA, loin de là. Je me contente d'utiliser l'enregistreur de macro d'Excel (2016) et de récupérer le script en essayant de modifier un ou deux trucs en espérant que ça ne va pas tout casser. Bref, voilà mon niveau en VBA.
Travaillant sur un fichier de budget bien complexe et sur lequel il y a de nombreuses modifications à apporter au cours d'une année, je recherchais une macro qui me permettrait de lister dans une feuille "journal", toutes les modifications que j'effectuerai dans ce fichier + le total du Budget à chaque modification. Ainsi, pas d'oubli et une vue sur l'évolution du total.
J'ai trouvé sur Excel-Pratique le fichier "enregsitrement-des-modifications.xlsm" de Steelson qui répondait presque à ma recherche. Bravo Steelson, ça marche super ! Mais il me manque donc juste deux colonnes : "TOTAL Budget avant" et "TOTAL Budget après" qui serait donc sur une autre feuille, disons "Feuil2" en A1.
Je ne sais pas si je peux remettre le fichier de Steelson ici vu que je n'en suis pas l'auteur.
En tout cas c'est donc ce que je recherche sur le net depuis une semaine mais sans résultat.
Please help :-)
Merci par avance pour l'aide que vous pourriez m'apporter.
Bruno
Salut BRR,
je ne pense pas que Steelson
C'est bien là le rôle de ce forum : aider le plus grand nombre et tant mieux si nos codes peuvent être récupérés par tout un chacun.
Envoie ta demande avec le plus de précisions possibles !
A+
Bonjour Curulis57.
Merci pour ton retour. je joins donc le fichier de Steelson auquel j'ai simplement intégré l'unique colonne que je souhaiterai en plus, le nouveau "total budget salaires" qui se trouve en Feuil2-C1. Cela me permettra de connaître l'impact de chaque action sur les autres feuilles du fichier, que ce soit en saisissant une valeur ou modifiant une formule.
Pour tester j'ai mis une table en Feuil2. Le total est mis en C1 de cette même feuille. C'est la valeur de cette cellule qu'il faudrait réussir à "capturer" à chaque modif d'une cellule et coller la valeur dans la colonne que j'ai rajoutée dans l'onglet "Journal", bien sûr sur la même ligne où le script de Steelson indiquerai la modification effectuée.
Parallèlement, j'ai constaté qu'à chaque fois que j'appuie sur la touche "Entrée" pour valider une modification dans une cellule d'une autre feuille que "Journal", la cellule sélectionnée reste celle que je viens de modifier, plutôt que de descendre traditionnellement d'une ligne. j'imagine que c'est dans le code de Steelson.
En tout cas merci par avance si tu arrivais à m'aider sur ce sujet car je m'arrache les cheveux à chaque point trimestriel sur l'analyse budgétaire tellement le fichier d'origine que j'utilise est chargé, complexe et tellement il y a d'ajustements au cours de l'année.
Bonjour,
Je reviens sur mon petit sujet.
Quelqu'un aurait-il un complément de code pour répondre à mon soucis?
Toute piste en VBA ou formule sera la bienvenue.
Merci :-)
Salut BRR,
ceci ? Franchement, en lisant le code, je suis certain que tu aurais fini par trouver...
.Cells(i, 7) = CLng(Worksheets("BDD").[C1])J'ai appelé la feuille2, 'BDD'...
A+
For lig = 1 To cible.Rows.Count
For col = 1 To cible.Columns.Count
If avant(lig, col) <> apres(lig, col) Then
With Sheets("Journal").ListObjects(1)
.ListRows.Add
i = .ListRows.Count
With .DataBodyRange
.Cells(i, 1) = Now
.Cells(i, 2) = feuille.Name
.Cells(i, 3) = cible.Cells(1, 1).Offset(lig - 1, col - 1).Address
.Cells(i, 4) = "'" & avant(lig, col)
.Cells(i, 5) = "'" & apres(lig, col)
.Cells(i, 6) = Environ("username")
.Cells(i, 7) = CLng(Worksheets("BDD").[C1])
End With
End With
End If
Next
Next