Où ajouter des lignes dans ce codes

Bonsoir

Citation:

---

C'est un nombre important d'articles dans le fichier, ou de devis / facture dans la base qui provoque cette erreur ?

---

a partir d'environ la 40ème lignes et apres c'est a tous les essais d'enregistrements

Pascal
autrement j'ai imprimer le devis que je t'ai dit avoir créer et je trouve que c'est imprimer un peu comme ci la feuille était écrite en size8 comment peut 'on faire pour que cela soit autrement

Re.

a partir d'environ la 40ème lignes d'article dans la Feuille Facture
ou bien
a partir d'environ la 40ème lignes de devis enregistré dans <ListeDevis_Factures.xlsm> ?

Re
eh ben pour te répondre j'ai refait un essai qui n'a pas eu de problème , mystère! je recommence et je reviens
re je n'y comprends rien , le premier essai infructueux et les autres pas soucis majeur hormis des bordures qui se créer en bas de listes (voir ci joints)

Pour les bordures, j'ai eu des erreurs VBA lorsque je clique plusieurs fois de suite sur <ajout sur devis>.
Mais je pense que l'erreur est due au fait que le traitement d'un ajout précédent n'est pas terminé, avant qu'un nouvel ajout soit effectué.
Et comme en pratique, je pense qu'il faudra changer d'article avant d'avoir à faire un nouvel ajout, le traitement aura le temps de se terminer sans erreur.

Citation:

---

je clique plusieurs fois de suite sur <ajout sur devis>

---

tu a raison en laissant 2 a 3 secondes entre chaque clic les bordures ne s'écrivent pas, mais y a-t-il une parade au cas ou
a tu vu le rajout fait dans le post de 21h49 qui s'est croisé avec le tien que j'ai rajouté 2 lignes

autrement est ce que le code d'ajout dans la feuille te semble correct, car il a migré dans plusieurs essais, depuis 4 ans que je planche sur ce fichier et c'est une copie de ce code pour ajouter une tranche ou un texte(commentaire)

Les ralentissements sont liés à des appels indirect mais répétés à la fonction chiffrelettre du module chiflettre.
En appelant cette fonction depuis VBA au lieu d'une formule Excel, de nombreux ralentissement pourront être évité.
Tu peux te rendre compte de l'effet en supprimant la formule sous le texte Arrêté le présent devis à la somme de :
Et en solution ultime, il suffit de griser le bouton <Ajouter devis> tant que le traitement n'est pas terminé.
Et de réactiver le bouton en fin de traitement.
Ca ne m'inquiète pas plus que ça.

J'ai bien vu les problèmes d'impression (taille, entête, et pages secondaires).
Mais comme le fait d'ajouter les entêtes dans chaque page modifiera cette partie, je regarderais en même temps.

re
connait tu la formule pour remplacer (chiflet)

Pascal

Bonjour,

Je ne pensais pas remplacer la fonction chiffrelettre, simplement :
- soit suspendre l'appel à cette fonction durant l'ajout de matériel,
- soit appeler la même fonction, mais depuis VBA, et stocker le résultat au format texte.

Pour l'instant je pense implémenter la première pour permettre une mise à jour du total en lettre lors de la suppression d'une ligne par exemple.
Je posterais une correction dans la soirée.

A+

bonsoir BlueMonkey

j'essaie depuis un moment de modifier le fichier client afin que dans la page ajout client je puisse mettre 2 combobox supplémentaire pour remplacer les textbox cp et villes les 2 combobox ajoutés dont les codes de classe et modules ont été intégrer, mais impossible a faire fonctionner et étant déjà peu doué dans les codes standard, mais avec des classes c'est le plongeon complet au fond de vba, je te joint le fichier correspondant que j'ai trouvé sur le net et toutes les solutions que j'ai essayer conduise a l'échec
pour faire une recherche plutôt qu'une inscription

Citation:

---

- soit suspendre l'appel à cette fonction durant l'ajout de matériel,
- soit appeler la même fonction, mais depuis VBA, et stocker le résultat au format texte.

---

suspendre l'appel ou l'appeler depuis vba, a toi de choisir le mieux où m'indiquez la route a prendre


Pascal

Bonsoir,

Ci-joint une version avec les modifications suivantes :
- suppression de la formule de calcul du total en lettre durant l'ajout de nouveau article pour éviter les ralentissements

- utilisation de la mise en forme conditionnelle pour mettre en forme le tableau
(lors de suppression / ajout de nouveaux articles, il arrivait d'avoir une erreur lié à la mise en forme du tableau. Avec la MFC, j'espère corriger ce problème).

- possibilité de supprimer plusieurs lignes en d'un devis/facture (les sélections des lignes doivent être contigüe avec de cliquer sur supprimer les lignes, et il n faut pas supprimer la première ligne du tableau sinon perte de la MFC)

Le problème d'impression n'est pas corrigé dans cette version.
Pour les ListBox villes et cp je ferais un essais à l'occasion.

Bonsoir BlueMonkey:ccool:

Parfait j'enlève et je remets "chiflet" a l'ouverture et a la fermeture de l'USF du :ccool:
et aussi il ne me reste que 3 lignes sur 12 actives 8O pour mettre les bordures au fur et a mesure de l'écriture dans la feuille et comment sont elles mises du coup, car puis je appliquer la même chose au code de tranche et texte qui sont des codes commun

merci pour cette mouture:merci::applo:

Pascal

Bonsoir,

Pour les bordures, la fonction active qui permet la mise en forme est dans les cellules du tableau est la mise en forme conditionnelle.
Ca fonctionne parce qu'a l'insertion d'un nouvel article sur le devis/facture, on copie la dernière ligne mise en forme vers la nouvelle ligne insérée.

Code:

---

1 2 3 4 5 6

