Automatiser les processus de production Lean, Excel VBA

Automatiser les processus de production Lean, Excel VBA

L’automatisation des processus de production Lean en utilisant VBA (Visual Basic for Applications) dans Excel peut améliorer l’efficacité, la productivité et la gestion des flux de travail dans une entreprise. Lean est une méthodologie de gestion qui vise à réduire le gaspillage, améliorer la qualité, et augmenter la valeur ajoutée tout au long du processus de production. 

Je vais vous proposer un exemple détaillé d’automatisation d’un processus Lean en utilisant VBA dans Excel. Ce processus pourrait inclure plusieurs éléments, comme la gestion de stocks, l’optimisation des ressources ou le suivi des indicateurs de performance (KPIs). 

Scénario : Suivi du stock avec indicateurs Lean 

L’idée ici est de créer un code VBA qui suit les niveaux de stock, les commandes, et calcule des indicateurs comme la rotation des stocks, la gestion des délais, etc. 

Voici les étapes : 

1. Suivi des stocks : Nous avons une feuille Excel avec les informations de stock, de commandes et de réapprovisionnement. 

1. Indicateurs Lean : Calcul de la rotation des stocks, des délais de production, et du taux de service. 

1. Automatisation du réapprovisionnement : En fonction des seuils de stock, générer une alerte ou une commande automatique. 

Structure de la feuille Excel 

Supposons que votre feuille Excel soit structurée comme suit : 

• Feuille1 (Données de production) : Contient les informations sur le stock actuel, les commandes, les réapprovisionnements, et les alertes. 

• Colonne A : Identifiant produit 

• Colonne B : Nom produit 

• Colonne C : Stock actuel 

• Colonne D : Seuil de réapprovisionnement 

• Colonne E : Quantité commandée 

• Colonne F : Date de réapprovisionnement prévue 

• Colonne G : Rotation des stocks 

• Colonne H : Délai de production 

• Colonne I : Alerte (si le stock est sous le seuil) 

• Colonne J : Taux de service 

Exemple de Code VBA : Suivi des Stocks et Alertes Lean 

Sub AutomatiserLeanProduction() 
    Dim ws As Worksheet 
    Dim lastRow As Long 
    Dim i As Long 
    Dim stockActuel As Long 
    Dim seuilReappro As Long 
    Dim quantiteCommande As Long 
    Dim dateReappro As Date 
    Dim rotationStocks As Double 
    Dim delaiProduction As Double 
    Dim alerte As String 
    Dim tauxService As Double 
    ' Référence à la feuille de données 
    Set ws = ThisWorkbook.Sheets("Feuille1") 
    ' Trouver la dernière ligne avec des données 
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 
    ' Boucle à travers chaque ligne des données 
    For i = 2 To lastRow 
        ' Récupérer les données de chaque produit 
        stockActuel = ws.Cells(i, 3).Value ' Colonne C : Stock actuel 
        seuilReappro = ws.Cells(i, 4).Value ' Colonne D : Seuil de réapprovisionnement 
        quantiteCommande = ws.Cells(i, 5).Value ' Colonne E : Quantité commandée 
        dateReappro = ws.Cells(i, 6).Value ' Colonne F : Date de réapprovisionnement prévue 
        rotationStocks = ws.Cells(i, 7).Value ' Colonne G : Rotation des stocks 
        delaiProduction = ws.Cells(i, 8).Value ' Colonne H : Délai de production 
        ' Calculer la rotation des stocks (Exemple : rotation = ventes annuelles / stock moyen) 
        If stockActuel > 0 Then 
            rotationStocks = quantiteCommande / stockActuel 
        Else 
            rotationStocks = 0 
        End If 
        ' Calculer le délai de production (Exemple : délai en jours pour recevoir la commande) 
        If dateReappro > Date Then 
            delaiProduction = DateDiff("d", Date, dateReappro) 
        Else 
            delaiProduction = 0 ' Réapprovisionnement déjà arrivé 
        End If 
        ' Mettre à jour les valeurs dans la feuille 
        ws.Cells(i, 7).Value = rotationStocks ' Rotation des stocks 
        ws.Cells(i, 8).Value = delaiProduction ' Délai de production 
        ' Vérifier si une alerte est nécessaire 
        If stockActuel <= seuilReappro Then 
            alerte = "Alerte : Stock faible, réapprovisionnement nécessaire!" 
            ws.Cells(i, 9).Value = alerte ' Colonne I : Alerte 
        Else 
            ws.Cells(i, 9).Value = "" ' Pas d'alerte 
        End If 
        ' Calculer le taux de service (Exemple : taux de service basé sur la quantité commandée par rapport au stock) 
        If stockActuel > 0 Then 
            tauxService = quantiteCommande / stockActuel 
        Else 
            tauxService = 0 
        End If 
        ' Mettre à jour le taux de service 
        ws.Cells(i, 10).Value = tauxService ' Colonne J : Taux de service 
    Next i 
    MsgBox "Processus Lean automatisé terminé !", vbInformation 
End Sub

Explication du code 

1. Initialisation des variables : 

• Nous avons initialisé des variables pour stocker les données de chaque produit : stock actuel, seuil de réapprovisionnement, quantité commandée, etc. 

1. Boucle à travers les produits : 

• Nous avons utilisé une boucle For pour traiter chaque ligne de la feuille Excel, en commençant par la ligne 2 (lignes 1 étant les en-têtes). 

1. Calcul des indicateurs Lean : 

• Rotation des stocks : La formule utilisée pour calculer la rotation des stocks est quantiteCommande / stockActuel, ce qui montre combien de fois le stock a été écoulé au cours de la période. 

• Délai de production : Calcul du nombre de jours restant avant la réception de la commande avec la fonction DateDiff. 

• Alerte de stock faible : Si le stock est inférieur ou égal au seuil de réapprovisionnement, une alerte est générée. 

• Taux de service : Le taux de service est calculé en divisant la quantité commandée par le stock actuel. Un taux élevé indique une bonne gestion des stocks. 

1. Mise à jour de la feuille Excel : 

• Le code met à jour les colonnes pour chaque produit, y compris la rotation des stocks, le délai de production, les alertes et le taux de service. 

1. Message de confirmation : 

• Une fois le processus terminé, un message de confirmation est affiché à l’utilisateur. 

Utilisation de ce code dans votre Excel 

1. Ouvrez Excel et accédez à l’éditeur VBA en appuyant sur Alt + F11. 

1. Créez un nouveau module en cliquant sur Insertion > Module. 

1. Copiez et collez le code ci-dessus dans ce module. 

1. Retournez dans votre feuille Excel, appuyez sur Alt + F8, sélectionnez AutomatiserLeanProduction et cliquez sur Exécuter. 

Personnalisation 

• Vous pouvez ajuster les formules pour calculer d’autres indicateurs Lean spécifiques à votre entreprise. 

• Le code peut également être modifié pour générer automatiquement des commandes de réapprovisionnement lorsque le stock atteint un certain seuil, en envoyant un e-mail ou en générant un fichier Excel avec les commandes. 

Cela vous permettra de suivre et d’automatiser plusieurs aspects de la gestion des stocks dans un environnement de production Lean en utilisant Excel et VBA.