Copier coller avec 1 condition dans une nouvelle feuille.

[medseb]

Bonjour,

Je dois générer sur mon imprimante des étiquettes d'un fichier de références. Certaines références comportent une quantité supérieure à 1. Je voudrais que la quantité d'une meme référence soit dupliquée autant de fois.

Je suis complètement novice en macros excel et en VBA. Pourriez m'aider à le faire sur le fichier joint qui est le modèle type que j'utilise.
Pour info ci-joint mon fichier excel type (qui peux faire plusieurs centaines de lignes)

Merci d'avance pour votre aide.

 

[Staple1600]

Re : Copier coller avec 1 condition dans une nouvelle feuille.

Bonjour à tous

medseb [Bienvenue sur le forum]
Juste de passage pour une suggestion
Une solution plus souple est de passer par le publipostage avec Word.
(voir ici un tutoriel)

EDITION: Bonjour néné06

 

[néné06]

Re : Copier coller avec 1 condition dans une nouvelle feuille.

Bonjour Medseb, Salut Jean-Marie

Regardes cet exemple que j'ai détaillé en code VBA et dis-nous ?

A+

edit: je viens de réaliser que tu est sur Mac et je ne peux tester ???

René

 

[job75]

Re : Copier coller avec 1 condition dans une nouvelle feuille.

Bonsoir medseb, Jean-Marie, René,

MAC accepte les tableaux VBA, ceci ne devrait pas poser de problème :

Sub Dupliquer()
Dim t, ncol%, rest(), i&, j&, n&, k%
t = [A1].CurrentRegion 'matrice, plus rapide
ncol = UBound(t, 2)
ReDim rest(1 To Application.Sum(Application.Index(t, 0, 2)) + 1, 1 To ncol)
'---remplissage du tablau---
For i = 2 To UBound(t)
  For j = 1 To t(i, 2)
    n = n + 1
    For k = 1 To ncol
      rest(n, k) = t(i, k)
    Next
    rest(n, 2) = 1
  Next
Next
'---restitution---
With Sheets("Résultat")
  .Rows("2:" & .Rows.Count).Delete 'RAZ
  .[A2].Resize(n + 1, ncol) = rest
  .Activate
End With
End Sub

Fichier joint.

A+