Gestion de chantiers

re,

Si c'est toujours pareil, vire la feuille "circuit" dans un autre fichier,

de sorte qu'il ne reste plus que les 2 bases (par élimination on va trouver)

Claude.

édit: j'ai trouvé,

feuille Base : N3:O3 à effacer (c'était des formules tests du début)

çà ne gène pas dans le fichier EspacesVerts.

Je sort jusqu'à midi.

Re l'ami,

Yes ok données effaçées.

Je continu mes explorations lol ...

Adrien

Bonsoir Claude et à tous.

Je continu à découvrir le prog, pour l'instant ç'a fonctionne niquel !! Très puissant !

Question : Est-il possible de modifier (manuellement) le nom des onglets pour les brouillons? Afin de mettre celui du chantier pour mieux le retrouver par exemple... Ou cela va-t-il créer des problèmes ?

Sinon c'est vraiment génial !!!

Edit1 : Aïe !! : un chti bug. Je n'avais pas encore essayer l'impression.

>> un problème avec la macro d'impression je crois (feuille devis et brouillons). Si tu clique la première fois sur imprimé, l'aperçu et niquel. Si tu ferme l'aperçu et que tu recliques sur imprimer les ajustements de ligne se multiplient .... Pas très pratique. LOL , ta macro est trop élaborée pour que je puisse espérer comprendre.

Amicalement

Adrien

Bonsoir,

Oui tu peux changer le nom des brouillons, c'est les seules feuilles ou c'est permis.

Si tu clique la première fois sur imprimé, l'aperçu et niquel. Si tu ferme l'aperçu et que tu recliques sur imprimer les ajustements de ligne se multiplient .... Pas très pratique.

Je n'appelerai pas çà un bug,

c'est pas un jouet ! ou tu imprime ou tu laisse.

Autre choses ?

Claude.

Salut !!

Oui je suis d'accord mais si tu dis non je ne veux pas imprimer, tu fait tes modifs, tu clique sur imprimer et la les espaces se multiplient.

De plus, il est possible que le devis soit imprimer plusieurs fois .

Peut être que je ne fait pas la bonne manip... Je ne sais pas

Edit : au fait, est-ce voulu que la msgbox "Si vous changez de chantier, les saisies en cours seront effacées" apparaissent dès que je sélectionne la chantier dans "saisie" et ce même si la feuille est remise à zéro ??

Adrien

Bonjour à tous,

Je supprimerais cette option pour les Brouillons, dans la prochaine version.

Amicalement

Claude.

Bonjour Adrien et à tous,

Je suis étonné de ne pas avoir + de requêtes, + de bugs !

J'attendais pour les regrouper dans une nouvelle version.

Le projet est-il opérationnel sur le terrain ?

En attendant, pour l'histoire de l'impression des brouillons, remplace la macro 'Imprimer" par celle-ci.

(les brouillons ne seront plus aérés comme les devis définitifs)

Sinon avec ta version actuelle, "Insert ligne" reformate les hauteurs lignes.

Sub Imprimer()
Dim DerLig&
Dim Rep%, Cel As Range
Dim Txt, Nb, NL, Tot, EnTete, Ajuste, Pg, Ar
Dim NbL As Byte
    Application.ScreenUpdating = False

    DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Nb = Range("Commentaire").Row - 3
  If ActiveSheet.Name <> "Devis" Then GoTo FIN

    EnTete = Range(Rows(2), Rows(8)).Height
    Txt = Range(Rows(9), Rows(Nb)).Height 'taches

            '****************** aère les chapitres ***********
                    For Each Cel In Range("c9:c" & Nb)
                            With Cel
                                .RowHeight = .RowHeight + 5
                            End With
                    Next Cel
             '************** Ar = nombre pages ************
                Tot = Range(Rows(2), Rows(DerLig)).Height
                Pg = Tot / 780 'nb pages
    Ar = WorksheetFunction.Ceiling(Pg, 1) 'plafond ok
    NbL = Nb - 8
                If Tot < 780 Then
                    Ajuste = 780 - Tot
                    With [commentaire].Offset(-2, 0)
                        .RowHeight = .RowHeight + Ajuste
                    End With
                End If
                    '*****************************************
                If Tot > 780 And Tot <= 1000 Then
                    Txt = Range(Rows(2), Rows(Nb - 1)).Height '+ EnTete 'taches
            Ajuste = WorksheetFunction.Max(Txt - 780, 780 - Txt) / NbL
                    For Each Cel In Range("c9:c" & Nb)
                        With Cel
                            .RowHeight = .RowHeight + Ajuste
                        End With
                    Next Cel

                    Txt = Range(Rows(Nb), Rows(DerLig)).Height + EnTete 'fin taches
                    Ajuste = (780 - Txt)
                    With [commentaire].Offset(-2, 0)
                        .RowHeight = .RowHeight + Ajuste
                    End With
                End If
                    '*****************************************
                If Tot > 1000 Then
                    Txt = Range(Rows(2), Rows(Nb - 1)).Height + EnTete 'taches
            Ajuste = WorksheetFunction.Max(Txt - 780, 780 - Txt) / NbL
                    For Each Cel In Range("c9:c" & Nb)
                        With Cel
                            .RowHeight = .RowHeight + Ajuste
                        End With
                    Next Cel

                    Txt = Range(Rows(Nb), Rows(DerLig)).Height + EnTete 'fin taches
                    Ajuste = (780 - Txt)
                    With [commentaire].Offset(-2, 0)
                        .RowHeight = .RowHeight + Ajuste
                    End With
                End If
    With ActiveSheet
            With ActiveSheet.PageSetup
                .PrintTitleRows = "$2:$8" 'lignes titre
                .PrintArea = "b2:h" & DerLig
                .ResetAllPageBreaks 'efface sauts de pages existants
            End With
            If Ar > 1 Then .HPageBreaks.Add Before:=Rows(Nb) 'saut de page
    End With
FIN:    With ActiveSheet
      Application.ScreenUpdating = True
        .PrintPreview 'aperçu
        Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
        If Rep = vbYes Then
        .PrintOut
        End If
        .ResetAllPageBreaks
    End With
End Sub

Est-il fréquent que les devis nécessitent + de 2 pages d'impression ?

C'est difficile à régler, il faut voir si l'enjeu en vaut la peine !

il est toujours possible de faire des sauts de pages manuellement.

Combien de temps dure le traitement pour les transferts ?

Amicalement

Claude.

Bonjour Claude et à tous,

Hé bien c'est parce qu'il n'y a pas beaucoup de bugs lol.

J'attendais d'en avoir quelques-uns pour t'en faire part afin de ne pas trop t'embéter

- j'ai changé la macro imprimé ok.

(le problème se pose toujours hélas dans le visionnage du devis)

- Un problème se pose sur la feuille bilan: la liste des tâches (pour le bilan tache) n'est pas complète, il en manque 2 à chaque fois lol. La première et la dernière du devis. Bizar bizar LOL, j'ai essayé de trouver la source du problème, cela me dépasse et pourtant je suis certain que c'est simplement un ajustement de formule lol.

- hélas oui , il est fréquent que les devis dépassent les deux pages vu les romans qu'ils font pour décrire les tâches lol. Peut-être pourrait-on trouver une façon semi-automatique de gérer ce soucis. Je planche la-dessus lol, mais je manque de compétences lol.

- Temps de transfert : très correct !! bon pour l'instant, il n'y a pas beaucoup de ligne mais en tout cas cela dure moins d'une seconde pour l'instant. A peine plus long que quand Transit est sur le même pc.

- Question requêtes, j'en aurait bien quelques-unes mais je ne veux pas abuser lol. Comme tu ma l'a dit, et c'est normal, ce n'est pas dans l'habitude du forum de fournir du tout prêt. Si tu veux je te fais une petite liste de ce à quoi j'ai pensé.

Est-tu d'accord pour jeter un œil aux deux autres fichiers en lien avec ce projet ? Bien sur cela n'a rien a voir niveau programmation car ce ne sont que des feuilles de calcul simple. Mais l'ensemble des trois fichiers formeront des outils assez simpa pour un petit entrepreneur lol.

Je n'ai pas encore explorer à fond le fichier, je fais ça tranquillement pour ne pas te dire des problèmes qui n'en sont pas lol. Je prends de la graine lol

Mais globalement ç'a a l'air de fonctionner pas mal...

Amicalement

Adrien

Bonsoir à tous,

Un problème se pose sur la feuille bilan: la liste des tâches (pour le bilan tache) n'est pas complète, il en manque 2 à chaque fois

Oui, c'est en remaniant la mise en page de cette feuille, change la validation de cette liste:

=DECALER($c$41;;;NBVAL($c$c)-18)

en mettant -18 au lieu de -20

Surveille cette validation, si tu chamboule cette feuille.

édit: cette liste est triée alphab., si tu veux, on peut la laisser dans l'ordre de saisie,

çà serait même mieux je pense ?

Impression:

Tu dis que c'est souvent que les devis font + de 3 pages, combien de pages et fréquence ?

L'échantillon des 20 devis que tu m'a fourni n'en comporte qu'un de 3 pages.

Il y avait un bug dans ma dernière macro "Imprimer", t'as pas vu ?, remplace-la par :

Sub Imprimer()
Dim DerLig&
Dim Rep%, Cel As Range, NbL As Byte
Dim Txt, Nb, NL, Tot, EnTete, Ajuste, Pg, Ar
    Application.ScreenUpdating = False

    DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Nb = Range("Commentaire").Row - 3
  If ActiveSheet.Name <> "DEVIS" Then GoTo FIN

    EnTete = Range(Rows(2), Rows(8)).Height
    Txt = Range(Rows(9), Rows(Nb)).Height 'taches

            '****************** aère les chapitres ***********
                    For Each Cel In Range("c9:c" & Nb)
                            With Cel
                                .RowHeight = .RowHeight + 5
                            End With
                    Next Cel
             '************** Ar = nombre pages ************
                Tot = Range(Rows(2), Rows(DerLig)).Height
                Pg = Tot / 780 'nb pages
    Ar = WorksheetFunction.Ceiling(Pg, 1) 'plafond ok
    NbL = Nb - 8
                If Tot < 780 Then
                    Ajuste = 780 - Tot
                    With [commentaire].Offset(-2, 0)
                        .RowHeight = .RowHeight + Ajuste
                    End With
                End If
                    '*****************************************
                If Tot > 780 And Tot <= 1000 Then
                    Txt = Range(Rows(2), Rows(Nb - 1)).Height '+ EnTete 'taches
            Ajuste = WorksheetFunction.Max(Txt - 780, 780 - Txt) / NbL
                    For Each Cel In Range("c9:c" & Nb)
                        With Cel
                            .RowHeight = .RowHeight + Ajuste
                        End With
                    Next Cel

                    Txt = Range(Rows(Nb), Rows(DerLig)).Height + EnTete 'fin taches
                    Ajuste = (780 - Txt)
                    With [commentaire].Offset(-2, 0)
                        .RowHeight = .RowHeight + Ajuste
                    End With
                End If
                    '*****************************************
                If Tot > 1000 Then
                    Txt = Range(Rows(2), Rows(Nb - 1)).Height + EnTete 'taches
            Ajuste = WorksheetFunction.Max(Txt - 780, 780 - Txt) / NbL
                    For Each Cel In Range("c9:c" & Nb)
                        With Cel
                            .RowHeight = .RowHeight + Ajuste
                        End With
                    Next Cel

                    Txt = Range(Rows(Nb), Rows(DerLig)).Height + EnTete 'fin taches
                    Ajuste = (780 - Txt)
                    With [commentaire].Offset(-2, 0)
                        .RowHeight = .RowHeight + Ajuste
                    End With
                End If
FIN:
    With ActiveSheet
        .ResetAllPageBreaks                     'efface sauts de pages existants
            With ActiveSheet.PageSetup
                .PrintTitleRows = "$2:$8"       'lignes titre
                .PrintArea = "b2:h" & DerLig
            End With
        If ActiveSheet.Name = "DEVIS" And Ar > 1 _
        Then .HPageBreaks.Add Before:=Rows(Nb)  'saut de page
        Application.ScreenUpdating = True
        .PrintPreview 'aperçu
        Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
        If Rep = vbYes Then
        .PrintOut
        End If
        .ResetAllPageBreaks
    End With
End Sub

Est-tu d'accord pour jeter un œil aux deux autres fichiers en lien avec ce projet ?

Fait voir !

Amicalement

Claude.

Bonjour Claude et à tous,

Ok j'ai capter le problème de la liste, tout con lol.

Tu as raison, le tris dans l'ordre de saisie devis serait plus interressant et plus logique.

Lol, je n'avais même pas testé ta macro imprimer, je me suis dis qu'elle devait marcher ...

Impression : il faudrait pour le bien que la macro fonctionne sur 3 pages. >suffisant pour les devis particuliers et professionnels.

Il n'y a que les marchés publics qui demanderont plus de place. Mais on ne les imprime pas cela!! Ce sera juste pour alimenter la base pour les futurs bilans.

Si tu n'arrives pas à faire 3 pages, on fera deux devis dans ces cas la partie1 / partie 2 pourquoi pas c'a marche aussi. Bien sur on aura pas le bilan global du chantier lol on prendra la calculette

Tiens voila les deux autres fichier qui marchent avec celui-la :

Le premier n'est pas du tout intéressant niveau excel lol, il sert à imprimer les fiches diverses :

>>

Le deuxième est un peu mieux mais rien a voir avec chantier lol, il sert à calculer les calculer les éléments de la feuille "listes"(de "chantier") et le coefficient de frais généraux:

>>

Si tu vois des améliorations a faire ...

Amicalement

Adrien

re,

Impression : il faudrait pour le bien que la macro fonctionne sur 3 pages. >suffisant pour les devis particuliers et professionnels.

Il n'y a que les marchés publics qui demanderont plus de place. Mais on ne les imprime pas cela!! Ce sera juste pour alimenter la base pour les futurs bilans.

Donc le problème est réglé avec 3 pages maxi ?

Si tu n'arrives pas à faire 3 pages, on fera deux devis dans ces cas la partie1 / partie 2 pourquoi pas c'a marche aussi. Bien sur on aura pas le bilan global du chantier lol on prendra la calculette

C'est ta dernière trouvaille !!

Pour ton dernier fichier, mon avis :

• Très joli, mais beaucoup de mousse pour en fait pas grand chose.
• Pense qu'il pèse + lourd que mon projet !

Ce qu'on pourrait faire pour la mise à jour des listes employés, matériels et Coèf F.G:

selon les calculs de ce fichier,

1) Dans le fichier Chantiers du serveur, ajouter une feuille et renseigner les nouveaux

