Macro valide qui ne marche plus

Bonjour,

J'ai un souci de macro, je ne comprends absolument pas ce qu'il se passe. J'ai créée une macro qui a pour but d'importer des données d'un fichier à un autre. Elle marchait très bien jusqu'à présent, et là, plus rien. Elle bug apparemment au niveau de la ligne surlignée ci-dessous. Si vous pouviez m'aider..

Merci

Sub ImporterAttributs()
Dim i As Integer
Dim j As Integer
Dim LastRowA As Integer
Dim LastRowS As Integer

LastRowA = ThisWorkbook.Worksheets("Actuel").Range("A65536").End(xlUp).Row

Application.Workbooks.Open "C:\Users\mnino\Desktop\POST_SV3.xlsx"

LastRowS = Workbooks("POST_SV3").Worksheets("PROD + Pré-renta").Range("A65536").End(xlUp).Row

For i = 5 To LastRowA
    For j = 3 To LastRowS
    If ThisWorkbook.Sheets("Actuel").Cells(i, 4).Value = Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Cells(j, 2).Value Then      

            'Type of Products
            Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Activate
            Cells(j, 1).Select
            Selection.Copy
            ThisWorkbook.Sheets("Actuel").Activate
            Cells(i, 5).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

            'Item Name
            Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Activate
            Cells(j, 3).Select
            Selection.Copy
            ThisWorkbook.Sheets("Actuel").Activate
            Cells(i, 6).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

        Exit For

        End If
    Next j
Next i

End Sub

Bonjour,

Es-tu certain de n'avoir pas modifié quelque chose dans tes feuilles ?

Quel est le message d'erreur et la ligne surlignée (jaune) dans VBE ?

Et quelles valeurs ont I et J au moment de l'erreur ?

Cdlt.

Bonjour Jean-Eric,

Merci pour ta réponse rapide !

Sur ma feuille contenant ma macro, je n'ai absolument rien modifié. Sur le fichier Excel "source", ce n'est pas moi qui le gère dc pas de certitude, mais j'ai regardé et je n'ai rien vu.

Erreur d'exécution 13 : Incompatibilité de type. La ligne surlignée jaune dans VBE correspond à celle que j'ai également surlignée dans le code que j'ai mis ci-dessus.

Quels moyens ai-je de savoir les valeurs de i et j au moment de l'erreur ?

Re,

Tu survoles à la souris les variables I et J quand ton code est surligné.

Tu verras ainsi ou en est la boucle et ainsi peut-être déterminer le problème.

Cdlt.


Re,

Tu peux aussi modifier la déclaration de tes variables Integer en Long (pas vu précédemment )

Cdlt.

J'ai trouvé la ligne où ça bloquait, et j'ai compris pourquoi ! C'est réglé !

Merci beaucoup pour l'aide

Rechercher des sujets similaires à "macro valide qui marche"