Problème erreur 424 VBA
Doud
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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.
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.
2 réponses
-
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.
-
bonjour
1. il y a un pb à cette ligneIf 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
