Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recopie vers le bas VBA

spadou86

XLDnaute Junior
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
 

Pièces jointes

  • recopie.xls
    14 KB · Affichages: 24
  • recopie.xls
    14 KB · Affichages: 25
  • recopie.xls
    14 KB · Affichages: 28

Softmama

XLDnaute Accro
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.
VB:
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
 

Pièces jointes

  • recopie.xls
    19.5 KB · Affichages: 44
  • recopie.xls
    19.5 KB · Affichages: 43
  • recopie.xls
    19.5 KB · Affichages: 43
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…