Cellule vide dans corps message outlook

Bonjour

Quand je copie les ranges avec vba pour les coller dans le corps du

message outlook, les cellules vides affichent 0.

Est-ce possible de les masquer via vba?

Bonjour,

En essayant
Il a d'autres possibilité certes

For i = 1 To 5   ' nombre de lignes concernées
    For k = 1 To 2  ' nombre de colonnes concernées
        If Cells(i, k) = O Then Cells(i, k) = " "
    Next k
Next i

Bonjour,
Jacky bonjour,

vos "0" viennent de quoi ? De formules ? Pourquoi ne sont-ils pas apparent sur la feuille ? Une MFC ou bien l'option Excel décochée "afficher un 0 pour les formules donnant 0 ?

Comment faites vous pour avoir cette "incrustation de plage" dans le mail ? Le mieux pour Jacky et les autres est de déposer votre fichier représentatif du problème, non ?

@ bientôt

LouReeD

Bonjour

Fichier joint pour mieux illustrer la situation.

Merci

Bonjour LouReed,

Tout à fait d'acord avec toi

Comment faites vous pour avoir cette "incrustation de plage" dans le mail ?

En ce qui me concerne j'ai cru qu'il récupérait intégralement "l'image" donnée dans son post, donc que dans sa feuille Excel ce tableau apparaissait tel quel

Etant donné le fichier fourni, je ne comprends plus rien
Quant à toi qu'en penses-tu ?

Bonsoir,

bon c'est donc une fonction Excel to HTML qui transpose la plage dans le mail.
Ceci à partir d'une copie de cette plage dans un classeur temporaire.

Donc comme l'a proposé Jacky, je vous propose la modification du code de la fonction avec ceci :

    With TempWB.Worksheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
        ' ajout pour remplacer les valeurs nulles 0 par rien ""
        For Each Cel In .Cells(1).CurrentRegion
            If Cel = 0 Then Cel = ""
        Next Cel
    End With

J'ai simplement ajouté une boucle sur les cellules de la plage copiée qui remplace les 0 par rien "" (contrairement à Jacky qui proposait de mettre un espace).

Le rien est préférable à l'espace car ces tableaux sont utilisable en soit, et avec des espaces dans des cellules vides cela pourrait provoquer d'éventuelles erreurs.

@ bientôt

LouReeD

Bonjour LouReeD

Cele fonctionne bien.

Merci à tout le monde.

Bonsoir,

merci de votre retour et remerciement !
Comme quoi le fait de déposer un fichier aide vraiment à la résolution du problème !

@ bientôt

LouReeD