XL 2010 Erreur sur .formula

Jauster

XLDnaute Occasionnel
Bonjour,

Je rencontre une erreur dans mon code VBA qui suit :

VB:
Sub MEPListing()
Dim DernLigne As Long, DernColonne As Integer

With Worksheets("MAJ")
    DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  
    DernColonne = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
With .Range("A1:A" & DernLigne)
            .Formula = "=VLOOKUP(C1,$H1:$I9,2,0)"
            .Value = .Value
End With
End With
End Sub

Et je ne vois pas ce qui pose problème.

La macro s’arrête à la ligne .formula avec une erreur 1004

PS : Ma variable DernColonne me servira par la suite, c'est pour cela qu'elle se retrouve dans ce code
Merci
 

thebenoit59

XLDnaute Accro
Bonjour Jauster.
Quelle est la valeur de DernLigne au moment de l'erreur ?

Essaye ainsi :
VB:
With Worksheets("MAJ")
    DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
    DernColonne = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column

With .Range("A1:A" & DernLigne)
            .Formula = "=VLOOKUP(C1,$H1:$I9,2,0)"
            .Value = .Value
End With
End With
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40