[] Coloriage sous Excel

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Avatar du membre
Yle
Niveau 5
Niveau 5
Messages : 147
Enregistré le : mar. 21 avr. 2009 17:22
Localisation : La NORMANDIE -76
Status : Hors ligne

[] Coloriage sous Excel  

#1

Message par Yle »

Bonsoir tout le monde,

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)
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
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 919
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: [] Coloriage sous Excel

#2

Message par walkson »

Bonjours,
#include <Excel.au3>
#include <MsgBoxConstants.au3>

Local $oXL = _Excel_Open(True)
$oBook1 = _Excel_BookOpen($oXL,@ScriptDir & "\Cal.xls")

;$NBrows = $oXL.Range("A1").CurrentRegion.Rows.Count
;$ad2 = "E" & $NBrows

$array = $oXL.ActiveSheet.Range("A1").CurrentRegion.value   ; $oXL.ActiveSheet.Range("A1",$ad2).Value       ;On crée un "Array"
_ArrayTranspose($array)
  _ArrayDisplay($array,UBound($array) )

for $i = 0 to UBound($array) - 1
   $k = 3
   Switch $array[$i][$k]
      Case "B"
         $oXL.ActiveSheet.Range("D"&$i + 1).Interior.ColorIndex = 5
      Case "V"
         $oXL.ActiveSheet.Range("D"&$i + 1).Interior.ColorIndex = 4
      Case "R"
         $oXL.ActiveSheet.Range("D"&$i + 1).Interior.ColorIndex = 3
      Case ""
         $oXL.ActiveSheet.Range("D"&$i + 1).Interior.ColorIndex = 1
   EndSwitch
Next


;MsgBox($MB_SYSTEMMODAL, "Test Excel", "Cellule coloree")
;_Excel_BookClose($oBook1,true)
;_Excel_Close($oXL)
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Avatar du membre
Yle
Niveau 5
Niveau 5
Messages : 147
Enregistré le : mar. 21 avr. 2009 17:22
Localisation : La NORMANDIE -76
Status : Hors ligne

Re: [] Coloriage sous Excel

#3

Message par Yle »

Merci pour votre réponse mais mes cases en D7,D8... ne sont pas colorisées sauf si j'enlève le arraydisplay....
Résolu
Répondre