Où ajouter des lignes dans ce codes

Version imprimable

Voir 40 message(s) de cette discussion en une page

20/07/2013, 01h07
BlueMonkey

1 pièce(s) jointe(s)
Bonsoir,

Si j'ai bien compris, finalement tu souhaites gardes la suppression de plusieurs lignes.
Donc j'ai juste renommer le bouton en <Supprimer les lignes>
Si toutefois tu souhaitais revenir au mode suppression une ligne unique, il y a bien une différence dans la fonction Supprimer_Ligne() du module MGestion

Pour supprimer une ligne
Code:

1 2 cel1 = "B" & Selection.Row cel2 = "P" & Selection.Row
Pour supprimer toutes les lignes sélectionnées
Code:

1 2 cel1 = "B" & Selection.Row cel2 = "P" & Selection.Rows.Count + Selection.Row - 1
Ci-joint une nouvelle version avec les modifs suivantes:
- ajout d'une feuille pour créer une facture d'acompte lors de l'utilisation de <Mise en page> --> <Acompte> intégré depuis le document posté précédemment

- la valeur de l'acompte est ajouté dans la feuille "Facture"

- s'il y a plusieurs acomptes, il y aura plusieurs feuilles, et c'est la somme des acomptes qui sera ajouté dans la feuille acompte.

