Creation d'inventaire -Simplification de formule ou Macro

Bonjour a tous,

Ci-joint un fichier servant a vérifier les données saisies dans un logiciel d'inventaire JDE.

L'importation des données dans ce fichier est trop lourd en calcule

Le but est de simplifier les formules ou de créer une macro.

La description des étapes d'utilisation du fichier se trouve en post dans le fichier, feuille "Work Sheet"

Att les feuilles "Work Sheet", "Data" et "Label Print" doivent posséder un minimum de 5000 lignes identiques, ce qui pose le problème de lenteur de calcul avec l'utilisation de formule.

Merci d'avance pour votre aide.

Glop

https://www.excel-pratique.com/~bigfiles/doc/Inv_Builder1.zip

Bonjour à tous,

Essai sur une feuille, sans formules.

Sub RempliTablo()
Dim Lg%, Lg2%, Cel As Range
''Macros par Claude Dubois pour "GLOP" Excel-Pratique le 04/02/10
    Application.ScreenUpdating = False
        Lg = Range("a65536").End(xlUp).Row
        Range("o1") = "=MATCH(p1,sheet1!b:b,0)"
    For Each Cel In Range("a2:a" & Lg)
            Range("p1") = Cel
        If Not IsError(Range("o1")) Then
            Lg2 = Range("o1")
            With Sheets("Sheet1")
                .Range(.Range("b" & Lg2), .Range("i" & Lg2)). _
                Copy Destination:=Range("a" & Cel.Row)
            End With
        Else
            Cel.Interior.ColorIndex = 6
        End If
    Next Cel
        Range("o1:p1").ClearContents
End Sub

Bonne journée

Claude

Bonjour Claude,

Ca ma l'air impec, je suis en train de mettre en forme le fichier complet avec ta macro.

je reviens sur le post un peu plus tard.

Salutations

Glop

-- Jeu Fév 04, 2010 9:02 pm --

Claude,

Grand merci a toi pour cette macro. Ca marche impec.

L'importation des data se fait sans probleme et la verification des saisies par le biais de la macro correspond bien a ce que je recherchais.

Encore milles mercis

Salutations.

Glop