Erreur d'execution 424 : Objet requis

Résolu/Fermé

ThePlisskenism - 1 mars 2012 à 10:22
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 1 mars 2012 à 16:32

Bonjour à tous,

j'ai un problème sur Excel, dans la programmation de mon fichier. J'ai cherché un peu partout sur le Net mais je n'ai pas trouvé réponse exacte à mon problème. Je vous explique :

J'ai un fichier qui me donne un listing de projets. Au bout du tableau, j'ai placé deux colonnes qui, lorsqu'on inscrit un "x" dans la case, transfère la ligne sur une autre feuille.
Pourquoi j'ai crée deux colonnes ? Pour transférer certaines lignes sur une feuille et d'autres sur une autre feuille.
Donc, vient mon problème, lorsque je tape "x" dans la première colonne, j'ai le message "erreur d'execution 424 : Objet requis"; alors que dans la deuxième colonne je ne l'ai pas. J'ai cvompris qu'il me manqué une instruction dans la deuxième partie du programme mais je ne vois pas laquelle.

Si quelqu'un avait une idée, ça me serait utile. Merci pour vos réponses. Je joints mon programmeci-dessous.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLigne As String
Dim i As Byte
If Target.Count = 1 Then
If Left(Target.Address, 3) = "$BD" _
And LCase(Target.Value) = "x" Then
With Sheets("Projets terminés")
i = Target.Offset(1, 0).Row - Target.Row
DerLigne = .Cells(.Columns(1).Cells.Count, "D").End(xlUp).Row + 1
' Cells(Target.Row, 1).Resize(i, 55).Copy Destination:=.Cells(DerLigne, 1)
Cells(Target.Row, 1).Resize(i, 55).Copy

'.Range("A" & .Columns(1).Cells.Count).End(xlUp) = Now
.Cells(DerLigne, 56).Value = ActiveSheet.Name
Feuil3.Activate
.Cells(DerLigne, 1).Select
'Feuil3.Paste (Cells(DerLigne, 1))

ActiveSheet.Paste
'Selection.Paste
Rows(Target.Row).Resize(i).Delete Shift:=xlUp
End With
End If
End If

'Sheets("Suivi des comptes").Cells(1, 1).Activate

If Target.Count = 1 Then
If Left(Target.Address, 3) = "$BF" _
And LCase(Target.Value) = "x" Then
With Sheets("Projets quitussables")
i = Target.Offset(1, 0).Row - Target.Row
DerLigne = .Cells(.Columns(1).Cells.Count, "D").End(xlUp).Row + 1
' Cells(Target.Row, 1).Resize(i, 55).Copy Destination:=.Cells(DerLigne, 1)
Cells(Target.Row, 1).Resize(i, 55).Copy

'.Range("A" & .Columns(1).Cells.Count).End(xlUp) = Now
.Cells(DerLigne, 56).Value = ActiveSheet.Name
Feuil4.Activate
.Cells(DerLigne, 1).Select
'Feuil4.Paste (Cells(DerLigne, 1))

ActiveSheet.Paste
'Selection.Paste
Rows(Target.Row).Resize(i).Delete Shift:=xlUp
End With
End If
End If

'Sheets("Suivi des comptes").Cells(1, 1).Activate
End Sub

A voir également:

Erreur execution 424
Erreur 0x80070643 - Guide
Erreur d'execution 1004 ✓ - Forum VB / VBA
Une erreur s'est produite instagram ✓ - Forum Instagram
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Erreur 38 free ✓ - Forum Mobile

9 réponses

Réponse 1 / 9

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 1/03/2012 à 10:50

Bonjour,

Cells(DerLigne, 1).Select

si la cellule selectionnee est une cellule de la feuil3, il ne faut pas mettre de point devant sinon c'est une cellule de l'onglet "Projets terminés".

Idem pour la feuil4

A suivre

Bonne suite

Réponse 4 / 9

ThePlisskenism
1 mars 2012 à 15:20

Désolé, ça ne marche pas non plus, il m'affiche une erreur de compilation maintenant :

"End If sans bloc If"

Je mets mon code au cas où vous repereriez une erreur.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLigne As String
Dim i As Byte
If Target.Count = 1 Then
If Left(Target.Address, 3) = "$BD" And LCase(Target.Value) = "x" Then _
With Sheets("Projets terminés")
i = Target.Offset(1, 0).Row - Target.Row
DerLigne = .Cells(.Columns(1).Cells.Count, "D").End(xlUp).Row + 1
' Cells(Target.Row, 1).Resize(i, 55).Copy Destination:=.Cells(DerLigne, 1)
Cells(Target.Row, 1).Resize(i, 55).Copy

'.Range("A" & .Columns(1).Cells.Count).End(xlUp) = Now
.Cells(DerLigne, 56).Value = ActiveSheet.Name
Feuil3.Activate
.Cells(DerLigne, 1).Select
'Feuil3.Paste (Cells(DerLigne, 1))

