Bonjour à tous,
Je bloque sur ce qui doit être un problème d'écriture et j'aurai besoin de votre aide.
J'ai une macro où je crée une plage spécifique (qui contient le mot essence), et je veux l'utiliser pour créer une formule de recherchev
Dim maplage As Range
Dim a As Integer
a = WorksheetFunction.CountIf(Range(Range("A2"), Range("A2").End(xlDown)), "*essence*")
Range(Range("A2"), Range("A2").End(xlDown)).Find("*essence*").Select
Set maplage = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(a - 1, 2))
maplage.Select
Utiliser cette sélection dans une formule
Range("G2").Formula = "=VLOOKUP(B2," & maplage & ",2,TRUE)"
et là j'ai une erreur d'exécution 13, incompatibilité de type
Est ce que vous sauriez pourquoi svp ? Là je vois pas ?
Merci
Je bloque sur ce qui doit être un problème d'écriture et j'aurai besoin de votre aide.
J'ai une macro où je crée une plage spécifique (qui contient le mot essence), et je veux l'utiliser pour créer une formule de recherchev
Dim maplage As Range
Dim a As Integer
a = WorksheetFunction.CountIf(Range(Range("A2"), Range("A2").End(xlDown)), "*essence*")
Range(Range("A2"), Range("A2").End(xlDown)).Find("*essence*").Select
Set maplage = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(a - 1, 2))
maplage.Select
Utiliser cette sélection dans une formule
Range("G2").Formula = "=VLOOKUP(B2," & maplage & ",2,TRUE)"
et là j'ai une erreur d'exécution 13, incompatibilité de type
Est ce que vous sauriez pourquoi svp ? Là je vois pas ?
Merci