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 ligne
2. pourquoi ne pas faire plus simple puisque tu ne veux copier que les valeurs
bonne suite
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
