cs_tolt
Messages postés269Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention 4 avril 2019
-
6 avril 2008 à 16:53
cs_tolt
Messages postés269Date d'inscriptionmardi 17 décembre 2002StatutMembreDernière intervention 4 avril 2019
-
6 avril 2008 à 18:27
Bonjour,
Qui connait la solution pour à partir d'un programme VB6 colorier une cellule Excel comme le montre mon exemple ci-dessous avec une couleure personnalisée venant d'un MSFLEXGRID ?
With Selection.Interior
.ColorIndex = 16744703
.Pattern = 1
.PatternColorIndex = -4105
End With
Sinon si quelqu'un à déjà fait une fonction de transfert d'un MSFLEXGRID avec couleure etc...vers Excel
je suis preneur.
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013129 6 avril 2008 à 18:00
Salut,
Un petit bout de code que je me sers dans ce but, à toi d'adapter à ton cas :
On Error GoTo Erreur
Dim iFor1 As Integer
Dim iFor2 As Integer
Dim sText As String
Dim oExcel As Object
Dim iIndexLigne As Integer
Dim iIndexColonne As Integer
Set oExcel = CreateObject("excel.application")
If oExcel Is Nothing Then
Call MsgBox("Impossible d'exporter vers le format excel : Excel n'a pas été trouvé sur la machine.", vbOKOnly + vbExclamation, "Exportation impossible")