Vb->Excel couleur "cells" ?
cs_Cavo
Messages postés
9
Date d'inscription
lundi 1 juillet 2002
Statut
Membre
Dernière intervention
20 septembre 2002
-
1 juil. 2002 à 11:07
cs_Cavo Messages postés 9 Date d'inscription lundi 1 juillet 2002 Statut Membre Dernière intervention 20 septembre 2002 - 1 juil. 2002 à 13:23
cs_Cavo Messages postés 9 Date d'inscription lundi 1 juillet 2002 Statut Membre Dernière intervention 20 septembre 2002 - 1 juil. 2002 à 13:23
A voir également:
- Vb->Excel couleur "cells" ?
- Vb net excel interior color ✓ - Forum Visual Basic
- Inverser couleur photoshop ✓ - Forum Graphisme/design
- Couleur fluo - Forum Graphisme/design
- Code couleur excel - Forum Visual Basic
- Arctan excel ✓ - Forum Visual Basic 6
3 réponses
cs_Cavo
Messages postés
9
Date d'inscription
lundi 1 juillet 2002
Statut
Membre
Dernière intervention
20 septembre 2002
1 juil. 2002 à 11:29
1 juil. 2002 à 11:29
-------------------------------
Réponse au message :
-------------------------------
J'aimerais pouvoir modifier la couleur des cellules d'une feuille excel: voici mes sources
Dim Ex As New excel.Application
'Initialisation de l'objet
Set Ex = New excel.Application
'Ouverture du modèle Excel (modèle.xlt)
Ex.Workbooks.Add Modèle
'Remplissage des cellules fixes
Ex.Cells(1, 1) = "Date de la demande : " & Lbl_date_demande.Caption & "" 'Met une valeur dans la cellule B2
Ex.Cells(2, 1) = "Nom et Prénom du demandeur : " & Cbo_demandeur.text & " "
Ex.Cells(3, 1) = "Service : " & Demandeur_N(Cbo_demandeur.ListIndex).service & ""
Ex.Cells(4, 1) = "C.I. : " & Demandeur_N(Cbo_demandeur.ListIndex).CI & ""
Ex.Cells(5, 1) = "Besoin en vacataire du " & Lbl_début & " Au " & Lbl_fin & ""
'Remplissage du tableau excel
nbre = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.SelectionMode = flexSelectionFree
Z = 2
For X = 1 To nbre
MSHFlexGrid1.Row = X
MSHFlexGrid1.RowSel = X
Ex.Cells((X + 7), (1)) = MSHFlexGrid1.TextMatrix(X, 0)
Ex.Cells((X + 7), (2)) = MSHFlexGrid1.TextMatrix(X, 1)
For Y = 2 To 8
MSHFlexGrid1.Col = Y
MSHFlexGrid1.ColSel = Y
If Y > 2 Then
Ex.Cells((X + 7), ((Y * 2) - 1)) = MSHFlexGrid1.TextMatrix(X, Y)
Else
Ex.Cells((X + 7), (Y + 1)) = MSHFlexGrid1.TextMatrix(X, Y)
End If
Next
Next
'Mise en couleur des cellules
'Affichage de l'objet excel :
Ex.Visible = True
'Impression du fichier excel :
'Ex.ActiveSheet.PrintOut [1]
'Fermeture de l'objet excel :
On Error Resume Next
Ex.Workbooks.Close
Réponse au message :
-------------------------------
J'aimerais pouvoir modifier la couleur des cellules d'une feuille excel: voici mes sources
Dim Ex As New excel.Application
'Initialisation de l'objet
Set Ex = New excel.Application
'Ouverture du modèle Excel (modèle.xlt)
Ex.Workbooks.Add Modèle
'Remplissage des cellules fixes
Ex.Cells(1, 1) = "Date de la demande : " & Lbl_date_demande.Caption & "" 'Met une valeur dans la cellule B2
Ex.Cells(2, 1) = "Nom et Prénom du demandeur : " & Cbo_demandeur.text & " "
Ex.Cells(3, 1) = "Service : " & Demandeur_N(Cbo_demandeur.ListIndex).service & ""
Ex.Cells(4, 1) = "C.I. : " & Demandeur_N(Cbo_demandeur.ListIndex).CI & ""
Ex.Cells(5, 1) = "Besoin en vacataire du " & Lbl_début & " Au " & Lbl_fin & ""
'Remplissage du tableau excel
nbre = MSHFlexGrid1.Rows - 1
MSHFlexGrid1.SelectionMode = flexSelectionFree
Z = 2
For X = 1 To nbre
MSHFlexGrid1.Row = X
MSHFlexGrid1.RowSel = X
Ex.Cells((X + 7), (1)) = MSHFlexGrid1.TextMatrix(X, 0)
Ex.Cells((X + 7), (2)) = MSHFlexGrid1.TextMatrix(X, 1)
For Y = 2 To 8
MSHFlexGrid1.Col = Y
MSHFlexGrid1.ColSel = Y
If Y > 2 Then
Ex.Cells((X + 7), ((Y * 2) - 1)) = MSHFlexGrid1.TextMatrix(X, Y)
Else
Ex.Cells((X + 7), (Y + 1)) = MSHFlexGrid1.TextMatrix(X, Y)
End If
Next
Next
'Mise en couleur des cellules
'Affichage de l'objet excel :
Ex.Visible = True
'Impression du fichier excel :
'Ex.ActiveSheet.PrintOut [1]
'Fermeture de l'objet excel :
On Error Resume Next
Ex.Workbooks.Close
nariel1
Messages postés
55
Date d'inscription
mardi 21 mai 2002
Statut
Membre
Dernière intervention
6 mai 2009
1 juil. 2002 à 11:30
1 juil. 2002 à 11:30
wolla
For X = 1 To nbre
Ex.Cells((X + 7).Font.Color = RGB(191, 0, 191)
next
nariel1
For X = 1 To nbre
Ex.Cells((X + 7).Font.Color = RGB(191, 0, 191)
next
nariel1
cs_Cavo
Messages postés
9
Date d'inscription
lundi 1 juillet 2002
Statut
Membre
Dernière intervention
20 septembre 2002
1 juil. 2002 à 13:23
1 juil. 2002 à 13:23
ça fonctionne, mais j'aimerais pouvoir changer la couleur de font d'une cellule
