Problème de copie en VBA

[baptbapt]

Bonjour, j'ai un problème lorsque j'effectue des copies avec mon programme VBA

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

 

[pierrejean]

Re : Problème de copie en VBA

bonjour baptbapt

p = p + 1
Next p

ces 2 lignes font la même chose : incrementer p
supprime la 1ere

 

[baptbapt]

Re : Problème de copie en VBA

L'erreur de débutant.

Merci Pierre-Jean