XL 2019 en VBA: impossible récupérer valeur d'une cellule en ayant le numero de ligne et de colonne ds variables

[donpopo]

Bonjour le forum,

dans une procédure, j'ai réussi à obtenir le numéro de ligne et le numéro de colonne d'une valeur que je désire récupérer.
J'ai mis un msgbox m'affichant le N° ligne et colonne et c'est exact.
Mais lorsque j’essaie d'attribuer la valeur reprise dans cette cellule, rien ne s'affiche.

Voici le bout de code incriminé:

        Ref_Cherchee = Sheets("Locataires").Cells(NUMERO_LIGNE_LOC, 18)
        Nr_Bail = Ref_Cherchee
        Set trouve_Nr_Ligne = Sheets("Indexations").Range("B1:B500").Find(Nr_Bail, LookIn:=xlValues)
        Lign_Bail = trouve_Nr_Ligne.Row
        Lign_Loyer = Lign_Bail + 2
        Der_Col_Loyer = Sheets("Indexations").Cells(Lign_Loyer, Cells.Columns.Count).End(xlToLeft).Column
        MsgBox Lign_Loyer & "   " & Der_Col_Loyer
        Loyer_Impaye = Sheets("Indexations").Cells(Lign_Loyer, Der_Col_Loyer).Value
        MsgBox Loyer_Impayé

Le msgbox Loyer_Impaye me donne une valeur nulle alors que dans cette cellule, un nombre est présent.

Quelqu'un aurait-il une idée?
Merci d'avance
donpopo

 

[pierrejean]

Bonjour
Ote l'accent de MsgBox Loyer_Impayé

 

[donpopo]

Bonjour pierrejean,
Pour une bourde, c'est une bourde.
A+ Merci

 

[Dranreb]

Bonjour.
Une suggestion: commencez vos modules par Option Explicit et déclarez toutes vos variables. Ça peut paraître contraignant de prime abord, mais si vous le faisiez, vous verriez que ça paye, car vous en auriez été payé de retour depuis une paie !