coûts,(3 colonnes).

2) à chaque transfert de bases, les coûts sont mis dans la feuille "Listes"

ce qui éviterait de trifouiller dans le projet et un seul fichier à actualiser(celui du serveur).

Résumé:

Peux-tu envoyer quelques devis de 3 pages pour tests

Je ne cherche plus pour 4 pages (tu dis qu'on imprime pas ceux-la). ok ?

Continue les tests, qu'on puisse solder ce fil.

Amicalement

Claude.

Bonjour Claude et à tous,

Oui trois page maxi c'est suffisant. T'a compris, on imprime pas les plus de trois pages (marchés publics).

Avec la macro actuelle, il ne faudra imprimer le devis (enregistré dans la base) qu'une seule fois c'est bien ça ??? (Sinon les espaces se multiplieront à l'impression suivante)

Il faut réduire un petit peu la largeur d'une des colonnes car chez moi ç'a passe pas sur 1 page et à l'entreprise non plus, c'est mieux virer 0,5 cm à la colonne désignation au moins on est tranquil ...

C'est clair que le dernier fichier est lourd c'est du délire lol me suis amusé un peu . Mais il n'est pas amené à grossir car pas de base de données. Il fera toujours ce poids la quoi.

Pour l'actualisation du fichier chantier, il faut savoir que les couts (du dernier fichier) ne sont calculés qu'une fois par an. Il n'y a peu être pas besoin de l'actualiser tout les jours ... comme tu veux.

Mai je comprends ta logique, au lieu de modifier les feuilles "listes" des fichiers "deviseur" et "conducteur de travaux", on ne modifierais que le serveur. C'est une idée sympa qui éviter de multiplier par deux les erreurs de copie.

A voir comme tu le sent ...

C'est ta dernière trouvaille !!

Mouais, c'est pas une bonne idée du tout en fait ! Fatigué hier soir lol ...

Est-il possible que la macro "insert ligne" ajoute la ligne en dessous de la cellule sélectionnée plus qu'au dessus, ce serait plus pratique ?

Voila un devis de trois pages bidouillé avec les autres car je n'en ai pas sous la main ...

https://www.excel-pratique.com/~files/doc2/3pages.xls

Amicalment

Adrien

Bonjour à tous,

Est-il possible que la macro "insert ligne" ajoute la ligne en dessous de la cellule sélectionnée plus qu'au dessus, ce serait plus pratique ?

Objection non retenue !

Si on veut insérer en 1ère ligne, comment feras-tu ?

Il faut réduire un petit peu la largeur d'une des colonnes car chez moi ç'a passe pas sur 1 page et à l'entreprise

non plus, c'est mieux virer 0,5 cm à la colonne désignation au moins on est tranquil ...

Rien à voir avec le programme, tu peux ajuster toi-même les largeurs.

Il ne doit pas y avoir grand-chose, reste dans les polices standard , moi je réduirai plutôt la colonne Chapitre.

Avec la macro actuelle, il ne faudra imprimer le devis (enregistré dans la base) qu'une seule fois c'est bien ça ???

(Sinon les espaces se multiplieront à l'impression suivante)

As-tu besoin d'imprimer le devis en plusieurs exemplaires ? ,

à chaque fois que tu appelle le devis, il s'affiche à l'état initial.

Pour la mise à jour annuelle des taux, on peut ajouter un bouton qui ne ferait que çà, mais autant l'incorporer dans les macros existantes (çà ne ralentira pas je pense)

Où en sont les bases ? , As-tu soldé des chantiers ?, fait des nouveaux ?, annule et remplace ? Etc..

C'est çà qu'il faut tester en priorité !

Les histoires de mise en page sont secondaires.

à te lire, j'ai pas vraiment l'impression que tu vas à l'essentiel !

Le devis que tu m'a envoyé fait 6 pages, tu l'avais tester ?

Bonne journée

Claude.

Re salut,

Exact, je n'avais pas remarqué que lorsqu'on faisait appel à un devis la mise en page se remettait à zéro alors plus de soucis de ce coté la !

Largeur de colonne : le devis fait bien 3 pages, c'est par ce que la dernière colonne se met sur 3 autres pages. D'où ma remarque de la largeur lol .

Il manquerait peut-être une vérification du brouillon quand on veut l'enregistrer:

la si je met une tache et une désignation sans mettre de prix, il l'enregistre quand même.

Ce serait bien qu'il donne un message d'erreur quand un brouillon n'est pas complet.

Sinon je pense avoir tester plusieurs fois l'ensemble. JE n'ai rien d'autre pour l'instant. Les macros les plus importante fonctionnent niquel !!

C'est presque au point tout ça. Bien joué l'ami !!

Amicalement

Adrien

re,

Non ! le devis fait bien 6 pages (largeur bonne)

Je parles de devis enregistré pas du brouillon.

Claude.

Re,

A ok tu parle de l'aperçu en passant par la macro imprimer. Exact 6 pages. Mais les espaces sont un peu grands on pourrait pas les réduire un peu.

La j'ai quasiment 2,5 cm entre chaque tâches, 1 cm suffirait non ?

Tu veux donc un devis qui prenne trois pages avec la macro actuelle ?

Adrien

re,

Aujourd'hui, je ne sais pas faire mieux !

jusqu'à 3 pages, je maitrise, au delà NON.

C'est pourquoi je te demandais la fréquence des devis de + de 3 pages

pour voir si çà vaut vraiment le coup de se prendre le chou.

Envoie le fichier du serveur, que je vois où tu en est et mettre mon fichier à jour.

claude.

Bonjour à tous,

Il manquerait peut-être une vérification du brouillon quand on veut l'enregistrer:

la si je met une tache et une désignation sans mettre de prix, il l'enregistre quand même.

Si un chiffreur ne met pas de prix sur son devis, il faut le virer !!

J'ajoute quand même encore un contrôle.

Que signifie cette expression "lol" en fin de phrase ?

Je vois çà un peu partout !

à+....Claude.

Salut Claude et à tous !!!

C'est clair si le deviseur ne met pas de prix >> à la porte ! T'as raison lol, mais on est jamais trop prudent.

Je t'envoie le serveur demain actualisé avec les chantiers en cours.

LOL ou lol est un acronyme en argot Internet, et langage SMS pour « Laughing Out Loud », ce qui signifie « rire à gorge déployée ». En français, la tendance est d'utiliser l'acronyme équivalent « mdr » pour « mort de rire ».

En gros LOL est en anglais ce que Mort De Rire est en français

Sinon tout baigne, T'es un chef !!! Merci !!!!

Bon dimanche

Adrien

Bonjour Adrien,

Plus de nouvelles, que devient ce fil ?

Amicalement

Claude.