ajouter la cellule "X" fois dans une autre feuille

[toksib]

bonsoir,

Voila, j'ai 2 colonnes avec les même références. mais avec plusieurs repetition des ref et j'aimerai ajouter dans une autre feuille et dans une seule colonne la même liste mais prendre le nombre de référence là où il y en a le plus.

je sais pas si j'arrive à me faire comprendre, du coup je joint un fichier.

j'ai commencé à travailler sur le fichier joint et j'ai réussi à avoir le nombre de fois (en colonne F) qu'il faut répéter la ref 2 (cellule qui est en colonne C) !

en vous remerciant

 

[Efgé]

Re : ajouter la cellule "X" fois dans une autre feuille

Bonjpur toksib,
Une proposition en m'appuyant sur votre colonne F

Sub tri()
Dim derlign As Long
For i = 2 To 1000
    If Not Cells(i, 3).Value = Cells(i + 1, 3).Value Then
        Var = Cells(i, 6).Value
        For k = 1 To Var
            derlign = Range("I65536").End(xlUp).Row + 1
            Cells(derlign, 9).Value = Cells(i, 3).Value
        Next k
    End If
Next i
End Sub

Vous pouvez masquer les colonnes B, D E et F
Cordialement

 

[Staple1600]

Re : ajouter la cellule "X" fois dans une autre feuille

Bonsoir

Une autre solution

Sub a()
Dim c As Range
For Each c In Range([C2], [C65536].End(xlUp))
Cells(65536, "I").End(xlUp)(2).Resize(c.Offset(, 3)) = c
Next
End Sub

qui ne fonctionne que s'il n'y a pas de doublons en colonne C

 

[toksib]

Re : ajouter la cellule "X" fois dans une autre feuille

je vous remercie bcp ... j'ai pas encore testé mais j'ai confiance.

cordialement