Objet requis
simoomis
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
- Identifier un objet à partir d'une photo - Guide
- Mesurer un objet - Guide
- Identifiant requis gmail - Forum Laposte
4 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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