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

BobyCode Messages postés 9 Statut Membre -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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

1 réponse

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    En bouclant peut être?

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


    🎼 Cordialement,
    Franck 🎶
    0
    1. BobyCode Messages postés 9 Statut Membre
       
      Cela ne semble pas fonctionner
      Exception de HRESULT : 0x800A03EC
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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