supprimer le zero dans powerpoint lorsque la cellule excel est vide

chris

XLDnaute Barbatruc

• 2 Février 2017

• #2

Bonjour

Il y a bien une demi-douzaine de méthodes pour copier un Excel dans un PowerPoint (objet incorporé, objet lié, image, tableau PPT, ...) .

Il aurait été bien de préciser laquelle utilise ta macro.

A tout hasard utilise le format personnalisé
0;;
dans Excel plutôt qu'une option d'affichage des 0

 

Vote positif 0 Vote négatif

M

michel90

XLDnaute Nouveau

• 2 Février 2017

• #3

Oui je me suis mal exprimé.
j'ai utilisé ce bout de code pour coller le contenu des cellules dans un slide PPT.

VB:

' création de la zone de texte
    Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 75, 250, 600, 50)
 
    'insère la valeur de la Cellule E3 dans une zone de texte
   Shp.TextFrame.TextRange.Text = Range("E3")
 
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 2 Février 2017

• #4

Re

Code:

if Range("E3")<>0 then Shp.TextFrame.TextRange.Text = Range("E3")

 

Vote positif 0 Vote négatif

M

michel90

XLDnaute Nouveau

• 2 Février 2017

• #5

Franchement c'est super. ça fonctionne parfaitement. je vous remercie beaucoup 🙂
Bonne après-midi.

 

Vote positif 0 Vote négatif