MON Code VBA ne fonction pas sur mon tableau de bord

Version imprimable

1 pièce(s) jointe(s)

Bonjour la Famille ,

J'ai besoin de votre assistance concernant mon fichier excel qui semble ne pas fonctionner sur mon code vba , ci-joint mon fichier excelPièce jointe 639641

Code VBA :

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
 
Sub MiseAJourTableauDeBord()
    Dim wsOutbound As Worksheet
    Dim wsRevenue As Worksheet
    Dim wsMainOeuvre As Worksheet
    Dim wsCarburant As Worksheet
    Dim wsHabillage As Worksheet
    Dim wsReachStacker As Worksheet
    Dim wsChariot As Worksheet
    Dim wsFumigation As Worksheet
    Dim wsAutre As Worksheet
    Dim wsLocationMagasin As Worksheet
    Dim wsEmpotage As Worksheet
    Dim wsTableauDeBord As Worksheet
 
    ' Récupérer les références des feuilles de calcul
    Set wsOutbound = ThisWorkbook.Sheets("Outbound")
    Set wsRevenue = ThisWorkbook.Sheets("Revenue")
    Set wsMainOeuvre = ThisWorkbook.Sheets("Main d'œuvre")
    Set wsCarburant = ThisWorkbook.Sheets("Carburant")
    Set wsHabillage = ThisWorkbook.Sheets("Habillage")
    Set wsReachStacker = ThisWorkbook.Sheets("Reach Stacker")
    Set wsChariot = ThisWorkbook.Sheets("Chariot")
    Set wsFumigation = ThisWorkbook.Sheets("Fumigation")
    Set wsAutre = ThisWorkbook.Sheets("Autre")
    Set wsLocationMagasin = ThisWorkbook.Sheets("Location Magasin")
    Set wsEmpotage = ThisWorkbook.Sheets("Empotage")
    Set wsTableauDeBord = ThisWorkbook.Sheets("Tableau de Bord")
 
    ' Récupérer les données de la feuille Outbound
    Dim outboundLastRow As Long
    outboundLastRow = wsOutbound.Cells(wsOutbound.Rows.Count, "H").End(xlUp).Row
 
    Dim outboundRange As Range
    Set outboundRange = wsOutbound.Range("H2:I" & outboundLastRow)
 
    ' Mettre à jour la colonne J de la feuille Outbound
    Dim cell As Range
    For Each cell In outboundRange
        Select Case cell.Value
            Case "Africa Sourcing"
                Select Case cell.Offset(0, 1).Value
                    Case "Mise à Fob Sac"
                        cell.Offset(0, 2).Value = 31500
                    Case "Mise à Fob Vrac"
                        cell.Offset(0, 2).Value = 33500
                    Case "Mise à Fob Conventionnel"
                        cell.Offset(0, 2).Value = 20500
                    Case "Rechargement"
                        cell.Offset(0, 2).Value = 1000
                    Case "Logistique"
                        cell.Offset(0, 2).Value = 12000
                    Case "Manutention", "Autre"
                        cell.Offset(0, 2).Value = 50000
                End Select
            Case "Saco"
                Select Case cell.Offset(0, 1).Value
                    Case "Mise à Fob Sac"
                        cell.Offset(0, 2).Value = 30000
                    Case "Mise à Fob Vrac"
                        cell.Offset(0, 2).Value = 31000
                    Case "Mise à Fob Conventionnel"
                        cell.Offset(0, 2).Value = 19500
                    Case "Rechargement"
                        cell.Offset(0, 2).Value = 1000
                    Case "Logistique"
                        cell.Offset(0, 2).Value = 12000
                    Case "Manutention", "Autre"
                        cell.Offset(0, 2).Value = 50000
                End Select
            Case "Autre"
                Select Case cell.Offset(0, 1).Value
                    Case "Mise à Fob Sac"
                        cell.Offset(0, 2).Value = 35000
                    Case "Mise à Fob Vrac"
                        cell.Offset(0, 2).Value = 37000
                    Case "Mise à Fob Conventionnel"
                        cell.Offset(0, 2).Value = 23000
                    Case "Rechargement"
                        cell.Offset(0, 2).Value = 1000
                    Case "Logistique"
                        cell.Offset(0, 2).Value = 12000
                    Case "Manutention", "Autre"
                        cell.Offset(0, 2).Value = 50000
                End Select
        End Select
    Next cell
 
    ' Mettre à jour le tableau de bord
    Dim dashboardLastRow As Long
    dashboardLastRow = wsTableauDeBord.Cells(wsTableauDeBord.Rows.Count, "A").End(xlUp).Row
 
    Dim dashboardRange As Range
    Set dashboardRange = wsTableauDeBord.Range("A2:K" & dashboardLastRow)
 
    For Each cell In dashboardRange
        Select Case cell.Value
            Case "Revenue"
                cell.Offset(0, 1).Formula = "=SUMIF(Revenue!$A$2:$A$" & revenueLastRow & ",$A2,Revenue!$C$2:$C$" & revenueLastRow & ")"
            Case "Main d'œuvre"
                cell.Offset(0, 1).Formula = "=SUMIF('Main d''œuvre'!$A$2:$A$" & mainOeuvreLastRow & ",$A2,'Main d''œuvre'!$C$2:$C$" & mainOeuvreLastRow & ")"
            Case "Carburant"
                cell.Offset(0, 1).Formula = "=SUMIF(Carburant!$A$2:$A$" & carburantLastRow & ",$A2,Carburant!$C$2:$C$" & carburantLastRow & ")"
            Case "Habillage"
                cell.Offset(0, 1).Formula = "=SUMIF(Habillage!$A$2:$A$" & habillageLastRow & ",$A2,Habillage!$C$2:$C$" & habillageLastRow & ")"
            Case "Reach Stacker"
                cell.Offset(0, 1).Formula = "=SUMIF('Reach Stacker'!$A$2:$A$" & reachStackerLastRow & ",$A2,'Reach Stacker'!$C$2:$C$" & reachStackerLastRow & ")"
            Case "Chariot"
                cell.Offset(0, 1).Formula = "=SUMIF(Chariot!$A$2:$A$" & chariotLastRow & ",$A2,Chariot!$C$2:$C$" & chariotLastRow & ")"
            Case "Fumigation"
                cell.Offset(0, 1).Formula = "=SUMIF(Fumigation!$A$2:$A$" & fumigationLastRow & ",$A2,Fumigation!$C$2:$C$" & fumigationLastRow & ")"
            Case "Autre"
                cell.Offset(0, 1).Formula = "=SUMIF(Autre!$A$2:$A$" & autreLastRow & ",$A2,Autre!$C$2:$C$" & autreLastRow & ")"
            Case "Location Magasin"
                cell.Offset(0, 1).Formula = "=SUMIF('Location Magasin'!$A$2:$A$" & locationMagasinLastRow & ",$A2,'Location Magasin'!$C$2:$C$" & locationMagasinLastRow & ")"
            Case "Empotage"
                cell.Offset(0, 1).Formula = "=SUMIF(Empotage!$A$2:$A$" & empotageLastRow & ",$A2,Empotage!$C$2:$C$" & empotageLastRow & ")"
        End Select
    Next cell
