Discussion :

[tds95]

Bonjour à tous,

Je fréquente ce forum depuis quelque temps en anonyme mais là mon problème est trop bloquant et donc je saute le pas...

Je viens de récupérer un poste avec tout un tas de fichier excel et macro déjà utilisé et étoffé par plusieurs utilisateurs.

J'ai réussi jusque là à faire les modifications sommaires mais je souffre de grosses lacunes en VBA que je n'ai pas le temps de les combler rapidement.

Fichier joint

Problématique:

La macro actuel compil sous forme d'un reporting l'ensemble des anomalies "Hors délais" référencés dans mes fichiers:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'--------------- Traitement des Réceptions
 
Dim ligne_début_affichage As Integer
ligne_début_affichage = n + 10
'comptage nombre de lignes concernées :
For i = 1 To 1000
    If Sheets("RECEPTION").Cells(i, 1) <> "" Then cpt = cpt + 1
Next
cpt = cpt + 13
'Recherche de la PFF dans la feuille réception en colonne 11
    For i = 1 To cpt + 1
        chaîne = Sheets("RECEPTION").Cells(i, 11)
        If InStr(chaîne, PFF) = 1 And Sheets("RECEPTION").Cells(i, 11) <> "" Then
            If Sheets("RECEPTION").Cells(i, 13) = "HORS DELAIS" Then
            If Sheets("RECEPTION").Cells(i, 1) = Cells(i + n, 1) Then
                    'affichage de la ligne
                    m = m + 1 'compteur pour l'affichage
                    Sheets("VISUEL Détails").Cells(ligne_début_affichage + m, 1) = Sheets("RECEPTION").Cells(i, 1)  'Delivery#
                    Sheets("VISUEL Détails").Cells(ligne_début_affichage + m, 2) = Sheets("RECEPTION").Cells(i, 11)  ' Ship to platform
                    Sheets("VISUEL Détails").Cells(ligne_début_affichage + m, 3) = CDate(Sheets("RECEPTION").Cells(i, 10))  ' Departure date
                    Sheets("VISUEL Détails").Cells(ligne_début_affichage + m, 4) = CInt(Sheets("RECEPTION").Cells(i, 6))  ' Quantity Shipped
                    Sheets("VISUEL Détails").Cells(ligne_début_affichage + m, 5) = Sheets("RECEPTION").Cells(i, 12) ' Reference
                End If
            End If
 
    Next
 
 
Sheets("VISUEL Détails").Cells(ligne_début_affichage - 1, 1).Select
Sheets("VISUEL Détails").Cells(ligne_début_affichage - 1, 1) = "Receipts - Current status - " & PFF & " ; " & Now
ActiveCell.Font.Bold = True
ActiveCell.Font.Color = RGB(255, 0, 0)
 
If m = 0 Then
Sheets("VISUEL Détails").Cells(ligne_début_affichage - 1, 4).Select
Sheets("VISUEL Détails").Cells(ligne_début_affichage - 1, 4) = "No late receipts"
ActiveCell.Font.Bold = True
ActiveCell.Font.Color = RGB(0, 255, 0)
End If
 
'affichage en-têtes
If m > 0 Then
Sheets("VISUEL Détails").Cells(ligne_début_affichage, 1) = "Delivery#"
Sheets("VISUEL Détails").Cells(ligne_début_affichage, 2) = "Ship to platform"
Sheets("VISUEL Détails").Cells(ligne_début_affichage, 3) = "Departure date"
Sheets("VISUEL Détails").Cells(ligne_début_affichage, 4) = "Quantity Shipped"
Sheets("VISUEL Détails").Cells(ligne_début_affichage, 5) = "Reference"
End If
 
If m > 0 Then
    Sheets("VISUEL Détails").Cells(ligne_début_affichage + m + 1, 3).Select
    Sheets("VISUEL Détails").Cells(ligne_début_affichage + m + 1, 3) = "Please check out those receipts and give us some feedback ASAP"
    ActiveCell.Font.Bold = True
End If
'-------------------- Fin traitement Réceptions -------------------------------------------------

Voici ce que j'ai actuellement et qui marche plutôt bien

La macro va me chercher mes éléments dans mes onglets et me les empiles en vrac
sauf que j'ai parfois une référence d'expédition fractionné sur plusieurs lignes de commandes qui apparait 10-15 fois et je ne souhaite l'avoir qu'une fois

Mon souhait :
Si Référence identique présente dans ma Colonne A : Delivery faire la somme
Colonne B : SHIP TO PLATFORM
Colonne C: Departure DATE
Colonne D: Quantity shipped
Colonne E: Qui va surement disparaitre

En imagé j'aimerais passer de çà

Delivery# Ship to platform Departure date Quantity Shipped Reference
83061364 REU1 20/02/2012 2 TL10943-106
83067776 REU1 15/06/2012 1 14G0114-205-00
83070619REU1 31/08/2012 1 14F0209-205-00
83070619 REU1 31/08/2012 5 14G0062-205-00
83070619 REU1 31/08/2012 3 14G0070-204-00


A ca

Delivery# Ship to platform Departure date Quantity Shipped
83061364 REU1 20/02/2012 2
83067776 REU1 15/06/2012 1
83070619 REU1 31/08/2012 9

Je ne sais pas si je suis assez clair, je reste à l'écoute de vos commentaires et coup de main
merci