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!
Par contre, le code ci-dessous génère une erreur à cause de BedColumn = App...
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
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!
Code:
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...
Code:
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