Insertion de plusieurs lignes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
w
wbbizarre
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 14 avril 2016
Version d'Excel : 2010

Message par wbbizarre » 12 mai 2016, 16:04

Bonsoir,

J'aimerais insérer 3 lignes vides toutes les lignes dans un docs ou les lignes initial sont évidemment complétés.
Ci joint un exemple.
Est il possible de le faire de façon automatique ou bien via l'aide d'une macro.

Cdlt
wwbbbbbizard
Classeur1.xlsx
(10.03 Kio) Téléchargé 23 fois
E
Excelator
Jeune membre
Jeune membre
Messages : 22
Appréciation reçue : 1
Inscrit le : 8 mai 2016
Version d'Excel : 2038

Message par Excelator » 12 mai 2016, 20:36

Bonjour...a l'aide d'une macro.
Sub ligne()
Dim dl&
With Feuil1
dl = .Cells(Rows.Count, 1).End(3).Row
For i = dl To 2 Step -1
If .Cells(i, 1) <> "" Then .Cells(i, 1).Resize(3, 1).EntireRow.Insert
Next
End With
End Sub
1 membre du forum aime ce message.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message