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