Problème erreur 424 VBA Fermé

Question

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.

totodunet · Answer

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.

ccm81 · Answer

bonjour 

1. il y a un pb à cette ligne 
If Target.Column = 4 Thenla 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

Problème erreur 424 VBA

2 réponses

Discussions similaires