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