End Sub

03/06/2023, 20h24
Franc

1 pièce(s) jointe(s)

Bonjour, je ne sais pas ouvrir le fichier, voir ci-dessous. A priori je ne vois pas d'erreur dans le code, juste que tu n'as pas déclaré les différentes variables LastRow, cela peut poser problème.
04/06/2023, 00h11
NOSLIB

1 pièce(s) jointe(s)

Voici le bon fichier sans la macro afin que tu puisses l'ouvrir.Pièce jointe 639647
04/06/2023, 01h14
Franc
Salut, de prime abord je constate 2 problèmes.
Dans la ligne

Code:

Set outboundRange = wsOutbound.Range("H2:I" & outboundLastRow)

tu définis un range qui ne contient pas les valeurs que tu testes ensuite avec
Code:

1 2 Select Case cell.Value Case "Africa Sourcing"
en effet, cette valeur est contenue dans la colonne F, en dehors du range que tu as défini.
Plus loin dans ton code tu définis un range dont les cellules sont vides

Code:

Set dashboardRange = wsTableauDeBord.Range("A2:K" & dashboardLastRow)

donc tous les Case ..Select qui suivent ne donneront aucun résultat. Aussi, tu définis le range jusque ta colonne K alors que la dernière colonne est H.La macro fonctionne bien mais comme toutes les cellules testées sont vides, il ne se passe rien. Ou alors tu m'as fourni un tableau vide parce que confidentiel mais dans ce cas je peux pas vraiment tester.
Petite remarque en passant, c'est dommage que tu aies créé des tableaux structurés pour ensuite les traiter comme de simples plages de données dans ta macro.
04/06/2023, 22h28
NOSLIB

