Option explicit => variable objet

Bonjour,

je viens d'activer l'option explicit afin de m'assurer que toutes mes variables soient bien définis mais bute déja dans les premières macros

Cela bute sur:

BD = PR_page.Range("C" & debut & ":" & "G" & fin)

cela doit être une erreur de variable/ codage mais ne vois pas laquelle...

mais le code etait fonctionnel avant activation de l'option explicite

cela vient de range BD et NB_Periods as integer

une petite aide serait sympa,

merci

Private Sub Project_Reporting()
Dim Trouve_Periods As Range, PlageDeRecherche As Range, BD As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
Dim debut As Long, fin As Long
Dim d As Object
Dim Project_Range As Integer, nb_Periods As Integer
Dim PR_page As Worksheet

Set PR_page = Sheets("Reporting")
Set d = CreateObject("Scripting.Dictionary")

Project_Range = Application.Match(Id_Project, Worksheets("Projects").Range("A:A"), 0)
ProjectStart = Worksheets("Projects").Range("A:M")(Project_Range, 9)
ProjectEnd = Worksheets("Projects").Range("A:M")(Project_Range, 12)

Valeur_Cherchee = Id_Project
Set PlageDeRecherche = PR_page.Columns(1)
Set Trouve_Periods = PlageDeRecherche.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

If Not Trouve_Periods Is Nothing Then
    debut = Trouve_Periods.Row
    nb_Periods = Application.WorksheetFunction.CountIf(PR_page.Range("A:A"), Id_Project) - 1
    If (nb_Periods <> 0) Then
    fin = debut + nb_Periods
     BD = PR_page.Range("C" & debut & ":" & "G" & fin)
End If
  Me.List_Periods.List = BD
  ColVisu = Array(3, 4, 5, 6, 7)
  Me.List_Periods.ColumnCount = 5
  Me.List_Periods.ColumnWidths = "110;40;70;40;50"
End If

End Sub

Bonjour,

Teste en modifiant avec cette ligne

 Set BD = PR_page.Range("C" & debut & ":" & "G" & fin)

Bonjour et merci pour votre retour M12

Cela répond effectivement au problème posé mais engendre le suivant deux lignes plus loin:

Me.List_Periods.List = BD

cela me dit désormais impossible de définir la propriété liste