Macro valide qui ne marche plus.. Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
mayou
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 29 janvier 2016
Version d'Excel : 2013

Message par mayou » 15 février 2016, 11:44

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
    [surligner]If ThisWorkbook.Sheets("Actuel").Cells(i, 4).Value = Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Cells(j, 2).Value Then[/surligner]      
         
            '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

Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'113
Appréciations reçues : 491
Inscrit le : 27 août 2012
Version d'Excel : O365 32 bits

Message par Jean-Eric » 15 février 2016, 11:51

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.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
m
mayou
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 29 janvier 2016
Version d'Excel : 2013

Message par mayou » 15 février 2016, 11:56

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 ?
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'113
Appréciations reçues : 491
Inscrit le : 27 août 2012
Version d'Excel : O365 32 bits

Message par Jean-Eric » 15 février 2016, 12:18

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 :oops: )
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
m
mayou
Jeune membre
Jeune membre
Messages : 27
Inscrit le : 29 janvier 2016
Version d'Excel : 2013

Message par mayou » 15 février 2016, 12:51

J'ai trouvé la ligne où ça bloquait, et j'ai compris pourquoi ! C'est réglé !
Merci beaucoup pour l'aide :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message