Discussion :

[nic79]

J'ai créé une liste de frais avec Excel - lorsque l'utilisateur clique sur un bouton de commande clôturer la liste de frais je souhaite qu'il ajoute un tableau avec différentes données et un total de la colonne F, soit du total des lignes. A noter que si l'utilisateur devait ajouter une opération après avoir clôturer la liste, je souhaiterai qu'il efface ce tableau - dans mon fichier joint - le tableau contenant les données débute à partir de la ligne c31 - néanmoins dans les faits ce tableau ne sera pas nécessairement insérer à la ligne c31 dans la mesure où il peut y avoir plusieurs opérations de frais et que les lignes contenant des données seront variables. Débutant en vba - quelqu'un pourrais-t-il m'aider - merci d'avance.

[Invité]

Bonjour,

Pour ajouter le total de la colonne F :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
 
Sheets("Liste de frais").Select
nouvligne = Range("a65536").End(xlUp).Row + 1
 
Cells(nouvligne, 1) = "Total"
Cells(nouvligne, 6).FormulaR1C1 = "=SUM(R13C:R[-1]C)"
 
End Sub

Pour le reste, je n'ai pas très bien compris.

Il faudrait un exemple plus précis de ce que vous voulez.

Le CommandButton2 lance la macro ci-dessus.

Si l'utilisateur veut entrer des données à nouveau alors que cette macro a déjà été exécutée (le total existe) vous voulez effacer les données contenues de la ligne 13 à la ligne 30 ?

[nic79]

Merci déjà pour la première solution.

Néanmoins je souhaite encore ajouter le tableau avec les données mis en évidence en jaune en vba.

Toutefois, lorsque l'utilisateur devrait cliquer sur le bouton "Ajouter une opération" je souhaite que tous ce qui a été ajouté, soit total + données actuellement mis en jaune soit au préalable supprimé puis on ajoute une opération.

En effet, comme expliqué ci-dessus il n'est pas rare que lorsque l'on bouclera la liste de frais on ait oublié des frais et que l'on souhaiterait les ajouter. L'utilisateur utilisera le bouton de commande pour ajouter un frais.

En annexe une nouvelle version de mon fichier.