Chnager la couleur d'une cellule dans un spreadsheet
funwave67
Messages postés
1
Date d'inscription
jeudi 22 novembre 2007
Statut
Membre
Dernière intervention
4 mars 2008
-
4 mars 2008 à 13:06
cs_dahbia Messages postés 33 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 4 février 2015 - 16 sept. 2008 à 13:30
cs_dahbia Messages postés 33 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 4 février 2015 - 16 sept. 2008 à 13:30
A voir également:
- Chnager la couleur d'une cellule dans un spreadsheet
- Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic 6
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
- Vba coller valeur cellule sur une autre cellule avec variable ✓ - Forum Visual Basic 6
- Vba couleur cellule ✓ - Forum VB.NET
- Inverser couleur photoshop - Forum Visual Basic
1 réponse
cs_dahbia
Messages postés
33
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
4 février 2015
16 sept. 2008 à 13:30
16 sept. 2008 à 13:30
Bonjour,
J'espere que ce petit code va te permetre de trouver ce que tu veux.
Private Sub Command1_Click()
With Spreadsheet1
.ToolTipText = "Feuille excel pour l'exporter ,cliquez sur l'icon d'excel et le tour est joué"
.ActiveSheet.ConnectionString = cnx.ConnectionString
.ActiveSheet.CommandText = "SELECT * from apps.AT_MAJ_RAP_BQE"
.DisplayTitleBar = True
.TitleBar.Font.Name = "Garamond" 'Style d'ecriture
.TitleBar.Font.Size = 12 'Taille
.ActiveWindow.DisplayGridlines = True
.TitleBar.Caption = Me.Caption
.TitleBar.Interior.ColorIndex = 12
.Rows(1).Font.Bold = False
End With
Dim rngCurrentRow
For Each rngCurrentRow In Spreadsheet1.Cells(1, 1).CurrentRegion.Rows
If rngCurrentRow.Row Mod 2 = 0 Then
rngCurrentRow.Interior.Color = "Lightcyan" ' Couleur de ligne
rngCurrentRow.Font.Bold = True
End If
Next
Spreadsheet1.ActiveSheet.ConnectionString = ""
Spreadsheet1.ActiveSheet.CommandText = ""
End Sub
Merci.
J'espere que ce petit code va te permetre de trouver ce que tu veux.
Private Sub Command1_Click()
With Spreadsheet1
.ToolTipText = "Feuille excel pour l'exporter ,cliquez sur l'icon d'excel et le tour est joué"
.ActiveSheet.ConnectionString = cnx.ConnectionString
.ActiveSheet.CommandText = "SELECT * from apps.AT_MAJ_RAP_BQE"
.DisplayTitleBar = True
.TitleBar.Font.Name = "Garamond" 'Style d'ecriture
.TitleBar.Font.Size = 12 'Taille
.ActiveWindow.DisplayGridlines = True
.TitleBar.Caption = Me.Caption
.TitleBar.Interior.ColorIndex = 12
.Rows(1).Font.Bold = False
End With
Dim rngCurrentRow
For Each rngCurrentRow In Spreadsheet1.Cells(1, 1).CurrentRegion.Rows
If rngCurrentRow.Row Mod 2 = 0 Then
rngCurrentRow.Interior.Color = "Lightcyan" ' Couleur de ligne
rngCurrentRow.Font.Bold = True
End If
Next
Spreadsheet1.ActiveSheet.ConnectionString = ""
Spreadsheet1.ActiveSheet.CommandText = ""
End Sub
Merci.
