objet requis

Question

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

yg_be · Answer

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

ccm81 · Answer

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

ccm81 · Answer

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

ccm81 · Answer

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

Objet requis

4 réponses

Discussions similaires

Newsletters