Budget de trésorerie
Bonjour, dans le cadre d'une création d'entreprise je souhaiterai réaliser un budget de trésorerie.
J'ai effectué plus macros. Voir feuille Ecriture, une macro qui insére une ligne cependant j'aimerai qu'elle insère une ligne après la dernière ligne du tableau mais je n'y arrive pas.
J'ai aussi réalisé une macro qui supprimer la dernière ligne du tableau mais j'ai pu la paramétrer pour supprimer les dernières lignes avant de dépasser le seuil de la L33, j' arrive pas à la modifier pour qu'elle supprimer n'importe qu'elle ligne.
J'ai effectué une macro qui insère une date mais j'aimerai que ça me propose la date du jour et si je refuse que je puisse la taper moi-même (ImputBox)
Tant que j'y suis est-ce que vous pourriez jeter un petit coup d'oeil aux formules de mon fichier ainsi qu'au TCD, en effet quand je sélectionne l'ensemble des mois, les calculs à la droite du TCD ne se réalisent pas ( je pense qu'il est mal nommé...)
Voilà, j'ai essayé de faire le maximum de chose mais mon faible niveau d'Excel me pose quelques problèmes...
Je vous remercie d'avance,
Valoche
une macro qui insére une ligne cependant j'aimerai qu'elle insère une ligne après la dernière ligne du tableau
une macro qui supprimer la dernière ligne du tableau
elle supprimer n'importe qu'elle ligne.
J'ai creer un module ligne avec plusieurs possibilitées, je te laisse choisir celle qui te convient (basé sur feuille active et/ou cellule active, une selection sur la feuille et la cellule avant de la lancer est indispensable!)
une macro qui insère une date
création d'une boite de dialogue a l'ouverture de la feuille ecriture(a chaque ouverture, peut etre a modifier), qui offre la date du jour, modification avant de valider (si besoin) et valeur envoyé en cellule F33.
quand je sélectionne l'ensemble des mois, les calculs à la droite du TCD ne se réalisent pas
La je laisse la main, dsl.
Bonjour, merci de votre aide cependant les macros ne semblent pas fonctionner. Lorsque je lance la macro ajouter une ligne sous la ligne active, un message d'erreur apparaît : "Qualificateur incorrect..." concernant le ActiveCell.Row.
De plus, j'aimerai attribuer un bouton à la macro insertion date mais que ça me saisisse la date dans la cellule de la dernière ligne inséré...
Je comprends votre travail mais je n'arrive pas à adapter...
Merci
J'ai un message d'erreur qui m'affiche Objet requis pour l'ensemble des macros ... C'est surement pas grand chose mais je n'arrive pas à comprendre....
Bonjour, merci de votre aide cependant les macros ne semblent pas fonctionner.
oups, plusieurs fautes de frappe et un compteur mal placé
j'aimerai attribuer un bouton à la macro insertion date
fait
je n'arrive pas à adapter...
Explications(incluants corrections):
* boite de dialogue
Private Sub CommandButton1_Click() 'nom macro attaché a la boite de dialogue, double clic sur la boite dans VBA
Lignemax = Sheets("Ecriture").Cells(Rows.Count, "B").End(xlUp).Row + 1 'Compteur de lignes lancé sur colonne B(determine derniere ligne pleine)+1(=premiere ligne vide)
Sheets("Ecriture").Range("A" & Lignemax) = TextBox1.Value 'Attribue la valeur du textbox(boite de dialogue) a la premiere ligne vide sous le tableau en colonne A
UserForm1.Hide 'cache boite de dialogue
End Sub 'fin de macro CommandButton1_Click()
Private Sub UserForm_Initialize() 'macro qui demarre a l'ouverture de la boite de dialogue
TextBox1 = Format(Date, "dd/mm/yyyy") 'attribue la valeur de la date d'aujourd'hui, format ("dd/mm/yyyy"=01/01/16 par exemple/dddd dd mmmm yyyy= dimanche 1 janvier 2016)a adapter
End Sub*Module: Choix Date
Sub Choix_date()
UserForm1.Show 'Ouvre la boite de dialogue
End Sub*Module: Lignes
Sub AjouteLigne()
'Ajoute ligne sous Ligne active
Lignemax = Cells(Rows.Count, "B").End(xlUp).Row 'compte la derniere ligne pleine
Rows(Lignemax+1).Select 'selectionne la ligne concernée, +1 correspond 1ere ligne vide
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'insere la ligne avec parametres present dans le fichier de base
End Sub
Sub AjouteLigne_Fin()
'une macro qui insére une ligne cependant j'aimerai qu'elle insère une ligne après la dernière ligne du tableau
Lignemax = Cells(Rows.Count, "B").End(xlUp).Row 'compte la derniere ligne pleine
Rows(Lignemax + 1).Select 'selectionne la ligne concernée, +1 correspond 1ere ligne vide
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'insere la ligne avec parametres present dans le fichier de base
End Sub
Sub SupprLigne_Active()
'Supprime ligne active
ActiveCell.Rows.Select 'selectionne la ligne de la cellule active
Selection.Rows.Delete 'supprime la ligne selectionnée
End Sub
Sub SupprLigne_Fin()
' une macro qui supprime la dernière ligne du tableau
Lignemax = Cells(Rows.Count, "B").End(xlUp).Row 'compte la derniere ligne pleine
Rows(Lignemax).Select 'selectionne la derniere ligne pleine
Selection.Rows.Delete 'supprime la ligne selectionnée
End SubPs: j'ai tt testé sur la feuille ecriture, ca fonctionne mais certaine valeur ont disparu.
Ps2: les compteur sont basé sur la feuille ecriture, d'ou le "B" dans les compteur, a adapter.
Merci de votre aide, tout fonctionne ! Et merci pour les explications je comprends bien mieux !
Maintenant j'arrive à un autre soucis (Et oui même avec de la bonne volonté et des heures devant Excel.. je trouve toujours un problème)
Je souhaiterai faire les formules pour la feuille TCD en effet, j'aimerai faire une somme.si et selon que c'est une charge ou un produit avoir les recettes, dépenses et le solde.
Au début je voulais faire un regroupement, c'est à dire regrouper les libéllés par exemple faire un regroupement Communication pour regrouper tous mes libellés pub radio, pub presse, etc mais ça me paraît ne pas être réalisable malheureusement...
Auriez-vous une idée au cas ou ?
Sub Nvelledate()
Dim DateBanque As Date
Dim RepDate As Integer
'on propose à l'interlocuteur de choisir entre une nvlle date et entre la date du jour
Repdat = MsgBox("Souhaitez-vous une date différente de celle du jour ?", vbYesNo)
If RepDate = vbYes Then
DateBanque = InputBox("Saisissez la date")
Else
DateBanque = Now
End If
Lignemax = Sheets("Ecriture").Cells(Rows.Count, "R").End(xlUp).Row
Sheets("Ecriture").Range("R" & Lignemax) = DateBanque
Range("R" & Lignemax).Value = DateBanque
End Sub
J'ai effectué cette macro pour la date cependant lorsque je clique oui sur le inputbox, la fenêtre s'enlève et me met la date du jour... que faire ?? merci !
Solution de la macro désolé... Erreur de débutant.. l'oubli d'une lettre remet toute ma macro en cause...
Je souhaiterai faire les formules pour la feuille TCD
j'connais pas bien les TCD, essaye de creer un nouveau fil qu'avec cette question, un spécialiste ce penchera peut etre dessus....dsl
j'aimerai faire une somme.si et selon que c'est une charge ou un produit avoir les recettes, dépenses et le solde.
j'serais pas dispo avant vendredi,j'peux tenter une macro mais les valeurs sont dans le tableau ecriture?