Bonjour, j'ai un problème lorsque j'effectue des copies avec mon programme VBA
Voila les données qu'il me copie
AFFECTATION 100/SN10 1 0
CA ______________________________ 1 0
TRANSPORT FRAIS DE TRANSPORT 1 0
alors, que je devrai avoir
AFFECTATION 100/SN10 1 0
. GARNISSAGE DE 3 SIEGES 1 2085
CA ______________________________ 1 0
DCST ______________________________ 1 0
TRANSPORT FRAIS DE TRANSPORT 1 0
SIGFRAJPC . 1 0
Mon programme saute une ligne sur deux
Peut on m'aider a corriger se problème
Merci
Sub help()
'Saisie du code GTI fournisseur
i = InputBox("Indiquez le code GTI fournisseur", "Code GTI", "")
'Indiquer le nom de la page de donnée
mg = InputBox("Indiquez le nom de la page de donnée", "Nom Page", "t445tjvi")
'Copie les lignes correpondante sur la feuille de visualisation
Sheets(mg).Activate
Dim derlo As Long
derlo = Cells(65536, 3).End(xlUp).Row
'Indiquer dernière date de la plage de donnée
g = InputBox("Indiquez dernière date", "Date", "08/31/2007")
Sheets.Add
ActiveSheet.Name = i
gti = i
r = 1
For p = 1 To derlo
Sheets(mg).Activate
If Cells(p, 5).Value = i Then
Rows(p).EntireRow.Copy
Sheets(i).Select
Range("A" & r).Select
ActiveSheet.Paste
r = r + 1
End If
p = p + 1
Next p
End Sub
Voila les données qu'il me copie
AFFECTATION 100/SN10 1 0
CA ______________________________ 1 0
TRANSPORT FRAIS DE TRANSPORT 1 0
alors, que je devrai avoir
AFFECTATION 100/SN10 1 0
. GARNISSAGE DE 3 SIEGES 1 2085
CA ______________________________ 1 0
DCST ______________________________ 1 0
TRANSPORT FRAIS DE TRANSPORT 1 0
SIGFRAJPC . 1 0
Mon programme saute une ligne sur deux
Peut on m'aider a corriger se problème
Merci