Travailler sous excel a partir de vb ver : 1.0.5

Soyez le premier à donner votre avis sur cette source.

Vue 19 410 fois - Téléchargée 1 218 fois

Description

Cet exemple permets d'envoier (et de formater) des données vers excel assez simplement ...

Source / Exemple :


' 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

Conclusion :


Attention pour les nouveaux projet il faut Ajouter la reference à Excel
(Project->Reference et cocher "Microsoft Excel 9.0 Object Library")
ou une version plus haute ...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
16
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
29 juin 2011

pas mal du tout et maintenant faudrait trouver comment mettre des bordure malheureusement je n'arrive a mettre que en bas (bottom et sans doute top pour le haut)et en trait fin.
Quelqun peut m'aider?
Messages postés
100
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
1 février 2009

C'est cool je prend
Messages postés
20
Date d'inscription
mercredi 22 novembre 2000
Statut
Membre
Dernière intervention
18 septembre 2007

ça a l'air pas mal, je vais essayer...
Messages postés
34
Date d'inscription
jeudi 29 juin 2000
Statut
Membre
Dernière intervention
27 octobre 2003

Ajout de commentaires dans la source.
Pour Fêter les 4000 consultations.

Et merci beaucoup pour vos commentaires toujours très positif ...
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004

c'est super ton prog
Bravo!
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.