ActiveSheet.Paste
'Selection.Paste
Rows(Target.Row).Resize(i).Delete Shift:=xlUp
End With
End If
End If

'Sheets("Suivi des comptes").Cells(1, 1).Activate

If Target.Count = 1 Then
ElseIf Left(Target.Address, 3) = "$BF" And LCase(Target.Value) = "x" Then
With Sheets("Projets quitussables")
i = Target.Offset(1, 0).Row - Target.Row
DerLigne = .Cells(.Columns(1).Cells.Count, "D").End(xlUp).Row + 1
' Cells(Target.Row, 1).Resize(i, 55).Copy Destination:=.Cells(DerLigne, 1)
Cells(Target.Row, 1).Resize(i, 55).Copy

'.Range("A" & .Columns(1).Cells.Count).End(xlUp) = Now
.Cells(DerLigne, 56).Value = ActiveSheet.Name
Feuil4.Activate
.Cells(DerLigne, 1).Select
'Feuil4.Paste (Cells(DerLigne, 1))

ActiveSheet.Paste
'Selection.Paste
Rows(Target.Row).Resize(i).Delete Shift:=xlUp
End With
End If
End If

'Sheets("Suivi des comptes").Cells(1, 1).Activate
End Sub

Réponse 6 / 9

ThePlisskenism
1 mars 2012 à 15:23

C'est le deuxième If Target.Count = 1 Then

Je vais vérifier ce que tu m'as dis en attendant. Merci.

A suivre.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 1/03/2012 à 15:25

Tu devrais vire tes lignes :

If target.Count = 1 Then 
End If

les deux fois ou tu les as mises.
A la place, tu mets cette ligne en début de macro :

If Target.Count > 1 Then Exit Sub

ThePlisskenism
1 mars 2012 à 15:32

J'ai le même mesage d'erreur mais sur le coup là, c'est la toute première ligne qui est surlignée "Private Sub ..."

Réponse 8 / 9

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 mars 2012 à 15:48

Re-

J'ai repris exactement ton code et adapté deux-trois "bidules" qui me génaient...
exemple :
If Target.Count > 1 Then Exit Sub

Le copier-colelr que tu faisais en 4 lignes est maintenant :
Cells(Target.Row, 1).Resize(i, 55).Copy .Cells(DerLigne, 1)

J'ai viré les Feuil4.Activate...

Remplacé : Left(Target.Address, 3) = "$BD" par : Target.Column = 56
ben oui Left(Target.Address, 3) = "$B$" dans le cas de la colonne BD... pour avoir $B$D c'est Left(Target.Address, 4)
Regarde ce fichier pour voir si ça correspond
Mets des "x" en colonnes BD ou BF...

Le code donne :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLigne As String
Dim i As Byte

If Target.Count > 1 Then Exit Sub

If Target.Column = 56 And LCase(Target.Value) = "x" Then
    With Sheets("Projets terminés")
        i = Target.Offset(1, 0).Row - Target.Row
        DerLigne = .Cells(.Columns(1).Cells.Count, "D").End(xlUp).Row + 1
        ' Cells(Target.Row, 1).Resize(i, 55).Copy Destination:=.Cells(DerLigne, 1)
        .Cells(DerLigne, 56).Value = ActiveSheet.Name
        Cells(Target.Row, 1).Resize(i, 55).Copy .Cells(DerLigne, 1)
        '.Range("A" & .Columns(1).Cells.Count).End(xlUp) = Now
        Rows(Target.Row).Resize(i).Delete Shift:=xlUp
    End With
ElseIf Target.Column = 58 And LCase(Target.Value) = "x" Then
    With Sheets("Projets quitussables")
        i = Target.Offset(1, 0).Row - Target.Row
        DerLigne = .Cells(.Columns(1).Cells.Count, "D").End(xlUp).Row + 1
        ' Cells(Target.Row, 1).Resize(i, 55).Copy Destination:=.Cells(DerLigne, 1)
        .Cells(DerLigne, 56).Value = ActiveSheet.Name
        Cells(Target.Row, 1).Resize(i, 55).Copy .Cells(DerLigne, 1)
        '.Range("A" & .Columns(1).Cells.Count).End(xlUp) = Now
        Rows(Target.Row).Resize(i).Delete Shift:=xlUp
        End With
End If
'Sheets("Suivi des comptes").Cells(1, 1).Activate
End Sub

--
Cordialement,
Franck P

Discussions similaires

erreur 424 "objet requis" sous excel

Erreur 1004 - Erreur définie par l'application ou par l'objet

Erreur 1004 Erreur définie par l'application ou par l'objet

erreur 438

Erreur d'execution 91 sous Excel/VBA

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters