MAHARO
XLDnaute Nouveau
Bonjour,
Je sollicite votre aide sur ce macro,
ca ne renvoie que les titres sur la premiere ligne dans la feuille FEUIL1 et les titres dans la feuille FEUIL2
s'il vous plait
Salutation
Je sollicite votre aide sur ce macro,
ca ne renvoie que les titres sur la premiere ligne dans la feuille FEUIL1 et les titres dans la feuille FEUIL2
s'il vous plait
Salutation
VB:
Sub d1_a1()
Dim i As Integer, derlig As Integer, j As Integer
derlig = Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Recap")
For i = 1 To derlig
.Cells(i, 2) = Sheets("FEUIL1").Cells(i, 2)
.Cells(i, 3) = Sheets("FEUIL1").Cells(i, 3)
.Cells(i, 4) = Sheets("FEUIL1").Cells(i, 4)
.Cells(i, 5) = Sheets("FEUIL1").Cells(i, 5)
.Cells(i, 6) = Sheets("FEUIL1").Cells(i, 6)
.Cells(i, 7) = Sheets("FEUIL1").Cells(i, 7)
.Cells(i, 8) = Sheets("FEUIL1").Cells(i, 8)
.Cells(i, 9) = Sheets("FEUIL1").Cells(i, 9)
Next
Sheets("Recap").Select
For j = 1 To derlig
If .Cells(j, 2) <> " " Then
.Cells(j + 1, 2) = Sheets("FEUIL2").Cells(j, 2)
.Cells(j + 1, 3) = Sheets("FEUIL2").Cells(j, 3)
.Cells(j + 1, 4) = Sheets("FEUIL2").Cells(j, 4)
.Cells(j + 1, 5) = Sheets("FEUIL2").Cells(j, 5)
.Cells(j + 1, 6) = Sheets("FEUIL2").Cells(j, 6)
.Cells(j + 1, 7) = Sheets("FEUIL2").Cells(j, 7)
.Cells(j + 1, 8) = Sheets("FEUIL2").Cells(j, 8)
.Cells(j + 1, 9) = Sheets("FEUIL2").Cells(j, 9)
End If
Next
End With
End Sub