recopie vers le bas VBA

[spadou86]

Bonjour,

j'ai des nom+prénom à recopier vers le bas sur 7 lignes. Je voudrais savoir s'il on peut faire une macro pour sélectionner les nom +prénom le copier à la suite 7 fois et ainsi de suite.
Je mets un fichier pour montrer mon exemple.

Merci d'avance

 

[Softmama]

Re : recopie vers le bas VBA

Bonjour spadou86,

ton fichier en pièce jointe.
Il remplit les blancs de ce qui se trouve au dessus, quel que soit le nombre de blancs qui se trouvent entre les noms.

Private Sub test1_Click()
Dim c As Range, a As Long
Set c = [A1]
a = Feuil1.UsedRange.Rows.Count + 1
Do While c.Row < a
  c.Resize(, 2).AutoFill c.Resize(IIf(c.End(xlDown).Row < 65000, c.End(xlDown).Row - c.Row, 8), 2)
  Set c = c.End(xlDown)
Loop
End Sub

 

[spadou86]

Re : recopie vers le bas VBA

Merci c'est tout à fait ce qu'il me faut !!
Merci beaucoup beaucoup ^^