Macro pour mise en forme

Bonjour à tous,

Tout d'abord, je remercie la communauté pour l'aide apportée à résoudre les problématiques de chacun et du temps que vous passez.

Maintenant, je vais tenter d'exposer mon problème... en espérant être le plus clair possible (si ce n'est pas le cas, n'hésitez pas à le dire).

Voila, je reçois un fichier avec des données sous forme de tableau (voir onglet ''Data'' du fichier joint).

J'aimerai créer une macro pour exporter ces données vers un tableau (voir onglet ''Order'').

Le nombre de commande varie d'un jour à l'autre (ça va de 1 commande à plus de 100).

Le nombre d'Items également varie en fonction des commandes (plusieurs centaines).

La mise ne forme des onglets ne bouge pas.

En faisant quelques tests, j'arrive à importer le contenu de la première commande, en revanche je bloque au niveau de la boucle.

Merci de toute l'aide que vous pourriez m'apporter.

Mog

17demo-export.xlsx (98.78 Ko)

Bonjour,

Oû est la macro ?

J'aimerai justement en créer une.

J'en faisait des simples auparavant, mais jamais avec des notions de boucles...

Merci.

Mog

Hello,

Voici une version allégé de mon fichier avec un début de macro et des commentaires.

Est-ce que je dois partir sur des boucles imbriquées?

Bref, je suis perdu

Merci de votre aide.

Sub Order1()
'
' Order1 Macro
'

Dim j As Integer

' Récupération des items et quantités
    ' Initialisation du j

j = 2

    Do Until IsEmpty(Sheets("DATA").Range("A" & j).Value)

    If Sheets("DATA").Range("B" & j) >= 1 Then
    Sheets("EXE").Range("A" & (j)).Value = Sheets("DATA").Range("A" & j)
    Sheets("EXE").Range("B" & (j)).Value = Sheets("DATA").Range("B" & j)

    End If

    j = j + 1

    Loop

End Sub
9demo-export1.xlsm (17.89 Ko)

Bonjour,

Voilà une proposition à tester.

J'ai fait cela rapidement en voulant conserver ce que vous aviez commencé.

12mogwa-export1.xlsm (24.05 Ko)

Super!!!!

Merci beaucoup pour votre aide... c'est nickel,ça fonctionne du tonnerre.

Ca faisait quelques jours que je me prenais la tête, merci, merci!!!

Mog

Bonjour,

Peux-tu joindre à ta demande un fichier tel que l'on te l'envoie sans lui apporter de modification ?

Cdlt.

Rechercher des sujets similaires à "macro mise forme"