1 pièce(s) jointe(s)

Bonjour Franc ,

En utilisant le fichier renseigné il ne marche toujours pas . Svp pouvez-vous m'envoyer le renseigner à votre niveau avec la macro Intégrée svp.

J'ajoute certaine feuille du fichier renseigné.Pièce jointe 639662

Salut,
Je ne comprends pas ce que tu veux faire dans cette partie du code:
Code:

1 2 3 4 5 6 7 8 9 Dim dashboardRange As Range Set dashboardRange = wsTableauDeBord.Range("A2:K" & dashboardLastRow) For Each cell In dashboardRange Select Case cell.Value Case "Revenue" cell.Offset(0, 1).Formula = "=SUMIF(Revenue!$A$2:$A$" & revenueLastRow & ",$A2,Revenue!$C$2:$C$" & revenueLastRow & ")" Case "Main d'œuvre" cell.Offset(0, 1).Formula = "=SUMIF('Main d''œuvre'!$A$2:$A$" & mainOeuvreLastRow & ",$A2,'Main d''œuvre'!$C$2:$C$" & mainOeuvreLastRow & ")"
dashboardRange correspond a une plage de cellules qui est vide, donc la boucle Select..Case ne trouvera rien et le code ne sera pas exécuté.
comment cell.Value pourrait prendre la valeur "Revenue" ou "Main d'oeuvre" etc... alors que le tableau est vide ?

05/06/2023, 21h13
NOSLIB

Ci-dessous les explications :

Dans la Feuille Revenue le fonctionnement doit être comme suite :
 Toutes les colonnes sont automatisées et fonctionnent comme suite :

1. La Colonne C = la somme des valeurs de la Colonne Q de la feuille Volume Inbound si la colonne C de la feuille Inbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne G de la feuille volume Inbound est la même que la valeur de la colonne B de la feuille Revenue

2. La Colonne D = Si la colonne I a la valeur « Mise à Fob Sac » alors nous faisons la somme des valeurs de la Colonne T de la feuille Volume Outbound ayant cette valeur « Mise à Fob Sac » si la colonne C de la feuille Outbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
3. La Colonne E = Si la colonne I a la valeur « Mise à Fob Conventionnel » alors nous faisons la somme des valeurs de la Colonne T de la feuille Volume Outbound ayant cette valeur « Mise à Fob Conventionnel » si la colonne C de la feuille Outbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
4. La Colonne F = Si la colonne I a la valeur « Mise à Fob Vrac » alors nous faisons la somme des valeurs de la Colonne T de la feuille Volume Outbound ayant cette valeur « Mise à Fob Vrac » si la colonne C de la feuille Outbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
5. La Colonne G= Si la colonne I a la valeur « Rechargement » alors nous faisons la somme des valeurs de la Colonne T de la feuille Volume Outbound ayant cette valeur «Rechargement» si la colonne C de la feuille Outbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
6. La Colonne H = Si la colonne I a la valeur « Logistique » alors nous faisons la somme des valeurs de la Colonne T de la feuille Volume Outbound ayant cette valeur «Logistique » si la colonne C de la feuille Outbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
7. La Colonne I= Si la colonne I a la valeur «Manutention » alors nous faisons la somme des valeurs de la Colonne T de la feuille Volume Outbound ayant cette valeur «Manutention » si la colonne C de la feuille Outbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
8. La Colonne J= la somme des valeurs de la Colonne P de la feuille Volume Inbound si la colonne C de la feuille Inbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
9. La Colonne K= Si la colonne I a la valeur «Autre » alors nous faisons la somme des valeurs de la Colonne T de la feuille Volume Outbound ayant cette valeur «Autre » si la colonne C de la feuille Outbound à la même valeur que la colonne A de la feuille revenue et la valeur de la colonne E de la feuille volume Outbound est la même que la valeur de la colonne B de la feuille Revenue
10. La Colonne L=Somme des colonnes C à K
NB : Chaque ligne des colonnes enumérées ci-dessus doivent respecter cette logique.

Dans la Feuille Coût Variable le fonctionnement doit être comme suite :
 Toutes les colonnes sont automatisées et fonctionnent comme suite :
