Discussion :

[LeMin]

Bonjour à tous,

Par Access (2007), je crée un fichier Excel.

Code :

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

1
2
Set oExcel = GetObject(, "Excel.Application")
Set oExcelWrkBk = oExcel.Workbooks.Add()

Ensuite, je me positionne sur le premier onglet

Code :

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

Set oExcelWrSht = oExcelWrkBk.Sheets(1)

Je défini la taille des colonnes

Code :

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

1
2
ColRef = 2
    oExcelWrSht.Range(oExcelWrSht.cells(1, ColRef), oExcelWrSht.cells(1, ColRef)).ColumnWidth = 80

J'écris dans les cellules en utilisant:

Code :

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

oExcelWrSht.cells(Ligne, Col).Value = Nbre

Etc ...

Voilà mon problème:
Je voudrais faire en sorte, que les cellules à 0 ne soient pas affichées.

Donc, par programmation VBA, je voudrait décocher l'option Excel "Afficher un 0 dans les cellules qui ont une valeur nulle".
Je tourne depuis un moment sans y arriver
Quelqu'un peut-il me dire comment faire ?

En vous remerciant pour votre aide.

[LedZeppII]

Bonjour,

Je ferai comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
' Nouveau classeur
Set oExcelWrkBk = oExcel.Workbooks.Add()
' Référencer la première feuille
Set oExcelWrSht = oExcelWrkBk.Sheets(1)
 
' Activer la feuille en la mettant au premier plan
oExcelWrSht.Activate
' Masquer les valeurs nulles
oExcel.ActiveWindow.DisplayZeros = False

A+

[LeMin]

Bonjour,

merci pour ta réponse
Je vais essayer et je te dis quelque chose.
Bonne journée.

[LeMin]

Merci beaucoup LedZeppII
ça marche nickel

Avant ton aide, j'ai galéré pour trouver la bonne syntaxe.

Merci encore et bonne journée.
Je passe le sujet en [RESOLU]