Boucle - Copier les valeurs

[Patchi06]

Bonjour.
Je butte sur une boucle : A partir d'un classeur, j'extrait des fiches selon un certain critère ; J'affiche cette liste sur mon classeur et ensuite -c'est la que je coince- j'aimerai copier une à une chaque fiche et les coller successivement en H5 pour ensuite générer des étiquettes à code barre.
Je joint un petit classeur pour mieux visualiser.
Pouvez-vous m'aider ? Merci par avance.

 

[JBARBE]

Re : Boucle - Copier les valeurs

Bonjour,

avec cette macro ci-joint :

Sub Essai()
Sheets("Feuil1").Select
T = 8
 For i = 8 To 14
  If Cells(T, i) = "" Then Exit Sub
  Cells(T, i).Copy
   For j = 17 To 23
    Cells(j, 2).Select
    If ActiveCell = "" Then
     ActiveSheet.Paste
    Application.CutCopyMode = False
    Exit For
    Else
    Cells(j + 1, 2).Select
    End If
 Next j
  If i = 14 Then
 Cells(T + 1, i + 1).Select
 Else
  Cells(T, i + 1).Select
  End If
 Next i
End Sub

 

[JBARBE]

Re : Boucle - Copier les valeurs

J'ai rajouté quelques lignes pour la mise en forme

Sub Essai()
Sheets("Feuil1").Select
T = 8
Z = 17 + 1
 For I = 8 To 14
  If Cells(T, I) = "" Then Exit Sub
  Cells(T, I).Copy
   For j = 17 To 23
    Cells(j, 2).Select
    If ActiveCell = "" Then
     ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Interior.ColorIndex = 6
    End With
    Exit For
    Else
    Cells(j + 1, 2).Select
    End If
 Next j
  If I = 14 Then
 Cells(T + 1, I + 1).Select
 Else
  Cells(T, I + 1).Select
  End If
 Next I
End Sub

 

[Patchi06]

Re : Boucle - Copier les valeurs

Merci à tous et plus particulièrement à Jean-Marcel qui, avec une simple ligne, me fait sortir d'un grand moment de solitude.

 

[JBARBE]

Re : Boucle - Copier les valeurs

Ci-joint le fichier complet !