1. La Colonne C = la somme des valeurs de la Colonne K de la feuille Main d’Oeuvre si la colonne B de la feuille Main d’Oeuvre à la même valeur que la colonne A de la feuille Coût Variable et la valeur de la colonne C de la feuille Main d’Oeuvre est la même que la valeur de la colonne B de la feuille Coût Variable
2. La Colonne D = la somme des valeurs de la Colonne O de la feuille Volume Inbound si la colonne C de la feuille Inbound à la même valeur que la colonne A de la feuille Coût Variable et la valeur de la colonne G de la feuille Volume Inbound est la même que la valeur de la colonne B de la feuille Coût Variable
3. La Colonne E = la somme des valeurs de la Colonne G de la feuille Volume Chariot si la colonne B de la feuille Inbound à la même valeur que la colonne A de la feuille Coût Variable et la valeur de la colonne D de la feuille Chariot est la même que la valeur de la colonne B de la feuille Coût Variable
4. La Colonne F = la somme des valeurs de la Colonne O de la feuille Reach Stacker si la colonne C de la feuille Reach Stacker à la même valeur que la colonne A de la feuille Coût Variable et la valeur de la colonne K de la feuille Reach Stacker est la même que la valeur de la colonne B de la feuille Coût Variable
5. La Colonne G= la somme des valeurs de la Colonne J de la feuille Habillage si la colonne B de la feuille Habillage à la même valeur que la colonne A de la feuille Coût Variable et la valeur de la colonne F de la feuille Habillage est la même que la valeur de la colonne B de la feuille Coût Variable
6. La Colonne H= la somme des valeurs de la Colonne H de la feuille Empotage si la colonne B de la feuille Empotage à la même valeur que la colonne B de la feuille Coût Variable et la valeur de la colonne D de la feuille Empotage est la même que la valeur de la colonne B de la feuille Coût Variable
7. La Colonne I= la somme des valeurs de la Colonne G de la feuille Fumigation si la colonne B de la feuille Fumigation à la même valeur que la colonne B de la feuille Coût Variable et la valeur de la colonne C de la feuille Fumigation est la même que la valeur de la colonne B de la feuille Coût Variable
8. La Colonne J= la somme des valeurs de la Colonne G de la feuille Location Magasin si la colonne B de la feuille Location Magasin à la même valeur que la colonne B de la feuille Coût Variable et la valeur de la colonne D de la feuille Location Magasin est la même que la valeur de la colonne B de la feuille Coût Variable
9. La Colonne K= la somme des valeurs de la Colonne F de la feuille Autre si la colonne B de la feuille Autre à la même valeur que la colonne B de la feuille Coût Variable et la valeur de la colonne D de la feuille Autre est la même que la valeur de la colonne B de la feuille Coût Variable
10. La Colonne L= la somme des valeurs de la Colonne H de la feuille Carburant si la colonne C de la feuille Carburant à la même valeur que la colonne B de la feuille Coût Variable et la valeur de la colonne E de la feuille Carburant est la même que la valeur de la colonne B de la feuille Coût Variable
11. La Colonne M=Somme des colonnes C à L

NB : Chaque ligne des colonnes enumérées ci-dessus doivent respecter cette logique.

Dans la Feuille Tableau de bord le fonctionnement doit être comme suite :

1. Colonne B= la somme des valeurs de la colonne J de la feuille Volume Inbound si la valeur de la colonne « C » est la même que la valeur de la colonne A de la feuille Tableau de Bord
2. Colonne C= la somme des valeurs de la colonne Q de la feuille Volume Outbound si la valeur de la colonne « C » est la même que la valeur de la colonne A de la feuille Tableau de Bord
3. Colonne D= la somme des valeurs de la colonne L de la feuille Revenue si la valeur de la colonne « A» est la même que la valeur de la colonne A de la feuille Tableau de Bord
4. Colonne E= la somme des valeurs de la colonne M de la feuille Tableau de Bord si la valeur de la colonne «A» est la même que la valeur de la colonne A de la feuille Tableau de Bord
05/06/2023, 21h20
Franc

Je suis désolé, mais rien que pour comprendre exactement tes besoins ça va me prendre beaucoup trop de temps que je n'ai pas.
Je passe la main à une autre âme charitable qui aurait le temps.
05/06/2023, 23h55
NOSLIB

Je vais mieux resumer ma requete et te la faire part.Ne m'abandonne pas en si bon chemin.