problème macro collage spécial

kiko1987 · 6 Mai 2010

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 · 8 Mai 2010

Re : problème macro collage spécial

Bonjour le fil, kiko1987

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

Code:

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 · 10 Mai 2010

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

problème macro collage spécial

kiko1987

Guest

soenda

XLDnaute Accro

kiko1987

Guest

Discussions similaires

problème macro collage spécial

kiko1987

Guest

soenda

XLDnaute Accro

kiko1987

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency