Synthèse d'un tableau excel

Version imprimable

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

8O mon code ? hum..Vous êtes sur ? Bon bah ok je me lance...

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Sub macro()
    Application.ScreenUpdating = False
    Dim ife As Integer, icell As Integer
 
    Sheets(1).Activate
    Sheets(1).Range("A2:h65536").ClearContents
    For ife = 2 To Sheets.Count
        On Error Resume Next
 
        '*Première soumission
        icell = 4
        While Sheets(ife).Range("a" & icell) <> ""
            If Sheets(ife).Range("l" & icell) = "" And DateDiff("d", Sheets(ife).Range("j" & icell), Now) > -3 And Sheets(ife).Range("m" & icell) <> "DEF" Then
                Sheets(1).Range("a" & Sheets(1).Range("a" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Name
                Sheets(ife).Range("a" & icell & ":f" & icell).Copy Destination:=Sheets(1).Range("b" & Sheets(1).Range("b" & Rows.Count).End(xlUp).Row).Offset(1, 0)
                Sheets(1).Range("h" & Sheets(1).Range("h" & Rows.Count).End(xlUp).Row).Offset(1, 0) = DateDiff("d", Sheets(ife).Range("j" & icell), Now)
 
            End If
 
            icell = icell + 1
        Wend
 
        '*Deuxième soumission
 
        icell = 4
 
        While Sheets(ife).Range("a" & icell) <> ""
            If Sheets(ife).Range("w" & icell) <> "" And Sheets(ife).Range("u" & icell) <> "" Then
                If Sheets(ife).Range("w" & icell) = "" And DateDiff("d", Sheets(ife).Range("u" & icell), Now) > -3 And Sheets(ife).Range("x" & icell) <> "DEF" Then
                    Sheets(1).Range("a" & Sheets(1).Range("a" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Name
                    Sheets(ife).Range("a" & icell & ":f" & icell).Copy Destination:=Sheets(1).Range("b" & Sheets(1).Range("b" & Rows.Count).End(xlUp).Row).Offset(1, 0)
                    Sheets(1).Range("h" & Sheets(1).Range("h" & Rows.Count).End(xlUp).Row).Offset(1, 0) = DateDiff("d", Sheets(ife).Range("u" & icell), Now)
                    If Sheets(ife).Range("bq" & icell) > 0 Then
                        Sheets(1).Range("i" & Sheets(1).Range("i" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Range("bq" & icell)
                    End If
                End If
 
            End If
            icell = icell + 1
        Wend
        '*troisième soumission
        icell = 4
        While Sheets(ife).Range("a" & icell) <> ""
            If Sheets(ife).Range("AF" & icell) <> "" And Sheets(ife).Range("AH" & icell) <> "" Then
                If Sheets(ife).Range("AH" & icell) = "" And DateDiff("d", Sheets(ife).Range("AF" & icell), Now) > -3 And Sheets(ife).Range("AI" & icell) <> "DEF" Then
                    Sheets(1).Range("a" & Sheets(1).Range("a" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Name
                    Sheets(ife).Range("a" & icell & ":f" & icell).Copy Destination:=Sheets(1).Range("b" & Sheets(1).Range("b" & Rows.Count).End(xlUp).Row).Offset(1, 0)
                    Sheets(1).Range("h" & Sheets(1).Range("h" & Rows.Count).End(xlUp).Row).Offset(1, 0) = DateDiff("d", Sheets(ife).Range("AF" & icell), Now)
                    If Sheets(ife).Range("bq" & icell) > 0 Then
                        Sheets(1).Range("i" & Sheets(1).Range("i" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Range("bq" & icell)
                    End If
                End If
            End If
            icell = icell + 1
        Wend
        '*quatrième soumission
        icell = 4
        While Sheets(ife).Range("a" & icell) <> ""
            If Sheets(ife).Range("AQ" & icell) <> "" And Sheets(ife).Range("AS" & icell) <> "" Then
                If Sheets(ife).Range("AS" & icell) = "" And DateDiff("d", Sheets(ife).Range("AQ" & icell), Now) > -3 And Sheets(ife).Range("AT" & icell) <> "DEF" Then
                    Sheets(1).Range("a" & Sheets(1).Range("a" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Name
                    Sheets(ife).Range("a" & icell & ":f" & icell).Copy Destination:=Sheets(1).Range("b" & Sheets(1).Range("b" & Rows.Count).End(xlUp).Row).Offset(1, 0)
                    Sheets(1).Range("h" & Sheets(1).Range("h" & Rows.Count).End(xlUp).Row).Offset(1, 0) = DateDiff("d", Sheets(ife).Range("AQ" & icell), Now)
                    If Sheets(ife).Range("bq" & icell) > 0 Then
                        Sheets(1).Range("i" & Sheets(1).Range("i" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Range("bq" & icell)
                    End If
                End If
            End If
            icell = icell + 1
        Wend
    Next
 
    Sheets(1).Activate
    Sheets(1).Range("a1").CurrentRegion.Select
    Selection.ClearFormats
    Range("a1").Select
 
    Application.ScreenUpdating = True
 
End Sub

Concernant ceci

Code:

1
2
If Sheets(ife).Range("bq" & icell) > 0 Then
                        Sheets(1).Range("i" & Sheets(1).Range("i" & Rows.Count).End(xlUp).Row).Offset(1, 0) = Sheets(ife).Range("bq" & icell)

J'ai crée en dur sur chaque onglet (avec des si et tous l'orchestre) le total des retards liés aux fournisseurs et je récupère cette donnée par la macro.

Et enfin, je ne sais pas qui est dans le juste car se fichier m'a démonter les neurones et je plains les votres en essayant de comparer le mien et le votre :/

20/01/2015, 22h27
JULATR

Alors je me suis penché sur le tableau d'Eric, super boulot merci,la macro reste encore du chinois pour moi mais je ne désespère pas de comprendre un jour :)
mais tes explication aide beaucoup et c'est tout a fait ce dont j'ai besoin

Par contre j'ai voulu tester la macro en modifiant des données pour voir les changements mais ça ne fonctionne pas...:(

Alors je ne sais pas si ça viens de moi ou pas?

Par contre le tableau transmis n'est pas celui que j'utilise quotidiennement car trop volumineux pour être transmis et du coup je me demande dans les versions que vous me faites tous les deux, est il possibles de rajouter des feuilles pour intégrer la totalité des lots à traiter? Car je commence juste à le remplir et ce fichier va devoir répertorier l'ensemble des documents durant toute la vie du projet...qui se finira lorsque je serais à la retraite, ce qui signifie dans des très longue année!!!! pourrais-je adapter les macro au fichier sources? ou dois-je trouver un autre moyens pour vous le transmettre

Sinon comme dit Wolf " ce fichier me démonte les neurones" :)

Pour répondre à Wolf ton tableau convient aussi et ta macro et type top aussi :) mais il me faudrait aussi la meme synthèse des retards pour les date de réception prévisionnelle et date réelle de réception de chaque soumissions.

Demain matin je suis en formation mais dès que possible je me connecterais pour répondre à vos demande si vous en avez.

Encore un grand merci pour votre investissements
Bonne soirée
21/01/2015, 00h21
(WOLF)

Pas besoin du fichier dans son intégralité, simplement un squelette avec les onglets et une cinquantaine de ligne suffit. Ca permet d'éviter les tentatives d'adaptations infructueuse..
21/01/2015, 09h54
eric4459
Bonjour WOLF, JULATR
JULATR
- pourrais-tu me dire quelles modifications tu as apporté pour tes tests
- est-ce que le test a provoqué une erreur VBA, si oui laquelle?
Je vais de mon coté changer quelques données pour tester également.
Qu'entends-tu par

Citation:

est-il possible de rajouter des feuilles pour intégrer la totalité des lots à traiter?

?

WOLF,
Que cherches-tu à faire avec ton code?
Cette ligne

Code:

Sheets(1).Range("A2:h65536").ClearContents

efface toutes les données qui sont censées être analysée :koi:
J'ai lancé la macro pour voir et je n'obtiens pas de résultat probant, as-tu ajouté/modifié/supprimé des onglets et / ou des données?

Eric
21/01/2015, 10h37
(WOLF)

1) Effacer l'ancienne synthèse pour pouvoir afficher la nouvelle à la ligne 2
2) Non je n'ai rien modifié ou alors sans m'en apercevoir. Peut-être que j'utilise mal datediff, j'ai toujours un doute sur la position des deux dates dans la fonction.

Je travaille avec se fichier là : http://cjoint.com/?3Avk4ky3gYT
21/01/2015, 11h56
JULATR

Bonjour Eric et WOLF

Eric,

Pour mes teste j'ai renseigné la date de validation du 24055 pour voir si de ce fait il allait disparaître de la synthèse mais en cliquant sur le bouton vérification rien ne se produit.
Aucune erreur n’apparaît non plus.
Lorsque j'ai ouvert le fichier sur mon ordi excel bloqué la macro donc je l'ai réactivé mais après je n'arrive pas à l'utiliser...

Wolf et Eric
Concernant le rajout de feuille c'est que comme le forum ne me permet pas de vous transmettre le fichier complet , j'ai du supprimer des feuilles correspondant aux lots utilisés.
Et la j'ai essayé de supprimer un maximum de données pour vous l'envoyer dans son intégralité mais il ne passe pas.
Y a t-il un autre moyens pour vous le transmettre?
21/01/2015, 12h20
(WOLF)

Des sites d'hébergement de fichier il y en a beaucoup, pour ma part j'utilise http://www.cjoint.com
Pour la réduction de la taille des fichiers, je me suis déjà exprimé précédemment

Cordialement,
21/01/2015, 12h56
JULATR

Voici le lien du fichier source

http://cjoint.com/?0AvnfONvClq
21/01/2015, 13h27
eric4459

1 pièce(s) jointe(s)
Wolf, Julatr
Wolf,
Ta macro fonctionne (sur mon fichier l'onglet Synthèse étant placé en dernier ton code effaçait l'onglet 020 ) mais nous n'obtenons pas les mêmes résultats.
Il faudrait donc éclaircir quelles sont les conditions à remplir.
Celles que j'ai considéré sont:
- si la date de validation au + tard du document se situe entre 1 et 3 après la date du jour (dans le futur) => Alerte " Attention document à valider dans 1,2 ou 3 jours !"
- si la date de validation au + tard du document est dans le passé et que la date réelle de validation n'est pas renseignée (Document considéré comme non validé) =>Alerte "X jours de retard"
  
  Y-at-il d'autres conditions ? Celles-ci sont-elles correctes?
Julatr,
Oui il est possible d’ajouter autant de feuille que tu le souhaites, le traitement prendra alors un peu plus de temps
J'ai testé sur mon fichier la validation de l'élément 24055, une fois la date de validation renseignée il disparaît de la synthèse.
Pour utiliser mon fichier, il faut accepter les macros au téléchargement ou les activer ensuite.
Pour lancer la macro, il faut simplement cliquer sur le bouton "Vérification".
Quelle version d'Excel utilises-tu? 97?, 2003?, 2007? ou autre

Sinon je n'ai pas pu télécharger ton fichier avec le lien fourni (page web indisponible), j'ai par contre pu télécharger celui de Wolf.

Mon fichier avec effacement des données de l'onglet Synthèse au démarrage (merci Wolf j'avais zappé ;))

Pièce jointe 166865
Eric
21/01/2015, 13h44
(WOLF)

J'ai pris tous les dossiers non traité qui n'ont pas de date de validation réelle , qui n'ont pas "DEF" en Etat de validation et dont l'écart entre maintenant et la date de validation au plus tard est entre -3 et le nombre de jours de retard (les nombres négatif étant l'avertissement d'une échéance proche et les positif le nombre de jour de retard.

(Pas de souci pour l'effacement de la synthèse, vous deviez avoir la tête ailleurs...)
21/01/2015, 15h56
JULATR

Eric ,

Je viens de tester à nouveau ça fonctionne aussi. au boulot j'ai la version 2010 mais chez moi j'ai 2013 je refait le test ce soir de mon ordi perso c'est peut-être un bug de ma version.Mais tu coup c'est super le boulot c'est exactement ce qu'il me faut c'est génial.

Encore un grand merci à vous

Pour le fichier si je peux rajouter des feuilles c'est parfait j'intégrerais les feuilles de mon fichier source.
21/01/2015, 17h10
eric4459

Ok Julatr,
Content que tu sois satisfaite ;)
Surtout n'oublies pas les boutons
:resolu: si ton problème est résolu et :plusser: si tu es :yaisse3:
Eric
22/01/2015, 16h26
JULATR

Un grand merci à vous WOLF et ERIC.

Au plaisir de re travailler avec vous.

Eric,

Je viens de commencer à intégrer mes données dans le tableau et je constat que la synthèse ne prends pas en compte les valeur mise dans la 2ème soumission.

Pour être plus clair lorsque je renseigne la date de validation dans la colonne W elle ne le prend pas en compte et me laisse la référence du document dans la synthèse alors qu'il ne devrais plus apparaître.

Peux tu y jeter un œil.

Merci par avance
23/01/2015, 10h41
eric4459

1 pièce(s) jointe(s)

Bonjour JULATR,
J'ai modifié le fichier car il y avait effectivement quelques erreurs dans les formules .
A quelle(s) condition(s) considères-tu que le document est BPE car il faudra peut-être ajouter quelque-chose pour ça?
Voici le fichier joint:

Pièce jointe 167053

Eric
23/01/2015, 14h23
JULATR

Bonjour Eric,

Merci pour la modif.
Concernant le passge en BPE c'est lorsque le document est validée en VSO et VAO (même si parfois par acquis de conscience certains revalide le document après un visa VAO) mais selon la procédure il doit passer à l'indice supérieur en BPE.

VSO= Validation Sans Observation donc passage BPE même indice
VAO = Validation Avec Observation mais elle sont mineur donc passage en BPE indice supérieur
DEF= DEFAVORABLE document refusé donc passage du document à l'indice supérieur

Après ça peux toujours être intéressant d'avoir un récapitulatif rapide des documents qui sont passés en BPE pour les facturations.
23/01/2015, 15h47
eric4459

1 pièce(s) jointe(s)

Bonjour JULATR,
Voici une dernière version du fichier qui fait la synthèse des documents passés en BPE sur un nouvel onglet "Doc_BPE".
N'hésites pas à faire des tests de simulation pour vérifier que tout fonctionne correctement.

Pièce jointe 167091

Eric
23/01/2015, 16h05
JULATR

1 pièce(s) jointe(s)

Eric j'ai encore une erreur macro

Je pense que c'est du au modification de feuille.
Car dans le tableau j'ai les feuilles 020-030-040-050-060 synthèse
Et moi j'ai besoin des feuilles suivantes :
000-010-020-030-040-050-060-070-080-090-100-110-200-210-300-synthèse.
Chaque feuille doit contenir le même tableau de référence.
Quand je modifie les 2 premières feuilles du tableau la macro fonctionne mais dès que je modifie la 3ème feuille elle se met en erreur.
j'ai essayé de comprendre ou j'aurais pu faire une modif de la macro mais je ne vois pas j'ai juste fait des Ctrl c et ctrl v de mon tableau source sans copier les formules juste le texte....

Peux-tu m'éclairer je peux peut-être intervenir directement sur le fichier pour mieux comprendre le fonctionnement ....

Julatr,
As-tu utilisé le dernier fichier envoyé? il y a une feuille supplémentaire notée "Doc_BPE".
Dans ce fichier, tu peux le télécharger à nouveau si tu veux tu auras les résultats de mes tests, sur les différentes feuilles j'ai modifié le nom du projet (DIAR en feuille 020, RD en 030, ABC en 040 etc...).
De cette façon j'ai pu vérifier que je balayais bien chaque onglet (avant ils portaient tous le nom DIAR et donc difficile de voir cela rapidement)
Si tu vas dans les onglets "Synthèse" et "Doc_BPE" (ne lances pas la macro cela effacerai ce que j'ai eu) tu verra que les items portent bien des noms de projet différents car situés sur des feuilles différents.

Ces lignes de code
Code:

1 2 3 4 For i = 1 To ThisWorkbook.Worksheets.Count ' i prendra la valeur 1 jusqu'à la valeur trouvée par le comptage des feuilles (Worksheets.Count) If Worksheets(i).Name <> ("Synthèse") And Worksheets(i).Name <> ("Doc_BPE") Then ' Ici Worksheet(i) sera la feuille n°1 lorsque i sera égal à 1, la feuille 2 quand i sera égal à deux etc... ' Sauf que je précise que la feuille ne doit pas s'appeler "Synthèse" ou "Doc_BPE" (Worksheets(i).Name <> ("Synthèse"))
permettent de pouvoir balayer toutes les feuilles du classeurs, si il y a 20 feuilles la variable i prendra les valeurs 1, 2, 3, 4,... jusqu'à 20 et donc la boucle
Code:

1 2 For i = 1 To ThisWorkbook.Worksheets.Count Next i
balayera bien toutes tes feuilles sauf bien sur "Synthèse" et "Doc_BPE".

Eric
N’hésites pas à revenir si nécessaire ;)

28/01/2015, 10h40
JULATR

Bonjour Eric,

Merci pour la macro ça marche super bien j'ai rajouter mes données et le résultat est au top.
09/02/2015, 10h23
JULATR

Bonjour Eric,

Je reviens vers toi car j'ai une erreur macro qui est survenu du coup la synthèse me prend les info que sur les feuille des lot 10 et 20 j'ai essayé de comprendre ce qui pouvait la faire planter mais je n'ai pas trouvé.
Peux tu m'éclairer sur cette erreur. Ca m'affiche "Erreur d'exécution 13"

Merci par avance je te joint le fichier par le lien si dessous.

http://cjoint.com/?EBjkDN7tlw6

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