Gestionnaire de dépenses avec VB boite de dialogue

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tayloale

XLDnaute Nouveau
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 🙂
 

Pièces jointes

Dernière édition:
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.
 
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 ]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
Réponses
1
Affichages
1 K
J
B
Réponses
2
Affichages
812
J
Retour