Sujet Précédent Sujet Suivant

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

Fermé
BobyCode Messages postés 9 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 4 novembre 2014 - 31 oct. 2014 à 15:29
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 3 nov. 2014 à 07:57
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 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 31/10/2014 à 15:36
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 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 4 novembre 2014
Modifié par BobyCode le 31/10/2014 à 15:59
Cela ne semble pas fonctionner
Exception de HRESULT : 0x800A03EC
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
3 nov. 2014 à 07:57
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