[VB.NET] Couleur des cellules d'un fichier Excel dans un Array

BobyCode Messages postés 9 Statut Membre -  
pijaku Messages postés 13513 Statut Modérateur -
Bonjour,

J'ai exporter les valeurs des cellules d'un tableau excel dans un array : 

Dim ExcelRangeArray(0, 0) As Object
Dim ExcelRangeArrayColor(0, 0) As Object
ExcelRangeArray = xl1.Range("A1:" & lastCellule & "").Value



Ce que je voudrais maintenant c'est récupérer la couleur de la cellule (ex: Interior.Color) et le mettre dans un array comme précedemment.
J'ai essayé cela : 

ExcelRangeArrayColor = xl1.Range("A1:" & lastCellule & "").Interior.ColorIndex

mais cela ne marche pas


Merci pour votre aide
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

En bouclant peut être? 

For i = 1 To 40
  ExcelRangeArrayColor(i) = xl1.Range("A" & i).Interior.ColorIndex
Next


🎼 Cordialement,
Franck 🎶
0
BobyCode Messages postés 9 Statut Membre
 
Cela ne semble pas fonctionner
Exception de HRESULT : 0x800A03EC
0
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,

Tentez en remplaçant Range par Cells et adaptez votre code avec votre tableau à deux dimensions: 

For i = 1 To 40
  ExcelRangeArrayColor(i) = xl1.Cells(i, 1).Interior.ColorIndex
Next
0