[] Coloriage sous Excel
Posté : mar. 22 juin 2021 23:04
Bonsoir tout le monde,
J'ai quelques lignes de programme qui me pose problème
Je n'arrive pas à colorier les cases "D" en bleu, rouge etc... selon les valeurs indiquées dans les cases.
Mes tests ne doivent pas être bon et je sèche...
D'avance merci
PS : Fichier Cal.xls joint mais visiblement je ne peux le mettre en cliquant sur fichiers joints ? Il fait 78Ko
J'ai quelques lignes de programme qui me pose problème
Code : Tout sélectionner
#include <Excel.au3>
#include <MsgBoxConstants.au3>
Local $oXL = _Excel_Open(False)
$oBook1 = _Excel_BookOpen($oXL,@ScriptDir & "\Cal.xls")
$NBrows = $oXL.Range("A1").CurrentRegion.Rows.Count
$ad2 = "E" & $NBrows
$array = $oXL.ActiveSheet.Range("A1",$ad2).Value ;On crée un "Array"
_ArrayTranspose($array)
; _ArrayDisplay($array,UBound($array) )
for $i = 5 to UBound($array) - 1
$k = 3
Switch $array[$i][$k]
Case "B"
$oBook1.ActiveSheet.Range("D"&$i).Interior.ColorIndex = 5
Case "V"
$oBook1.ActiveSheet.Range("D"&$i).Interior.ColorIndex = 4
Case "R"
$oBook1.ActiveSheet.Range("D"&$i).Interior.ColorIndex = 3
Case " "
$oBook1.ActiveSheet.Range("D"&$i).Interior.ColorIndex = 6
EndSwitch
Next
MsgBox($MB_SYSTEMMODAL, "Test Excel", "Cellule coloree")
_Excel_BookClose($oBook1,true)
_Excel_Close($oXL)
Mes tests ne doivent pas être bon et je sèche...
D'avance merci
PS : Fichier Cal.xls joint mais visiblement je ne peux le mettre en cliquant sur fichiers joints ? Il fait 78Ko