Erreur 1004 vba auto fill

Version imprimable

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 :
Code:

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
J'ai effectué beaucoup de recherche ces derniers jours sans jamais trouver la solution.

Pourriez vous m'indiquer où se situe mon erreur s'il vous plait ?

Merci pour votre aide et votre retour.

Cordialement,

10/02/2017, 11h40
Menhir
Citation:

Envoyé par Swednoss

J'ai effectué beaucoup de recherche ces derniers jours sans jamais trouver la solution.

Au cours de tes recherches, as-tu regardé le contenu de la variable DernLigne ? Et si c'est le cas, pourrais-tu nous faire part du résultat ?
Citation:
Code:

1 2 3 4 Set d = ThisWorkbook.Sheets("UPR").Range("M2") DernLigne = Range("M" & Rows.Count).End(xlUp).Row With Sheets("UPR")
Pourquoi avoir pris la peine de précéder Sheets("UPR") de ThisWorkbook dans l'assignation de "d" et ne pas l'avoir fait dans le With ?

Essaye :

Code:

With ThisWorkbook.Sheets("UPR")

Citation:

Code:

.Range("M2").AutoFill Destination:=.Range("M2:M" & DernLigne)

Perso, j'aurais plutôt écrit :

Code:

.Range("M2").Copy .Range("M2:M" & DernLigne)

Mais c'est juste une question de goût.

Citation:

Envoyé par Swednoss

Bonjour,

Il vaudrait mieux tester la dernière ligne sur une autre colonne que la colonne M.
Il faut ajouter le nom de l'onglet dans la destination de Autofill.

Le code ci-dessous fonctionne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub EDS()
 
Dim d As Range
Dim DernLigne As Long
 
    With Sheets("UPR")
        DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
        Set d = .Range("M2")
        With 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""))"
             d.AutoFill Destination:=Sheets("UPR").Range("M2:M" & DernLigne)
        End With
        Set d = Nothing
    End With
 
End Sub

10/02/2017, 11h49
Swednoss

Merci Eric.
Votre solution fonctionne parfaitement.
Je n'avais pas pensé à étirer la formule au lieu de la cellule.