Gestionnaire de dépenses avec VB boite de dialogue

[tayloale]

Bonjour à tous 😉! Je suis nouveau sur ce forum.
Je suis en alternance depuis peu et j'ai décidé de gérer correctement mes dépenses. J'ai donc crée un fichier excel qui répertorie toutes mes dépenses/revenus.

Je souhaiterais ajouter une fonction VBA qui me permettrait d'ouvrir une boite de dialogue pour saisir mes dépenses de différents types et qui seraient ensuite directement ajoutées à mon tableau.

Ci-joint, mon fichier excel.
En espérant qu'un excelieur puisse me guider,🙄
Merci 🙂

 

[Vilain]

Re : Gestionnaire de dépenses

Bonjour et bienvenue,

il manque le fichier. De plus, merci de préciser sur quoi tu bloques.

A plus

 

[tayloale]

Re : Gestionnaire de dépenses

Je viens de l'ajouter.
J'ai très peu utilisé VBA et je ne connais pas bien ce langage. Je bloque pour exporter les données que je saisis dans la boite de dialogue. Par exemple, lorsque la boite s'ouvre, je saisis un montant X pour l'essence et j'aimerai qu'il s'additionne à la précédente dépense.

De plus, comme vous pouvez le voir dans le fichier, il y a plusieurs mois dans le même fichier. J'aimerai alors créer une macro qui puisse s'appliquer tous les mois. C'est pourquoi je pense qu'il faut prendre en compte le paramètre "mois" de la colonne A.

 

[tayloale]

Re : Gestionnaire de dépenses

Savez-vous comment je peux additionner une dépense dans une cellule en la saisissant dans une boite de dialogue ?

 

[tayloale]

Re : Gestionnaire de dépenses avec VB boite de dialogue

Bonjour, j'ai essayé de faire quelque chose mais j'ai un message d'erreur 424... Je ne comprends pas pourquoi. Avez-vous une idée?

[Private Sub UserForm_Initialize()

ComboBoxAjouterquoi.ColumnCount = 1
ComboBoxAjouterquoi.List() = Array("Revenus", "Dépenses")
If ComoBoxAjouterquoi.List() = "Revenus" Then
Do
signataire = Application.UserName
ListBoxType.AddItem "Revenu alternance"
ListBoxType.AddItem "Nourriture midi"
ListBoxType.AddItem "Nourriture soir"
ListBoxType.AddItem "Revenus ultérieurs"
Loop
End If
If ComoBoxAjouterquoi.List() = "Revenus" Then
Do
signataire = Application.UserName
ListBoxType.AddItem "sortie"
ListBoxType.AddItem "essence"
ListBoxType.AddItem "nourriture"
ListBoxType.AddItem "achat"
Loop
End If
End Sub ]