Objet requis

Fermé

simoomis - Modifié le 8 avril 2019 à 23:02
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 9 avril 2019 à 22:20

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

A voir également:

4 réponses

Réponse 1 / 4

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
8 avril 2019 à 22:52

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

Réponse 2 / 4

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié le 9 avril 2019 à 10:18

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

simoomis
9 avril 2019 à 17:53

merci pour ta réponse,
mais je reçois toujours le message d erreur d exécution "9"
:(

simoomis
9 avril 2019 à 21:42

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 ??

Réponse 3 / 4

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
9 avril 2019 à 18:32

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

simoomis
9 avril 2019 à 19:36

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

merci beaucoup, tu m as sauvé
:)

Réponse 4 / 4

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
9 avril 2019 à 22:20

De rien

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

CDlmnt

Discussions similaires

Problème d'app Gmail : "Identifiants requis"

echec de creation de l'objet com

Quel personnage rare choisir pour battre AKINATOR ?

Identifiant requis

manon

Discussions similaires

Newsletters