Macro insertion ligne et copie cette ligne

Halim74

XLDnaute Nouveau
Bonjour,
J'ai un petit soucis, j'ai crée une macro simple pour insérer une ligne sur deux comme ceci :

Sub MacroInsertUneLigneSurDeux()
Dim Line As Integer
Range("A2").Select
Line = 0
Recommence:
Line = Line + 2
Rows(Line).Select
Selection.Insert Shift:=xlDown
If Line < ActiveSheet.UsedRange.Rows.Count Then
GoTo Recommence
End If
End Sub

Mais je voudrais également faire une macro qui permet de copier cette ligne dans la ligne suivante ..cad copié la ligne où il y a des valeurs sur la suivante qui n'a pas de valeur, idem pour les autres lignes.

IC I ITYPP INPIE IDTCT IDTPC NCPTE

ISA GE6 D 20150401 20150401 4121060 Facture impayée GDF

ISA GE6 D 20150401 20150401 4121060 Facture impayée Siemens SAS

ISA GE6 D 20150401 20150401 4121060 Facture impayée

ISA GE6 D 20150401 20150401 4121060 Facture impayée VICAT

ISA GE6 D 20150401 20150401 6225000 Frais Bancaires STDGFIN HG 1

Vous trouver le fichier en PJ

J'espère avoir été claire,

merci pour votre aide
 

Pièces jointes

  • CCV 38586 JUIN.xls
    80.5 KB · Affichages: 31

Paf

XLDnaute Barbatruc
Re : Macro insertion ligne et copie cette ligne

Bonjour

une macro qui, pour chaque ligne, insère une ligne identique.

si le tableau n'a pas de lignes vides

Code:
Sub MacroInsertUneLigneSurDeuxsansvide()
 Dim i As Long
 
 For i = Range("A65536").End(xlUp).Row To 2 Step -1
    Rows(i).Copy
    Rows(i).Insert Shift:=xlDown
 Next
End Sub

la même si le tableau comporte déjà une ligne vide sur deux
Code:
Sub MacroInsertUneLigneSurDeuxavecvide()
 Dim i As Long
 
 For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1) <> "" Then
        Rows(i).Copy Rows(i + 1)
    End If
 Next
End Sub

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG