Pourquoi cette macro ne marche pas ?

[Kat999]

Bonjour,

Le but de cette macro est de repérer dans une feuille (Test) les lignes contenant dans la 3ème colonne l'heure 21:30 et de les copier dans la feuille Resultat en gardant le format heure surtout des colonnes !!

Private Sub CommandButton1_Click()

Dim ligne, i As Integer
Dim Test, Resultat As Worksheet

Set Test = Sheets("Test")
Set Resultat = Sheets("Resultat")

i = 1

For ligne = Test.UsedRange.Rows.Count + Test.UsedRange.Row To 1 Step -1
If Format(Cells(ligne, 3), "hh:mm:ss") = "21:30:00" Then
Test.Rows(ligne).Copy(Resultat.Rows(i)).xlPasteAll 'Le probleme se situe à cet endroit
i = i + 1
End If

Next ligne

End Sub

Par avance, merci pour votre précieuse aide !

 

[michel]

Bonsoir Kat999

Dans la ligne qui te pose problème , il te suffit de saisir :

Test.Rows(ligne).Copy (Resultat.Rows(i))


Bonne soirée
Michel

 

[michel]

rebonsoir

ouppss ... le message est parti un peu vite ...

le .xlPasteAll dans ta procédure , est superflu


bonne soirée
Michel