- test des zones de lignes pouvant être supprimée (seule une ligne de la zone liste d'article peut être supprimée)

- ajout d'un fractionnement de la page pour ne garder à l'affichage que les 8 derniers articles insérés.

Par contre pour ce qui est des cas où il faut ajouter ou supprimer le titre Acompte et la valeur, ce n'est pas très clair pour moi.
Je te laisse gérer ça depuis le code associé aux boutons de <Mise en Page>
Dans ce document il reste aussi des cellules dont les plages nommées sont en erreur. (et le code associé est en commentaire précédé de 'TODO).

A+
20/07/2013, 02h13
grisan29
bonjour BlueMonkey

pas encore télécharger fichier, mais je persiste 8-)contrôle le code de ton post de hier a 3h36 tu a oublier

Code:

.Count + Selection.Row - 1

au bout de
Code:

1 2 cel1 = "B" & Selection.Row cel2 = "P" & Selection.Row
un détail:ccool:

Pascal
re: j'ai télécharger et parfait le bordurage:ccool:pas le temps d'aller plus loin dans l'essai mais ou sont passées les 3 premières lignes?
20/07/2013, 02h26
BlueMonkey

Re,

En fait le code posté post #67 c'était la modification à apporter au code du fichier v1.06b
afin de revenir à l'état Suppression une ligne unique au lieu d'un groupe de ligne.
C'est pour ça que je parlais de remplacer une fonction dans un module VBA ;) :

Citation:

pour revenir au fonctionnement précédent, il suffit de remplacer la fonction Supprimer_Ligne() du module MGestion par [...]

A+

[Edit] Les 3 premières lignes sont masquées par le fractionnement de la feuille. Pour pouvoir afficher un maximum d'article, j'ai choisi de ne pas afficher ces premières lignes.
Mais elles sont présentes (se voir à l'aperçu avant impression).
S'il fallait les réafficher, il faudrait simplement revoir le fractionnement (en libérant les volets et décalant la zone de fractionnement haute)
20/07/2013, 07h24
grisan29

bonjour BlueMonkey:ccool:

merci :merci::applo:et excuse pour l'erreur matinale;)j'ai écrit

Citation:

parfait le bordurage

:(:( il faut appeler les choses par leurs noms et l'on se comprends mieux:cry:

Citation:

en fait de bordurage c'est figer les volets

que j'aurai du utiliser:cry:
a propos de ces volets quand je les supprime j'ai 2 feuilles dans une incompréhension? donc fichier joint tel que version 1.07bis xlsm
et je te joint un autre brut comme tu me la envoyer mais sur lequel j'ai actualiser le nommage des cellules, supprimer l'usf3 qui ne sert plus et le code qui m'a fait ouvrir ce post
a ce stade il reste la remise
- a zéro de la feuille
-le mixage des 2 fichiers a base de classe uclient et cbxCP ville lies
le remplissage de mes données personnelle si j'y accède sans les volets;)

Pascal
edit:
pas vu

Citation:

en libérant les volets et décalant la zone de fractionnement haute)

j'essai
je serai absent quasi toute la semaine a venir
après un grand bol de café serré:lol:, j'ai compris le principe des volets et du fractionnement que je ne connaissait pas:cry:
pourquoi le N° devis ne s'écrit pas avec des tirets mais

Citation:

DEVIS N° 03/07/2013
20/07/2013, 10h52
BlueMonkey

1 pièce(s) jointe(s)

Bonjour,

Ci-joint une version basée sur le fichier v1.07 (où tu avais fais des corrections sur les noms de cellules :ccool:)

Les changements :
- ajout du bouton <Remise à 0>
- correction sur l'Aperçu : retrait de la ligne qui supprimait les dernières lignes du devis/facture => ça effaçait des lignes avec des cellules nommées.
- j'ai du remplacer la ListView dans l'USF Bibliothèque car je n'ai pas le composant prévu dans l'USF sur mon PC. (il faudra corriger ça à la fin).

A+
20/07/2013, 20h15
BlueMonkey

Re.

Ci-dessous une version v1.09.

Cette mise à jour implémente :
- la mise à jour du fichier base\articles.xlsx lors de l'ajout de matériel depuis une facture ou un devis.
- la consommation se fait au fur et à mesure des ajouts depuis l'USF bibliothèque.
- l'enregistrement dans le fichier se fait au moment du clic sur <Quitter> de
l'USF bibliothèque.

A+

[Edit] Cette version corrige aussi le problème de n° de Devis qui était reformaté par Excel de 2013-07-001 en 2013/07/001
20/07/2013, 20h29
grisan29

bonsoir BlueMonkey

Merci pour le fichier:ccool: qu'a tu modifier pour avoir des tirets au lieu slash dans le n°devis
comment te prends tu pour rendre les fichiers joints ou autres en lien hypertexte comme pour mener a une discussion "voir ici" et ici est en lien avec le post

Pascal
20/07/2013, 20h32
BlueMonkey

Pour associer à un texte d'un post, un lien hypertexte :
- sélectionne le texte tapé préalablement
- clique sur l'icône http://www.developpez.net/forums/ima...createlink.gif
- colle le lien dans la fenêtre qui s'ouvre, puis valide.

A+

[Edit] pour que le devis ne prenne pas un format avec des / j'ai changé le format de la cellule contenant le n° : (il est passé de standard à texte)
20/07/2013, 21h26
grisan29

Bonsoir BlueMonkey:ccool:

Citation:

Cette mise à jour implémente :
- la mise à jour du fichier base\articles.xlsx lors de l'ajout de matériel depuis une facture ou un devis.
- la consommation se fait au fur et à mesure des ajouts depuis l'USF bibliothèque.
- l'enregistrement dans le fichier se fait au moment du clic sur <Quitter> de
l'USF bibliothèque.

et si je n'ai pas de réponse au devis, la quantité reste décomptée? c'est justement ce que tu me disais au début du post a propos de la numérotation des feuilles, comme tu le vois j'ai retenu ta leçon;)

Pascal
20/07/2013, 22h14
BlueMonkey

Re,

Effectivement la consommation d'articles sur Devis c'est bancale :aie:

Donc :
- soit on créé un bouton à part pour dire <consomme les articles>, mais une fois sur 10 tu oublieras de le faire, ou tu le feras 2 fois
- soit on consomme les articles lors qu'on clique sur <Enregistrer dans la base> et qu'il s'agit :
... soit d'une facture (sur devis ou facture simple ou acquitté)
... soit une facture SAV

Mais PAS dans le cas :
- d'une facture d'accompte, sinon à la facture "finale" on consomme 2 fois.
- d'un devis

Une de ces solutions est possible ? Tu vois une autre méthode ?

[Edit]
Ci-joint une version v1.10 :
- implémente des Combobox liées Code Postal / Ville pour l'ajout de nouveau clients
- prend la base de villes / code postale depuis le fichier base\clients.xlsx (colonne P et Q)
- enregistre le fichier base\clients.xlsx après un ajout d'un nouveau client.
- implémente la consommation des articles présent sur une facture ou facture SAV, lors du clique sur <Enregistre dans la base>

A+
21/07/2013, 04h45
grisan29

bonjour BlueMonkey:ccool:
un grand :merci: pour cette version:applo:

Citation:

mais une fois sur 10 tu oublieras de le faire

d'accord avec toi

Citation:

- soit on consomme les articles lors qu'on clique sur <Enregistrer dans la base> et qu'il s'agit :
... soit d'une facture (sur devis ou facture simple ou acquitté)
... soit une facture SAV

oui pour ceci mais de toute façon une facture d'acompte ne comprendra jamais d'article mais que le paiement d'acompte

Citation:

Une de ces solutions est possible ? Tu vois une autre méthode ?

non tes propositions de plus haut me vont très bien

a propos d'acompte ou de facture, il faudra bien que j'enregistre les paiements quelques part, en attente si c'est un devis, un acompte, j'avais déjà entamé une solution que voici mais dont la feuille client a une autre organisation

sur cette feuille j'avais lister tous les besoins pour créer un fichier de facture

:merci:pour l'explication des liens sur le post, j'en ai créer avec succès

Pascal
edit: pourra tu me commenter les codes qui vont avec la ligne

Code:

ConsommeLesArticlesDansLaBaseArticles

dans l'enregistrement dans la base afin de comprendre la subtilité employée
21/07/2013, 14h06
BlueMonkey

Bonjour,

Ci-joint la version v1.10 commentée pour la partie d'ajout des articles dans la base articles.

J'ai également retirer les boutons <Nouvelle Feuille> qui ne servait plus,
et l'ancien code pour la partie Aperçu (qui n'était plus exécuté car je l'avais placé temporairement dans un test If nouveauCode ....

Citation:

sur cette feuille j'avais lister tous les besoins pour créer un fichier de facture

Moi qui pensait avoir fini :mouarf:

Le document qui résume les besoins est intéressant. Il aurait été fort utile au début du post.
Maintenant il y aura probablement des modifs à faire sur l'existant pour pouvoir gérer certains besoins comme les relances, bilan par client, lettre ...

Je n'ai pas réfléchi à tout mais en gros :
- Pour gérer les paiements de facture, on peut ajouter un bouton "payé", qui ouvrirait l'USF de saisie d'infos chèque, montant, n° de chèque ...
(USF probablement à mettre en commun avec celle des acomptes)
- l'infos payé ou non, durée de retard de paiement ou "payé" figurerait dans une colonne du fichier ListeDevis_Factures.xlsm
- la liste des paiements reçu figurerait dans
une nouvelle feuille de ListeDevis_Factures.xlsm.
- pour afficher la liste de facture à encaisser, en retard, l'état par client ... on peut utiliser les filtres automatique Excel sur la feuille ListeDevis_Factures.xlsm.
- Pour la partie commande gestion des stock, ça ne me paraît pas simple.
(format des commandes, seuil minima de commande, commande en cours, reçu mais défectueux, surconsommation parce que pas prévu ou cassé ...)
- Pour les relances, à partir d'un courrier type à compléter et des infos clients bien séparées, il doit être possible de faire
du publipostage à partir des infos se trouvant dans ListeDevis_Factures.xlsm.
Il y a des éléments qui ne me parle pas, (concrètement je ne sais pas ce qu'il faut faire dans ces cas) pour :

Citation:

Supprimer un paiement.
Edition de recettes/Edition des avoirs.

En gros c'est faire un système ERP avec gestion de stock, de facturation, achats, clients ...
A mon avis, en bossant soir et week-end, dans 2 mois j'y suit encore :calim2:
(et je ne serais pas toujours aussi dispo)
Avant de commencer ton projet, est-ce que tu avais regardé du côté des solutions ERP pour TPE qui existe ?
S'il y a rien qui réponde à tes besoins, il faudrait regarder autant que possible du côté des fonctions Excel pré-existantes lorsque c'est possible (notamment pour les affichages partiels : voir filtre automatiques, ou TCD ...)

A noter aussi que la maintenance n'est pas toujours facile. Dans le code pré-existant il y a énormément de noms de variables/composants pas très explicite ... : texte1, texte2, texte3,CommandButton1, CommandButton2 ... ...:cry:
Ca ralenti pas mal les corrections parce qu'il faut soit reprendre le code, soit comprendre ce que fond ces variables...

Avant de me lancer dans tout ça, je vais réfléchir à ce que je peux raisonnablement espérer faire ou non.

A+
21/07/2013, 15h17
grisan29

bonjour BlueMonkey:ccool::applo::applo::applo::applo:
la liste des besoins ne mets pas venue a l'esprit de te l'envoyer avant:cry:mais tout dessus n'est pas a prendre en compte

Citation:

Pour la partie commande gestion des stock, ça ne me paraît pas simple.

je ne cherche pas le compliqué juste ce qui s'est dit avant soit

Citation:

Effectivement la consommation d'articles sur Devis c'est bancale

mais pas tout la partie de la feuille besoin
pour la partie paiement

Citation:

Saisir un paiement.
Saisir un acompte. déjà réglé par toi

reste la saisie du paiement

Citation:

comme les relances, bilan par client, etc...

inutile

Citation:

Supprimer un paiement.
Edition de recettes/Edition des avoirs.

inutile

Citation:

c'est faire un système ERP avec gestion de stock

non je n'ai jamais penser a ça

Citation:

Avant de commencer ton projet

oui j'en ai même acheter un, mais qui a perdu toutes mes bibliothèques, liste client ,facture devis etc...au bout d'a peine 1 an d'utilisation et le fournisseur "MEDIABAT" n'a pas compris la cause m'a donné une maj et cela n'a rien changer donc ils m'ont remboursé les 650€ de valeurs, mais pas le travail de refaire mes devis et facture, c'était au début de mon activité, depuis je fait des devis et factures avec ce que j'essai de faire avec excel et vba
je suis refroidi avec tous logiciel préconçu:(
et j'utiles celui ci .

Citation:

A mon avis, en bossant soir et week-end, dans 2 mois j'y suit encore

je n'ai pas envie de te mobiliser plus tu a déjà fait une part importante

Citation:

Moi qui pensait avoir fini

je ne vais t'embêter plus et fermer le post car la demande pour le paiement est un autre sujet qui peut attendre

Pascal
21/07/2013, 15h55
BlueMonkey

Re,

Je te rassure, le sujet ne m'embête pas (je ne répondrais pas sinon ;) )
Mais c'est juste quand je commence quelque chose, j'aime bien aller au bout.
Et pour ça il faut avoir une vue d'ensemble sur ce qu'il y a à faire. :D

Je pense que ton projet peut être modulaire : à partir du moment où tu sais ce que tu veux faire il doit être possible de préparer les différents documents à accepter les développements futurs sans trop modifier l'existant.
De façon à pouvoir commencer à utiliser les fonctions existantes, sans tout modifier à chaque ajout de fonctionnalité.

Pour terminer ce qui est en cours, je te propose :
- sur le fichier ListeDevis_Factures
...de découper en différentes colonnes les infos clients (nom adresse ...).
Ca sera utile pour créer des courriers ou autres à partir de ce fichier.
... d'ajouter une colonne pour savoir si la facture est payée ou non,
et la date limite de payement
(avec un filtre Excel automatique tu pourras alors savoir qui relancer)

- sur le fichier Facture/Devis :
... déplacer l'USF "adresse chantier" venant de l'attestation pour remplir l'adresse du chantier dans le devis
... ajouter un bouton <Payé> sur la facture, qui aura pour seul effect d'ajouter les infos "mode de paiement, montant ...." dans le classeur ListeDevis_Factures.

Si c'est bon pour toi, je t'enverrais ces modifs début de semaine prochaine
(comme tu es en déplacement, tu les regarderas quand tu aura le temps).

A+
21/07/2013, 16h47
grisan29

re,:ccool:

Citation:

j'aime bien aller au bout.

sur mes chantiers c'est pareil

Citation:

Pour terminer ce qui est en cours, je te propose

pas de souci cela me convient, mais comme je te l'ai dit ne te fixe pas sur la liste que je t'ai envoyer et que peut etre j'aurai du garder

Citation:

Si c'est bon pour toi,comme tu es en déplacement

oui je ne sais pas quand je pourrai etre chez moi cette semaine car je dois négocier avec ma cliente mon planning car plus je démoli ce qui est a faire et plus je trouve des malfaçons et les contre expertises ne sont pas pressés de venir et les congés vont en leur faveur pour reporter

Pascal
21/07/2013, 17h06
BlueMonkey

Re.

Citation:

cela me convient, mais comme je te l'ai dit ne te fixe pas sur la liste que je t'ai envoyé

OK, finirai donc les points listés précédemment. :ccool:
Après si tu vois des bugs à l'utilisation, je pourrais les corriger également ;).

Bon courage pour tes travaux d'expertise.
A+

[Edit]
J'ai noté la modif du post suivant sur le test est cas où la quantité de l'article est vide.
23/07/2013, 07h10
grisan29

bonsoir BlueMonkey

en essayant ta dernière version:ccool:, je me suis aperçu d'une chose, oh petite mais comme cela m'arrivait sur les autres fichiers je préfère en parler car cela viens de m'arriver
bon quand j'ajoute un article sur la feuille mais que j'oubli de remplir la quantité, pourrai avoir une alerte msg de type

Code:

If Me.TextBox9.Value = "" Then

mais qui ne perturbe pas le reste du code en bloquant comme maintenant sur

Code:

TextBox8 = Me.TextBox5.Text - Me.TextBox9.Text

car le textbox9 n'est pas renseigné alors le calcul plante

Pascal
edit: et c'est pareil dans le cas d'ajout de prestations qui elles n'ont pas besoin de stock, une prestation n'est pas un article

Bonjour Blue Monkey:ccool:
Dans la création d’un devis est-il possible d’avoir des variantes soit mettre des choix possible, mais je pense que cela influera sur le mode de gestion des calculs car ses variantes offrent des choix chiffrés mais non compté dans le total, j’effaçais manuellement le taux de tva sur les autres fichiers

Et de plus cette demande doit arrivé une fois de plus en retard:oops:

Par ailleurs j’ai un souci dans la création d’une facture d’acompte, l’usf crée une autre feuille qui emporte avec elle tous les écrits de l’entête haute sauf les boutons
Ce que je voudrais c’est que tout reste dans la même feuille

Merci de ta compréhension
C’est un extra que d’être la matinal
Pascal
24/07/2013, 00h10
BlueMonkey

Bonsoir

Citation:

la création d’un devis est-il possible d’avoir des variantes soit mettre des choix possible, mais je pense que cela influera sur le mode de gestion des calculs car ses variantes offrent des choix chiffrés mais non compté dans le total,

C'est peut être possible, mais je ne vois pas ce tu veux dire.

Citation:

j’ai un souci dans la création d’une facture d’acompte, l’usf crée une autre feuille qui emporte avec elle tous les écrits de l’entête haute sauf les boutons
Ce que je voudrais c’est que tout reste dans la même feuille

La facture d'acompte est très différente en format de devis et autre facture.
(à cause de l'entête, et des infos banques, chèques et autre).
Du coup ça demanderais pas mal de code pour remettre le document en forme pour créer un devis ou facture.
Ou alors il faudrait afficher/masquer des blocs de lignes.
Est-ce qu'il n'est pas intéressant d'avoir dans un même classeur les éléments facturé et la facture d'acompte ?
De cette manière, il est possible de savoir à quels éléments l'acompte fait référence. A vrai dire, je voyais le document d'encaissement également comme une nouvelle feuille de la facture.
De cette manière tu aurais un résumé de la facturation d'une prestation plus facile à suivre,
qu'un ensemble de fichier sans lien entre eux, et mélangé à d'autres prestations.

bonsoir BlueMonkey:ccool:

je suis rentré un peu plus tot que prévu car trouvé une autre malfaçon donc report a mardi prochain bon.
ayant vu ton post, avant de te répondre, je suis allé chez un collègue qui avec son logiciel peut faire des variantes, et je te joint également un exemple de facture d'acompte et de facture avec rappel des acomptes
voila si cela peut t'aider

Citation:

ses variantes offrent des choix chiffrés mais non compté dans le total,

comme tu peux le voir sur cette variantes au dessus il y un sous total qui compte ce qu'il y a quand il y a changement de tranche, pour cela il y a quelques dizaine de mois en arrière j'avais trouvé ce code sur un forum mais jamais pu l'adapter
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub CommandButton2_Click() ' SOUS-TOTAUX Dim LIGNE As Integer LIGNE = Me.Label6.Caption With ActiveSheet .Cells(LIGNE, 1).MergeCells = False ' .Range(.Cells(LIGNE, 17), .Cells(LIGNE, 19)).MergeCells = True .Cells(LIGNE, 19).Select ActiveCell.Formula = "=SUM(" & .Range(.Cells(CDbl(Me.Label2.Caption), 26), .Cells(LIGNE, 26)).Address & ")" .Cells(LIGNE, 16).Value = "Sous-Total : " .Cells(LIGNE, 16).Font.Bold = True .Cells(LIGNE, 16).HorizontalAlignment = xlRight .Cells(LIGNE, 21).Value = "" ' Pour effacer le 0,00 .Cells(LIGNE, 26).Value = "" ' Pour effacer le 0,00 .Cells(LIGNE, 29).Value = "" ' Pour effacer le 1 LIGNE = LIGNE + 1 Me.Label2.Caption = LIGNE Me.Label6.Caption = LIGNE End With End Sub
si cele peut te servir tant mieux mais je ne sais ce que sont les labels utilisés

Pascal

re
pas bien lu ton post :cry:

Citation:

De cette manière, il est possible de savoir à quels éléments l'acompte fait référence. A vrai dire, je voyais le document d'encaissement également comme une nouvelle feuille de la facture.

je ne l'avais pas interpréter comme tu le fais mais alors en créant sa feuille peut elle également copier le logo et le bas de page qui se trouve dans la mise en page
Pascal

24/07/2013, 22h20
BlueMonkey

Bonsoir,

Pour les variantes, ça rendrait la gestion plus complexe et source d'erreur (à la saisie, pour le calcul d'un total d'une seule variante,
pour la transformation de devis en facture, ...)
Et le gain par rapport à l'édition d'un devis pour en créé un autre n'est pas énorme.
Par ailleurs, d'un point de vue comptable et légal, le fait d'avoir un total qui ne correspond pas
forcément à la variable choisie, ne me parait un risque de confusion/contentieux également.

Pour gérer différente version d'un devis, il est possible avec la version actuelle de partir du devis le plus complet,
et de ne modifier que les différences.
Ca me paraît plus clair pour le client, (je valide un n° de devis),
et pour toi lors de la transformation du devis en facture.

Citation:

en créant sa feuille peut elle également copier le logo et le bas de page qui se trouve dans la mise en page

Ca ne doit pas poser de problème si part sur cette option.

Voir 40 message(s) de cette discussion en une page