Discussion :

[Dubbleu]

Bonjour à tous.

j'ai un petit soucis pour faire tourner une macros. j'espère que quelqu'un de plus compétent que moi aura une solution !!

Pour résumer

En feuille1 j'ai un tableau avec données et reférence. sur les feuilles 3 4 et 5 j'ai mes donnée que je voudrais copier dans le tableau de la page 1

en feuille 3 4 5 j'ai un tableau (sur chaque feuille): dans la colonne 1 la reference et dans la colonne 2 les différents produits (plusieurs pour chaque référence)

En gros j'aimerais copier tout les cases associées à une référence (dans les feuille 3 4 5 ) dans une seule case (sur la ligne de la référence) de la feuille 1

Merci d'avance

[Daniel.C]

Bonjour,

Tu as juste des noms de produit, pas de quantités ou de prix ?

[Dubbleu]

Bonjour.

Pas de quantité ou de prix non.
juste plusieurs produits associé a chaque numéro de référence. (chacun sur une ligne indépendante dans la colonne 2. Dans la colonne un les cellule sont fusionnées)

si je ne suis pas assez clair je peux envoyer un bout de l'EXCEL



Merci d'avance

[Daniel.C]

Regarde cette macro et le classeur joint. Sur la feuille Recap, j'ai éliminé les produits doublons.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Recap()
    Dim C As Range, Tabl, F As Variant, Plage As Range, Ligne As Long
    F = Array(3, 4, 5)
    With Sheets(1)
        Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    For i = 0 To 2
        With Sheets(F(i))
            For Each C In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
                Ligne = Application.Match(C.Value, Plage, 0)
                If Not IsNumeric(Application.Match(C.Offset(, 1), Sheets(1).Rows(Ligne), 0)) Then
                    Sheets(1).Cells(Ligne, .Columns.Count).End(xlToLeft).Offset(, 1) = _
                        C.Offset(, 1).Value
                End If
            Next C
        End With
    Next i
End Sub

[Dubbleu]

Merci beaucoup, j'ai bien essayé dans tous les sens mais ca ne veut pas marcher...

[Daniel.C]

Sur le classeur, les résultats sur la feuille 1. C'est la récapitulation de Feuil3, Feuil4 et Feui5. N'est-ce pas ce que tu attends ? Efface la plage B2:H11 et lance la macro.