Problème avec Application.Evaluate

[sb_guido]

Bonjour à tous,

J'ai appris à utiliser la méthode Application.Evaluate pour permettre de calculer une formule directement à partir du VBEditor.

Quand j'écris ce code, tout est correct!

Dim BedColumn as Integer
Dim Availability As Integer
Dim RoomName As String
Dim RoomNumber as Name  'this is a Named Range from excel's Name Manager

BedColumn = 112
RoomName = RoomNumber.Name

Availability = Application.Evaluate("VLOOKUP(B14,DATA!A1:EW36," & BedColumn & ",FALSE)")

Par contre, le code ci-dessous génère une erreur à cause de BedColumn = App...

Dim BedColumn as Integer
Dim Availability As Integer
Dim RoomName As String
Dim RoomNumber as Name  'this is a Named Range from excel's Name Manager

RoomName = RoomNumber.Name

BedColumn = Application.Evaluate("VLOOKUP(" & RoomName & ",LIST!C5:D50,2,FALSE)")
Availability = Application.Evaluate("VLOOKUP(B14,DATA!A1:EW36," & BedColumn & ",FALSE)")

Le VLOOKUP du BedColumn fonctionne dans une feuille Excel, mais pas à l'intérieur de mon code. Je ne comprend tout simplement pas pourquoi le Availability fonctionne mais pas le BedColumn...

Merci à tous pour vos suggestions!

Sebastien

 

[sb_guido]

Re : Problème avec Application.Evaluate

Bonjour à tous,

le problème a été résolu grâce à frangy :

BedColumn = Application.Evaluate("VLOOKUP(""" & RoomName & """,LIST!C5:D50,2,FALSE)")

Merci à tous pour le dernier petit effort!



Staple1600: le MsgBox affiche effectivement 3. J'avais aussi essayé en tentant de reproduire ta procédure mais en vain...

 

[Compte Supprimé 979]

Re : Problème avec Application.Evaluate

Bonjour le fil

Sp_guido, tu n'as pas daigné répondre à mon message #12

je te signale juste comme ça au passage que ce code

BedColumn = Application.VLookup(RoomName, Sheets("List").Range("C5:D50"), 2, False)

fonctionne également et est plus facile à mettre en place, mais bon ...
​