Dupliquer des lignes suivant un tableau

[ftatin]

Bonjour,
Je voudrais dupliquer des lignes sur un tableau comme sur le fichier joint
Onglet 1 : Liste des clients avec leur version de tarif
Onglet 2 : Tableau des différentes remises en fonction des versions de tarifs
Onglet 3 : Duplication des lignes en fonction du tableau

Merci

Florent

 

[Paritec]

Re : Dupliquer des lignes suivant un tableau

Bonjour Ftatin le forum
voilà ton fichier en retour tu cliques sur traiter et tu me redis
a+
Papou😱

 

[ftatin]

Re : Dupliquer des lignes suivant un tableau

Merci pour ton travail,
Ça ne fait rien quand je clique sur Traiter
J'ai trouvé ma solution entre tps.
Merci quand même

 

[Paritec]

Re : Dupliquer des lignes suivant un tableau

bonsoir Ftatin le forum
cela ne fait rien?? est-ce que tu penses que je t'enverrais une version qui ne fonctionne pas ??
bref tu as ou tes macros qui ne sont pas activées ou un problème de bugge office.
En plus tu as trouvé la solution et tu ne fais même pas un message pour le signaler !!!!!!!!!!!
a+
Papou😱

 

[klin89]

Re : Dupliquer des lignes suivant un tableau

Bonsoir à tous, 🙂

A tester :

Sub transpose()
Dim a, b, w(), i As Long, j As Long, k As Long, n As Long
    Application.ScreenUpdating = False
    With Sheets("Liste clients").Range("A1").CurrentRegion
        a = .Value
    End With
    With Sheets("Table de données").Range("A1").CurrentRegion
        b = .Value
    End With
    ReDim w(1 To UBound(a, 1) * UBound(b, 1), 1 To 3)
    For i = 1 To UBound(a, 1)
        For j = 1 To UBound(b, 2)
            If a(i, 2) = b(1, j) Then
                For k = 2 To UBound(b, 1)
                    n = n + 1
                    w(n, 1) = a(i, 1)
                    w(n, 2) = b(k, 1)
                    w(n, 3) = b(k, j)
                Next
                Exit For
            End If
        Next
    Next
    With Sheets("Résultat").Cells(1)
        .CurrentRegion.Clear
        .Resize(, 3).Value = [{"Clients","Code famille","Remise"}]
        .Offset(1).Resize(n, 3).Value = w
        With .CurrentRegion
            With .Rows(1)
                .Font.Bold = True
                .Interior.ColorIndex = 40
                .BorderAround Weight:=xlThin
            End With
            .Font.Name = "calibri"
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
            .Borders(xlInsideVertical).Weight = xlThin
            .BorderAround Weight:=xlThin
            '.Columns.AutoFit
        End With
        .Parent.Activate
    End With
    Application.ScreenUpdating = True
End Sub

klin89

 

[gosselien]

Re : Dupliquer des lignes suivant un tableau

Bonjour le forum,

je ne sais pas où est le problème mais vos 2 codes fonctionnent parfaitement chez moi, mais en créant une autre feuille "résultat" que j'ai nommé "finale";


il plante sur

Feuil3.Range("A2:C" & fin).ClearContents (paritec)

With Sheets("résultat").Cells(1) (kin89)


Voilà pour mon grain de sel...

P.


P.

 

[Paritec]

Re : Dupliquer des lignes suivant un tableau

Bonjour Gosselien
bah oui si tu rajoutes des feuilles et que tu renommes, après fatalement il faut le dire à la macro elle ne peut pas le deviner !!
Le code name de ta feuille n'est certainement plus Feuil3 !!!!!
et pour la macro de klin pareil lui c'est le name qu'il faut que tu changes
a+
Papou😱

 

[gosselien]

Re : Dupliquer des lignes suivant un tableau

non, je n'avais rien ajouté/modifié et ça n'allait pas avec cette feuille "résultat" ...
ça a fonctionné en ajoutant une autre feuille chez moi 🙂

j'ai essayé avec le fichier brut de "flatin"

je sais que si on ajoute une feuille le numéro et code name changent 🙂