Objet requis Err 424
Résolu
Shadorb
Messages postés
53
Date d'inscription
Statut
Membre
Dernière intervention
-
Shadorb Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
Shadorb Messages postés 53 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voici le problème (qui doit être bidon), je ne comprend pas pourquoi à cette ligne
Le but de ce programme est de supprimer les cas unique, si le code fournisseur actuel est différent du précèdent, on enlève la ligne actuel sinon on fait rien.
C'est d'autant plus ridicule que j'ai déjà réussi à corriger cette erreur mais là ça passe pas :/
Voici le problème (qui doit être bidon), je ne comprend pas pourquoi à cette ligne
codeActuel = Worksheets(1).range("D" & cellF1.Row).Value Il me dis "objet requis", après debugging il semblerait que cellF1.Rowne correspond à rien.
Le but de ce programme est de supprimer les cas unique, si le code fournisseur actuel est différent du précèdent, on enlève la ligne actuel sinon on fait rien.
codeActuel = Worksheets(1).range("D2").Value
LastLineFeuil1 = Sheets("ART305FZ").range("D" & Rows.Count).End(xlUp).Row
Set RangeF1 = Sheets("ART305FZ").range("D2:D" & LastLineFeuil1)
For Each cellF1 In RangeF1
If (StrComp(Worksheets(1).range("D" & cellF1.Row),fournisseur,vbTextCompare) <> 0) Then
Worksheets(1).range("D" & cellF1.Row).EntireRow.Delete
End If
codeActuel = Worksheets(1).range("D" & cellF1.Row).Value
Next
C'est d'autant plus ridicule que j'ai déjà réussi à corriger cette erreur mais là ça passe pas :/
A voir également:
- Objet requis vba
- Vente objet occasion entre particulier - Guide
- Objet interdit en cabine ryanair - Guide
- Vous ne pouvez pas créer de compte google car vous n'avez pas l'âge minimal requis ✓ - Forum Réseaux sociaux
- Identifiant correct requis connexion - Forum Laposte
- Excel compter cellule couleur sans vba - Guide
en fait tu n'as pas définit ce qu'était cell1
essaie :
Dim cell1 As Range
codeActuel = Worksheets(1).range("D2").Value
LastLineFeuil1 = Sheets("ART305FZ").range("D" & Rows.Count).End(xlUp).Row
Set RangeF1 = Sheets("ART305FZ").range("D2:D" & LastLineFeuil1)
For Each cellF1 In RangeF1
If (StrComp(Worksheets(1).range("D" & cellF1.Row),fournisseur,vbTextCompare) <> 0) Then
Worksheets(1).range("D" & cellF1.Row).EntireRow.Delete
End If
codeActuel = Worksheets(1).range("D" & cellF1.Row).Value
Next
D'où l'intérêt de commencer par chaque module par
Option Explicit
C'est pas Cell1 mais CellF1 :
Dim CellF1 as Range
Mais crains que le problème soit ailleurs (.Delete a pour effet de mettre CellF1 à Nothing)
Par ailleurs je ne vous ai montré que la parti du programme en lui même la déclaration des variables est au dessus :)