Problème erreur 424 VBA
Doud
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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
