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
| For Each comtextplage In Comment_Plage 'Comment_Plage est une collection de plage de cellule contenant des valeurs
Set cdp = Range(Commentaire_Data_Plage.item(complage_index))
c_index = 0
Dim comment As LROComment 'LROComment est un type de commentaire en Essbase
Dim ciblecol As Collection
For Each point_cell In cdp.Cells 'Je parcours la liste des cellules de la plage en cours du For each
c_index = c_index + 1
If point_cell.Value <> " " Then 'Je vérifie si la valeur n'est pas un espace (valeur fixé comme telle)
Set ciblecol = New Collection
Set comment = New LROComment
Set ctp = Range(comtextplage) 'Je récupère la plage
If IsInRange(Range(Plage.item(1)), point_cell) Then 'IsInRange permet de vérifier si point_cell fait partie de la plage Plage.item(1)
Call GetDataPoint(Plage.item(1), point_cell, ciblecol) 'Récupère la valeur nécessaire pour essbase
comment_text = ctp.Cells.Value
Call comment.SetupComment()
If comment.comment_text <> "" Then
Commentaire.Add item:=comment
End If
End If
End If
Next point_cell
complage_index = complage_index + 1
Next comtextplage |
Partager