Objet requis
simoomis
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
je essaye de faire copier une ligne d une feuille excel vers une autre selon un critère
mais ce ne marche pas et me donne le code erreur 424 objet requis
est ce que quelqu un peut m aider SVP
Sub filtre()
For i = 1 To 5000
If Cells(i, 6).Value = "LONDON (7322-1)" Then
Rows(i).EntireRow.Copy
Feuil19.Select
Range("B" & Rows.Count).End(xlUp).Offset(1).EntireRow.Select
ActiveSheet.Paste
End If
Next
End Sub
je essaye de faire copier une ligne d une feuille excel vers une autre selon un critère
mais ce ne marche pas et me donne le code erreur 424 objet requis
est ce que quelqu un peut m aider SVP
Sub filtre()
For i = 1 To 5000
If Cells(i, 6).Value = "LONDON (7322-1)" Then
Rows(i).EntireRow.Copy
Feuil19.Select
Range("B" & Rows.Count).End(xlUp).Offset(1).EntireRow.Select
ActiveSheet.Paste
End If
Next
End Sub
Configuration: Windows / Chrome 73.0.3683.86
A voir également:
- Objet requis
- Vente objet occasion entre particulier - Guide
- Objet interdit en cabine ryanair - Guide
- Trouver objet avec photo - Guide
- Identifiant requis gmail - Forum Laposte
- Mesurer un objet - Guide
4 réponses
bonjour, afin de nous aider à t'aider:
0° ajoute "option explicit" au début de chaque module
1° merci d'utiliser la coloration syntaxique et le type "basic" quand tu partages du code
2° merci d'indiquer à quelle ligne tu obtiens le message d'erreur
0° ajoute "option explicit" au début de chaque module
1° merci d'utiliser la coloration syntaxique et le type "basic" quand tu partages du code
2° merci d'indiquer à quelle ligne tu obtiens le message d'erreur
Bonjour à tous les deux
En supposant que la feuille source est Feuil1 et que la feuille but est Feuil19 ceci devrait fonctionner
Cdlmnt
En supposant que la feuille source est Feuil1 et que la feuille but est Feuil19 ceci devrait fonctionner
Option Explicit
Sub filtre()
Dim i As Long, licopie As Long
With Sheets("Feuil1")
For i = 1 To 10
If .Cells(i, 6).Value = "LONDON (7322-1)" Then
licopie = Sheets("Feuil19").Range("B" & Rows.Count).End(xlUp).Row + 1
.Rows(i).Copy Sheets("Feuil19").Range("A" & licopie)
End If
Next i
End With
End Sub
Cdlmnt
