Discussion :

[Sangdrax1604]

Bonjour à tous ...

J'ai un petit soucis dans le pilotage d'Excel. Pas l'exportation ni l'écriture des données mais, j'aimerais faire un peu de "mise en page".

Suivant les données ou les valeurs, changer la couleur de la police d'une cellule ou d'un groupe de cellule, ou la remplir d'une couleur bien particulière.

Lorsque j'essaye d'accéder à une cellule, comme si j'écrivais dedans avec le code suivant (par exemple) avec obj_ws étant mon objet Worksheet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If (obj_reader("is_intracomm_regin").ToString = "1") Then
                obj_ws.Cells(int_cpt, 9) = obj_reader("total_ttc_regin").ToString + " €"
                obj_ws.Cells(int_cpt, 10) = obj_reader("tva_ded_regin").ToString + " €"
            End If

En fait je n'ai aucune possibilité de changer la police ou les couleurs ...

Cela doit (comme toujours) me crever les yeux, mais ... Ben je vois pas

Merci d'avance ...

[Skalp]

Je te suggère de lire le chapitre VI de cet article, il t'ouvrira de nouveaux horizons sur le pilotage Excel, et notamment pour la mise en forme des données :
Pilotage de l'application Office Excel (Excel Automation)

Tu verras, c'est pas sorcier

[Sangdrax1604]

Effectivement, à partir de là je vais pouvoir essayer pas mal de trucs pour perfectionner mes feuilles Excel.

Merci

[belsuncette]

Je fais exactement la même chose en ce moment alors voilà quelques pistes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        obj_ws.Cells(int_cpt, 9).Interior.Color = RGB(255, 255, 153) 'met un fond jaune à la cellule
 
        obj_ws.Rows(1).Font.Bold = True 'met toute la première ligne en gras

etc...

Une petite astuce que j'utilise : je tape les commandes en VBA dans Excel pour qu'il m'affiche les méthodes et propriétés disponibles pour l'objet, lorsqu'il ne le fait pas dans mon appli VB......
Bon courage.