Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Erreur sur .formula

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
703
Réponses
9
Affichages
256
Réponses
2
Affichages
668
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…