Erreur d'exécution 1004 sur VBA
Résolu
Osmiate
-
Osmiate -
Osmiate -
Bonjour, après plusieurs recherches, je n'ai pas trouvé la solution à mon problème.
J'ai une feuille excel remplit de données et j'aimerai transposer ces données dans une autre feuille mais que si une certaine condition est respectée. En soit, j'ai une feuil1 où j'ai des données, plus précisément dans ma colonne A j'ai des code qui correspondent à un produit et dans les autres colonnes des informations concernant ce dernier. Ce que je voudrai, c'est que dans une autre feuille, quand je rentre un des code présent dans la feuil1 dans la colonne A les informations présentes dans la feuil1 soit directement copiées. J'ai tenté d'écrire un code VBA mais je rencontre une erreur 1004 et je n'arrive pas à résoudre mon problème. Ma feuille de code est la suivante :
Sub macro3()
Dim i As Integer
Dim j As Integer
Dim message As String
For i = 2 To 200
For j = 2 To 200
If Worksheets("Feuil1").Range("Ai") = Worksheets("Feuil2").Range("Aj") Then
Worksheets("Feuil1").Range(C, i).Copy
Worksheets("Feuil2").Range(C, j).Paste
Else
message = "Rien"
End If
Next
Next
End Sub
L'erreur 1004 provient de la ligne "If Worksheets("Feuil1").Range("Ai") = Worksheets("Feuil2").Range("Aj") Then"
Merci par avance de l'aide que vous pourrez m'apporter
Cordialement, Osmiate
J'ai une feuille excel remplit de données et j'aimerai transposer ces données dans une autre feuille mais que si une certaine condition est respectée. En soit, j'ai une feuil1 où j'ai des données, plus précisément dans ma colonne A j'ai des code qui correspondent à un produit et dans les autres colonnes des informations concernant ce dernier. Ce que je voudrai, c'est que dans une autre feuille, quand je rentre un des code présent dans la feuil1 dans la colonne A les informations présentes dans la feuil1 soit directement copiées. J'ai tenté d'écrire un code VBA mais je rencontre une erreur 1004 et je n'arrive pas à résoudre mon problème. Ma feuille de code est la suivante :
Sub macro3()
Dim i As Integer
Dim j As Integer
Dim message As String
For i = 2 To 200
For j = 2 To 200
If Worksheets("Feuil1").Range("Ai") = Worksheets("Feuil2").Range("Aj") Then
Worksheets("Feuil1").Range(C, i).Copy
Worksheets("Feuil2").Range(C, j).Paste
Else
message = "Rien"
End If
Next
Next
End Sub
L'erreur 1004 provient de la ligne "If Worksheets("Feuil1").Range("Ai") = Worksheets("Feuil2").Range("Aj") Then"
Merci par avance de l'aide que vous pourrez m'apporter
Cordialement, Osmiate
A voir également:
- Erreur d'exécution 1004 sur 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
- Erreur d'execution 13 vba ✓ - Forum VB / VBA
Je te remercie de ton aide, cela fonctionne à présent.
Cordialement