Problème erreur 424 VBA

Fermé

Doud - 27 juil. 2012 à 12:14
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 27 juil. 2012 à 15:24

Bonjour,

Ce code ne fonctionne pas, il m'indique : erreur 424

Sub Macro4()
Dim i As Integer
If Target.Column = 4 Then
For i = 9 To 300

Range("D" & i).Select
Selection.Copy
Sheets("SYNTHESE RELANCE").Select
Range("P" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next i
End If

End Sub

Savez-vous d'ou cela vient ?

Merci d'avance.

A voir également:

Problème erreur 424 VBA
Erreur 0x80070643 - Guide
Iptv erreur de lecture - Forum TV & Vidéo
Erreur 1004 vba ✓ - Forum Excel
Vba erreur automation référence future non valide ✓ - Forum Word
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

totodunet Messages postés 1377 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 5 mars 2020 199
27 juil. 2012 à 14:41

c'est pour du excel à ce que je vois. est-ce que tu peux mettre des commentaires sur les lignes de code, ça nous aiderait à savoir quelles sont tes intentions ? Une erreur 424 est liée à un problème d'objet normalement. tu as mis dans ton code des objets qui n'existent pas ou qui ne sont pas pris en charge par la version VBA que tu utilises.

Réponse 2 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par ccm81 le 27/07/2012 à 15:42

bonjour

1. il y a un pb à cette ligne

If Target.Column = 4 Then

la cellule (?) Target n'est pas connue

2. pourquoi ne pas faire plus simple puisque tu ne veux copier que les valeurs

Sub Macro4() 
Dim i As Integer 
If Target.Column = 4 Then 
For i = 9 To 300 
  Sheets("SYNTHESE RELANCE").Range("P" & i).Value = Sheets("autre feuille").Range("D" & i).Value 
Next i 
End If 
End Sub

bonne suite

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

"L'indice n'appartient à la sélection" + VBA

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters