Extraire une liste de données à partir de plusieurs onglets

Bonjour,

Je suis nouvelle sur le forum, j'ai besoin d'aide pour créer une fiche de synthèse à partir de plusieurs feuilles de commandes sachant que celles-ci augmentent tous les jours.

Je vous joins un exemple du fichier

Merci à ceux qui voudront bien m'aider

Bonjour,

Il y a des onglets avec une "REMARQUE" et d'autres sans, est ce que c'est voulu ou est ce une erreur ?

Est ce que les remarques sont inscrit uniquement dans la cellule adjacante (Cx) au mot "REMARQUE"

ou bien il peut y avoir plusieurs texte dans la plage (Bx:Kx+4) ?

en attendent une réponse au sujet des "REMARQUES"

voici pour la réalisation de "Synthese Commandes"

Sub Transfert()
Dim sh As Worksheet, f As Worksheet, i As Integer, n As Long, r As Long
Set sh = Sheets("SYNTHESE COMMANDES")
r = 2

For Each f In Worksheets
  If f.Name <> sh.Name And f.Name <> "arrAdd" Then
     If IsError(Application.Match("REMARQUES", f.Range("A:A"), 0)) Then
       rwRM = Rows.Count
       rw = f.Cells(Rows.Count, 1).End(xlUp).Row
     Else
       rwRM = Application.Match("REMARQUES", f.Range("A:A"), 0)
       rw = f.Cells(rwRM, 1).End(xlUp).Row
     End If

     For n = 4 To rw

        'CLIENT - N°COMMANDE - DATE - RECEPTION - DATE LIVRAISON
         sh.Cells(r, 1) = f.Name
         sh.Cells(r, 2) = f.Range("G1")
         sh.Cells(r, 3) = f.Range("B1")
         sh.Cells(r, 4) = f.Range("E1")
         sh.Cells(r, 5) = f.Range("K1")

        '(1 à 11) CODES - DESCRIPTION - QUANTITE - N° BL - DATE DEPART CDE - DATE RECEPTION COMMANDE -
        'N° 0F - DEBUT - QUANTITE REALISE - A FAIRE - FIN
         For i = 6 To 16
          sh.Cells(r, i).Value = f.Cells(n, i - 5).Value
         Next i

        'REMARQUES
         sh.Cells(r, "P") = f.Cells(rwRM, 2)

         r = r + 1
     Next n

  End If
  r = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
Next f
End Sub

Bonjour,

Merci sab, en effet c'est une erreur pour la cellule remarque, elle doit être dans tous les fiches de commandes et donc en relation avec la fiche de synthèse.

Je vais essayer le fichier que tu m'as envoyé encore merci.

Merci VER pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!

bonjour,

Merci sab ton programme marche très bien.