Feuille de calcul dans VB6Résolu

Question

Peut-on créer une feuille de calcul dans VB6 dans laquelle on peut faire des opérations comme une somme de cellule, etc... sans passer par Excel?

cs_MPi · Accepted Answer

Oui, mais ça ne sera pas simple...
Tu pourrais commencer avec une FlexGrid (nommée Grid1) pas trop grande, disons 5 colonnes et 5 lignes, sans FixedCols ou FixedRows

Et faire ce petit test

Private Sub Grid1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 47 And KeyAscii < 58 Then  'accepte que les chiffres
        With Grid1
            .TextMatrix(.RowSel, .ColSel) = CLng(.TextMatrix(.RowSel, .ColSel) & Chr(KeyAscii))
        End With
    End If
End Sub

Private Sub Grid1_LeaveCell()  'lorsqu'on sort d'une cellule on calcule cette colonne
    Dim I As Integer, Total As Integer
    Dim Colonne
    
    Colonne = Grid1.Col
    For I = 0 To 3  'addition des 4 premières lignes
        If Grid1.TextMatrix(I, Colonne) = "" Then  'mettre 0 pour éviter les erreurs
            Grid1.TextMatrix(I, Colonne) = 0
        End If
        Total = Total + Grid1.TextMatrix(I, Colonne)
    Next
    
    Grid1.TextMatrix(4, Colonne) = Total  'inscrit le total sur la dernière ligne
End Sub

Je ne me suis occupé qu'à faire une simple addition.
Si tu veux rendre la chose plus complexe, il te faudra insérer des menus, des choix ou des boutons et j'en passe...

MPi

cs_Tornero · Answer

Merci MPI pour ta réponse si rapide, cela m'a aidé, je pensais qu'on pouvait utiliser les fonctions toute faites comme Sum et autres en sélectionnant les cellules, ce ne doit pas être possible. A +

Feuille de calcul dans VB6

2 réponses

Votre réponse

Discussions similaires