'copie la dernière ligne du tableau mise en forme. .Range(.Cells(lig - 1, "B"), .Cells(lig - 1, "P")).Copy 'insérer les éléments copié une ligne en dessous avec leur formule de mise en forme. .Cells(lig, "B").Insert Shift:=xlShiftDown 'efface le contenu de l'ancienne ligne (seule la mise en forme conditionnelle m'intéresse .Range(.Cells(lig, "B"), .Cells(lig, "P")).ClearContents

---

Et du coup :
- la mise en forme reste correcte, même si on supprime la dernière ligne, ce qui n'était pas le cas avec le code d'avant. :ccool:
- il faut garder au moins une ligne avec un article dans le devis, sinon on perd la mise en forme (car il n'y plus de ligne modèle contenant la MFC à copier). :aie:

J'espère aussi que ça ne posera pas de problème avec la mise en forme du tableau lorsque le devis fait plusieurs pages.

Pour plus d'info sur les MFC voir le tutoriel La mise en forme conditionnelle dans Excel de SilkyRoad.

Citation:

---

puis je appliquer la même chose au code de tranche et texte qui sont des codes commun

---

Je n'ai pas vu d'autre éléments où la bordure dépend du nombre de ligne dans un tableau.
Si le tableau garde toujours la même taille, la MFC n'apporte pas grand chose.
Ca concerne quelle plage de cellule (ex : A1:H5) ?

bonsoir BlueMonkey

Citation:

---

- il faut garder au moins une ligne avec un article dans le devis, sinon on perd la mise en forme

---

justement ,je pensais te demander pourquoi il y a une ligne blanche au début en ligne 19 car moi je la supprime

Citation:

---

Ca concerne quelle plage de cellule (ex : A1:H5) ?

---

qu'est ce qui concerne quelle plage

Pascal

Re.

Citation:

---

justement ,je pensais te demander pourquoi il y a une ligne blanche au début en ligne 19 car moi je la supprime

---

Dans ce cas garder la mise en forme via le code VBA est plus sûr.
Je n'ai fais que le mettre en commentaire, donc je peux les remettre facilement.

Citation:

---

Ca concerne quelle plage de cellule (ex : A1:H5) ?

---

C'était suite à ta question "comment sont elles mises du coup, car puis je appliquer la même chose au code de tranche et texte qui sont des codes commun"
Je voulais savoir quelle plage devait être également mise en forme de façon dynamique (vba ou MFC)

Re,

Ci-joint une nouvelle version :
- retour à la mise en forme des bordures du tableau en VBA (pour pouvoir supprimer toutes les lignes articles sans perdre la mise en forme)
- insertion d'un bloc de cellule au lieu de l'insertion d'une ligne complète lors de l'ajout d'un nouvel article
- possibilité de supprimer toutes les lignes articles du devis (Mais attention de ne pas supprimer la ligne avec le total, sinon ça corrompt les formules d'affichage des totaux).
- possibilité d'avoir l'aperçu avec l'entête de tableau et le n° de devis/facture répété en haut des pages. (voir bouton <Aperçu>)
- modification de l'affichage des pages :
... avant les pages étaient affichées dans une boucle avec un masquage de ligne.
... maintenant on utilisera les fonctions d'Excel pour naviguer entre les pages d'aperçu avant impression.

http://nsa33.casimages.com/img/2013/...4726914516.png

Si ça convient, on pourra supprimer pas mal de lignes de code qui étaient utilisées pour afficher / masquer manuellement des lignes.
___________________________________________________
[Edit]
La bordure de fin de page a été ajouter dans la version ci-jointe.
Elle est dessinée / masquée avec

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub DessineBordureDeFinDePage(dessine As Boolean) Dim lastLine As Long Dim Hb As HPageBreak With Worksheets(WS_FACTURE) If .HPageBreaks.Count > 0 Then For Each Hb In .HPageBreaks lastLine = Hb.Location.Row - 1 .Range(.Cells(lastLine, "C"), .Cells(lastLine, "M")).Borders(xlEdgeBottom).LineStyle = _ IIf(dessine, xlContinuous, xlNone) Next End If End With DoEvents End Sub

---

A+

bonjour BlueMonkey

merci pour cette version :ccool:
l'aperçu est parfait :ccool:mais il manque la bordure basse à la fin de la 1ére,2ème,3ème,etc... feuille dans le cas d'un devis x pages en ayant la dernière feuille comme maintenant dans l'aperçu, il y a quelques temps (1 où 2 ans)j’avais ce code qui était appeler par

Code:

---

Call Appliquer_Les_Bordures(.Name)

---

qui est en commentaire dans le code de l'aperçu, et le code appelé était

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Private Sub Appliquer_Les_Bordures(NomFeuille As String) Dim DerCol As Integer Dim DerLig As Long Dim Bordure(), Elt As Variant   'Tableau avec le type de bordure à appliquer Bordure = Array(xlEdgeTop, xlEdgeLeft, _ xlEdgeRight, xlInsideVertical)   With Worksheets(NomFeuille) If Not IsEmpty(.UsedRange) Then DerLig = .Cells.Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row DerCol = .Cells.Find("*", LookIn:=xlValues, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Column With .Range("A12", .Cells(DerLig, DerCol)) For Each Elt In Bordure With .Borders(Elt) .LineStyle = xlContinuous .Weight = xlThin 'Or Thick 'Constantes couleurs disponibles 'vbRed , VBBroun, vbGreen, vbWhite 'vbCyan, vbBlue, vbYellow .Color = vbBlack End With Next End With With .Range("C12", .Cells(DerLig, 3)) .Borders(xlEdgeLeft).LineStyle = xlNone End With End If End With End Sub

---

ce code était dans un de mes nombreux essais et l'écriture des données sur la feuille commençais a la colonne A, a l'aperçu ce code mettait la bordure basse mais je ne sais quelle partie du code le fait
A+
Pascal

bonjour BlueMonkey:ccool:
comme je t'ai dit dans mon MP j'ai zappé la 2ème partie de ton post précédent car autrement je ne t'aurai pas posté le mien
la version B est parfaite au niveau des bordures de fin de pages:ccool:
par contre je suis obliger de mettre en commentaire

Code:

---

1 2	WsFacture.Range("c19:M19").Borders(xlEdgeTop).LineStyle = xlContinuous WsFacture.Range("O19:P19").Borders(xlEdgeTop).LineStyle = xlContinuous

---

sinon c'est le bug et aussi a l'ouverture du fichier télécharger si je veux ajouter un article il y a un bug

Code:

---

.Range(.Cells(lig, "O"), .Cells(lig, "P")).Borders(xlEdgeTop).LineStyle = xlNone

---

mais ce bug est résolu si je mets les autres lignes en commentaire après avoir effacer les bordures basses sous articles

Pascal

Bonsoir,

J'avais remarqué que de façon aléatoire des erreurs survenaient lors de l'ajout d'un nouvel article.
Je n'ai pas vraiment d'explication. C'est pourquoi j'étais partis il a quelque version sur la MFC pour la mise en forme du tableau.

Toutefois, si à partir de la version 1.06b tu supprimes la ligne article qui reste avec le bouton <supprimer lignes> (de façon à avoir un tableau vide),
le problème ne se produit plus lors d'ajout d'articles. (même si tu en ajoute des pages)

L'erreur à l'air de survenir lors de la suppression de ligne. Mais comme dit je n'ai pas trop d'explication logique sur ces erreurs.

A+

bonsoir a toi

Citation:

---

- possibilité de supprimer toutes les lignes articles du devis (Mais attention de ne pas supprimer la ligne avec le total, sinon ça corrompt les formules d'affichage des totaux).

---

comment peut 'on supprimer les lignes???en les sélectionnant et en cliquant sur le bouton "supprimer une ligne" pas logique, ce bouton a été mis pour supprimer une ligne si ce n'est pas l'article voulu qui est écrit
pour la remise a zéro de la feuille il y a dans l'usf liste_boutons un bouton qui me faisait une nouvelle feuille en effaçant les données qui était écrites et effacer le client par ce code

Code:

---

1 2 3 4 5 6 7

' Effacer à partir d'ici DLig = Sht.Range("C19").End(xlDown)(1).Row If DLig > 19 Then Set Plage = Sht.Range("C19:B" & Sht.Range("C19").End(xlDown)(1).Row - 3) Plage.EntireRow.Delete End If Sht.Range("J5:J10").Value = ""

---

mais de toute façon il faut bien remettre a zéro la feuille pour faire un autre devis a un autre nom

Pascal

Re.

Pour la suppression de lignes multiples, je pensais au cas où il fallait réviser un devis, et changer plusieurs articles.
(Plutôt que d'avoir à supprimer les articles 1 à 1, sélectionner un groupe d'articles me paraissait plus adapté.
Effectivement dans ce cas il faudrait renommer le titre du bouton <Supprimer une ligne> en <Supprimer les lignes sélectionnées>

Mais si ce cas n'arrive jamais, pour revenir au fonctionnement précédent, il suffit de remplacer la fonction Supprimer_Ligne() du module MGestion par :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Supprimer_Ligne() Dim msg, style, title If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée ?", vbOKCancel + vbDefaultButton2, "attention a la suppression") = vbOK Then ' Définit le message. 'récupère le n° de la ligne 'nomme la variable "cel1" avec la référence de la cellule , "b4" par exemple Dim cel1 As String Dim cel2 As String cel1 = "B" & Selection.Row cel2 = "P" & Selection.Row 'nomme "cel1" la cellule, "b4" par exemple 'sélectionne les cellules à supprimer (exemple b4:P4) => et remonte les cellules d'1 cran cad b5.P65536 en b4.h65535 'et ajoute la 65536 vide, mais attention à cette formule, car si il y a des donnees à droite ou à gauche, en a4 ou 'au delà de P4, dans notre exemple, elles ne bougent pas Range(Range(cel1), Range(cel2)).Delete Shift:=xlUp Else ' L'utilisateur a choisi Non. MsgBox "suppression annulée" ' Effectue une action.quitter" End If End Sub

---

bonjour BlueMonkey

Citation:

---

je pensais au cas où il fallait réviser un devis, et changer plusieurs articles.

---

tu n'a pas tords:ccool: car jusque présent je réécrivais le devis, et lors d'une erreur qui normalement se voie rapidement, je supprimai la ligne et réinscrivait une autre puis la remontait pour la mettre a sa place par le biais du bouton "remonter une ligne".

mais fermer l'usf pour un contrôle si c'est une modification me vas très bien, car une modification est plus simple à réaliser que le 1er devis où facture.

sinon dans le cas d'un devis de plusieurs pages l'idéal serai que la dernière ligne d'inscrite soit toujours visible a l'écran comme si la scrollbar remontait les lignes

je voyais pas cela sous cet angle, car je ne peut pas dire que cela n'arrivera jamais

je ne vois pourquoi remplacer le code de supprimer car c'est le même qui est derrière le bouton

Pascal

re
dans le post http://www.developpez.net/forums/d13...s/#post7379377
je t'ai mis un essai pour acompte qui lui tel que sur l'essai fonctionne bien et devrai se faire en feuille vide (normalement)mais devrai marquer également le N°devis qu'il concerne pour ainsi pouvoir déduire l'acompte a l'établissement de la facture

Pascal