bonjour,

je tente de mettre en place un macro de récupération de donnée en mode explicite mais rencontre des soucis avec une incompatibilité de type mais j'ai un doute pour Recap_period_Start, PStart en déclaration de variable
il faut savoir que je cherche ici a récupérer les lignes concernées contenant Y en colonne 8 puis d'autres à terme mais je voudrais avoir plusieurs array start / end etc

si je tente un msgbox de de Pstart dans le for cela fonctionne mais c'est au niveau de l'array que cela semble avoir un souci
fin => ligne de fin
i => ligne detectée si start ou end
Pstart => array des i start détectés

dans mon test Pstart détecte 103 et 126

aussi je ne vois pas pourquoi
Recap_period_Start = Join(PStart, ", ")
MsgBox (Recap_period_Start)

Aussi je voudrais voir avec recap_period_start 103,126

une idée svp?
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
 
Private Sub Mail_Recap()
Dim Rep_page, WP_page, Prj_page As Worksheet
Dim Fin_Rep, i As Integer
Dim Recap_period_Start, PStart, PEnd As String
 
il faut récupérer les données pour périodes, WP, projets, deliverables
Set Rep_page = Worksheets("Reporting")
Set WP_page = Worksheets("Work-Packages")
Set Prj_page = Worksheets("Projects")
 
Fin_Rep = Rep_page.Range("A" & Rows.Count).End(xlUp).Row
For i = 0 To Fin_Rep
i = i + 1
 
If (Rep_page.Cells(i, 8) = "Y") Then
PStart = Application.Transpose(i)
End If
 
If (Rep_page.Cells(i, 9) = "Y") Then
PEnd = Application.Transpose(i)
End If
 
Next
 
Recap_period_Start = Join(PStart, ", ")
MsgBox (Recap_period_Start)