TRAVAILLER SOUS EXCEL A PARTIR DE VB VER : 1.0.5

' Une des fonctions ... ;-)
Private Sub cmdValeur_Click()
    ' si il n'y a pas encore de Document en cree un
    If AppExcel.Workbooks.Count = 0 Then
        AppExcel.Workbooks.Add
    End If

    With AppExcel.Worksheets(1).Cells(vsbCell.Value, hsbCell.Value)
        .Value = txtValue.Text
        ' mets en gras
        .Font.Bold = chkBold.Value

        ' mets en couleur.

        ' ATTENTION :
        '   Excel utilise une palette de couleur.
        '   La palette comporte 56 entrées, chacune représentée par une valeur RGB.
        '     (RGB : Rouge Vert Bleu.)
        '  3 méthodes différentes pour définir la palette.
        AppExcel.ActiveWorkbook.Colors(1) = RGB(0, 255, 140) ' la construction RGB
        AppExcel.ActiveWorkbook.Colors(2) = &H707000 ' la Valeur Hexadécimale
        AppExcel.ActiveWorkbook.Colors(3) = vbBlue ' la Constante VB

        ' ensuite on attribue l'index d'une couleur à la cellule
        .Font.ColorIndex = 0
        If optColor(0).Value Then .Font.ColorIndex = 1
        If optColor(1).Value Then .Font.ColorIndex = 2
        If optColor(2).Value Then .Font.ColorIndex = 3
    End With
End Sub

Télécharger le zip