Discussion :

[Darkangel2014]

Bonjour,

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

Cela bute sur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cela doit être une erreur de variable/ codage mais ne vois pas laquelle...
mais le code est fonctionnel sans activation de l'option explicite

cela vient de range BD et NB_Periods as integer

si je tente de mettre un set devant BD = PR_page.Range("C" & debut & ":" & "G" & fin), cela engendre une deuxième erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.List_Periods.List = BD

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

une petite aide serait sympa, merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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

merci par avance et bonne soirée

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim BD as range

'......
Set BD = PR_page.Range("C" & debut & ":" & "G" & fin)
  '......
me.list_periods.list=BD.Value

[Menhir]

A lire : https://docs.microsoft.com/fr-fr/off.../set-statement