Lignes doubles sur vba

[Bad_Dream]

Bonjour,
j'ai une maccro qui me permet de créér des lignes a partir de données existantes dans différents onglets. Comment faire pour que ces lignes soient crées en double a chaque fois, c'est à dire l'une en dessous de l'autre?

ex:
Au lieu de
3301 T851 0351
3302 T965 0478

avoir
3301 T851 0351
3301 T851 0351
3302 T965 0478
3302 T965 0478

Merci d'avance!

 

[tototiti2008]

Re : Lignes doubles sur vba

Bonjour Bad Dream,

je dois bigler, je ne vois pas la différence... 🙂

 

[Bad_Dream]

Re : Lignes doubles sur vba

J'ai édit désolé

 

[Staple1600]

Re : Lignes doubles sur vba

Bonjour Bad_Dream, tototiti2008, le forum




A tester (si j'ai compris correctement le problème 😉 )

Sub Macro1()
Dim Z As Range
Dim c As Range
Application.ScreenUpdating = False
Set Z = Range("A1:A" & [A65536].End(xlUp).Row)
For Each c In Z
If c.Row Mod 2 = 0 Then
c.EntireRow.Insert
End If
Next
For Each c In Z
If IsEmpty(c) Then
  c = c.Offset(1, 0)
  End If
Next
Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : Lignes doubles sur vba

Bonsoir à tous

une autre solution, supposant les données sur 3 colonnes, enfin si j'ai bien compris...

Option Explicit
Sub test()
Dim t() As Variant, i As Integer, j As Byte, k As Integer
t = Range("A1:C" & Range("C65536").End(xlUp).Row).Value
For i = LBound(t, 1) To UBound(t, 1)
    For j = 0 To 1
        Range(Cells(k + 1, 1), Cells(k + 1, 3)).Value = Array(t(i, 1), t(i, 2), t(i, 3))
        k = k + 1
    Next j
Next i
End Sub

bonne soirée
@+