Menu

Objet requis

-
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




Configuration: Windows / Chrome 73.0.3683.86
Afficher la suite 

Votre réponse

4 réponses

Messages postés
7733
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 avril 2019
460
0
Merci
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
Commenter la réponse de yg_be
Messages postés
8897
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 avril 2019
1934
0
Merci
Bonjour à tous les deux

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
merci pour ta réponse,
mais je reçois toujours le message d erreur d exécution "9"
:(
deniere question

si je veux mettre plusieurs critère, est ce que je dois les intégrer entre les guillemets ou rien recopier le code ?

et pour faire la copie vers une feuille d un autre classeur ??
Commenter la réponse de ccm81
Messages postés
8897
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 avril 2019
1934
0
Merci
1. As tu vérifié les noms des feuilles
2. Sur quelle ligne se situe l'erreur
3. La macro sur mon fichier fonctionne bien (Ctrl+k pour la lancer)
https://www.cjoint.com/c/IDjqEUurarB

Cdlmnt
Ah oui, des le début c était a cause des noms des feuilles

merci beaucoup, tu m as sauvé
:)
Commenter la réponse de ccm81
Messages postés
8897
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
23 avril 2019
1934
0
Merci
De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

CDlmnt
Commenter la réponse de ccm81