problème macro collage spécial

[kiko1987]

Bonjour à tous les surdoués d'Excel,

je viens vers vous car faute d'avoir trouvé une solution simple à mon besoin j'ai créé un casse tête.

je souhaite réaliser des étiquettes pour la production de mon entreprise. mon problème est le suivant:

une étiquette par produit et un produit peut passer plusieurs fois donc je veux obtenir plusieurs étiquettes pour ce produit du type:

produit 1 3 réalisations
produit 2 4 réalisations

je veux obtenir ceci:
produit 1
produit 1
produit 1
produit 2
produit 2
produit 2
produit 2

et je ne sais pas comment faire. j'ai donc réalisé le document en lien

allez voir en feuil2 j'explique le fonctionnement de mon casse tête.

Cijoint.fr - Service gratuit de dépôt de fichiers


si vous aviez une solution plus simple vous me sauveriez la vie.

Merci d'avance

 

[soenda]

Re : problème macro collage spécial

Bonjour le fil, kiko1987

Dans l'exemple suivant, le résultat est copié en colonne [I:I]

Sub test()
    Dim L%, C As Integer
    Dim cel As Range
    Dim t() As String
 
    On Error Resume Next
    ReDim t(WorksheetFunction.Sum([B:B]) - 1)
 
    If Err.Number = 0 Then
 
        For Each cel In Range("B2", [B2].End(xlDown))
            For C = 1 To cel.Value
                t(L) = cel.Offset(, -1).Value
                L = L + 1
        Next C, cel
 
        [I2].Resize(L) = Application.Transpose(t)
 
    Else
 
        MsgBox "[B][COLOR=blue]La colonne B (ormis l'entête) ne doit contenir que des chiffres[/COLOR][/B]"
 
    End If
 
End Sub

A plus

 

[kiko1987]

Re : problème macro collage spécial

Bonjour le forum et soenda,
merci beaucoup pour cette solution top de classe!!

vous venez de me simplifier la vie grand merci