Discussion :

[Swednoss]

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 :

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

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,

[Menhir]

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 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

With ThisWorkbook.Sheets("UPR")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Perso, j'aurais plutôt écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Swednoss]

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