Recopier cellule espacé

[klm]

Je ne sais pas si le titre est explicite je vais tenté d'expliquer mon probleme...

je travail sur 2 feuille, sur la 1e se trouve des noms d'emloyé en colonne
A5 -> nom1
A10 -> nom2
A15 -> nom3 etc......

j'aimerais pouvoir les coller à la suite dans ma 2e feuille de telle sorte :
A3 -> nom1
A4 -> nom2
A5 -> nom3
etc........
c'est surement tout bête mais je n'y arrive po!!!!!
sachant que je dois le faire pour une centaine de nom

merci d'avance!!!!!!!

 

[Tibo]

Re : Recopier cellule espacé

Bonjour,

tu peux essayer avec cette formule en A3 de ta feuil2 :

=INDEX(Feuil1!$A:$A;(LIGNE()-2)*5)

à recopier vers le bas

@+

 

[bonsouarmessieux]

Re : Recopier cellule espacé

Salut!
Tu peux aussi essayer ce code:

Sub Recopier()
    'on Pose N le nombre de tes employés
    N = 3
    
    For i = 5 To 5 * N + 4
        If Int(i / 5) = i / 5 Then
            Worksheets(2).Cells(i / 5 + 2, 1) = Worksheets(1).Cells(i, 1)
        End If
    Next
End Sub

et changer la valeur de N à ta guise. Ce code repose sur le fait que le nom de tes employés apparaissent toujours sur les lignes sont le numéro est un multiple de 5.
Ciao

 

[klm]

Re : Recopier cellule espacé

Merci a vous 2,
Tibo ta formule fonctionne trés bien mais est ce que je pourrais avoir une explication, la jsui 1 peu largué