Demande aide sur la compréhension d’une fonction [Résolu/Fermé]

Bonjour,

Je n’arrive pas à comprendre le fonctionnement du code si dessous et donc de pouvoir trouver un remède, car lorsque j’utilise ma variable l_nblig dans une autre procédure, elle est à 0 et donc ma procédure ne fonctionne pas.

Je m’explique,

Je lance ma procédure, le code si dessous,

Tous se passe bien, mais la séquence se termine presque toujours après le code SET même si je supprime la ligne On Error GoTo fin et fin : ?

Donc les lignes l_nblig = Int(PixH) et l_nbcol = Int(PixW) ne sont pas exécutées ?

Procédure dans module 1,

Option Explicit
'*** ajout 2015 ****

Public seuil_Luminance As Long
Public l_nblig As Long, l_nbcol As Long

Procédure dans module 2,

Function GetPointsImage(Ctrl As MSForms.Control, Quadrillage As Boolean) As Range

    Dim col&, Lgn&
    Dim cHDC&, PixW!, PixH!
    Dim Tabl() As Long
    
    On Error GoTo fin 
     
    cHDC = DCCtrl(Ctrl)
    With Ctrl
        PixW = PointsToPixels(.Width)
        PixH = PointsToPixels(.Height)
    End With
    
    ReDim Tabl(1 To Int(PixH), 1 To Int(PixW))
    For Lgn = 1 To UBound(Tabl)
        For col = 1 To UBound(Tabl, 2)
            Tabl(Lgn, col) = GetPixel(cHDC, col, Lgn)
        Next col
    Next Lgn
   
    Set GetPointsImage = Tapisse(Tabl, Quadrillage)
 
    '***ajout 2015***
    l_nblig = Int(PixH)
    l_nbcol = Int(PixW)
    '***********
fin:

End Function

Merci de l'aide

Bien cordialement