Bonjour Messieurs,
Je travaille actuellement sur des macros VBA pour Excel.
Toute ma macro se déroule plutot bien jusqu'à un certain point. Je dois étirer sur un nombre variable de ligne (changeant chaque jour) une formule.
Mais j'obtiens constamment une erreur de VBA : Erreur d'exécution '1004' : La méthode AutoFill de la classe Range a échoué.
Voici mon code :
J'ai effectué beaucoup de recherche ces derniers jours sans jamais trouver la solution.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub EDS() Dim d As Range Dim DernLigne As Long Set d = ThisWorkbook.Sheets("UPR").Range("M2") DernLigne = Range("M" & Rows.Count).End(xlUp).Row With Sheets("UPR") d.Formula = "=IF(ISNA(VLOOKUP(" & d.Offset(0, -1).Address(False, False) & ",Correspondance!A$1:C$26,2,""faux"")),"""",VLOOKUP(" & d.Offset(0, -1).Address(False, False) & ",Correspondance!A$1:C$26,2,""faux""))" .Range("M2").AutoFill Destination:=.Range("M2:M" & DernLigne) End With End Sub
Pourriez vous m'indiquer où se situe mon erreur s'il vous plait ?
Merci pour votre aide et votre retour.
Cordialement,
Partager