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.
A voir également:
- Problème erreur 424 VBA
- Incompatibilité de type vba ✓ - Forum Programmation
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
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
