Excel vers zone ppt

Bonjour à tous et à toutes!

J'espère que vous allez bien!

Je viens vers vous car je ne parviens pas à trouver le moyen de parvenir à mes fins..

Je souhaite copier la valeur d'une cellule d'une sheet Excel qui est calculé automatiquement (avec un =L... - K...) et la coller dans une zone de texte bien spécifique dont je possède le nom.

Le problème c'est que, par exemple, une de ces case me retourne un pourcentage avec énormément de décimale. Sur le fichier excel je peux bien les faire "disparaitre" mais lorsque je remplace la valeur de ma zone de texte par ce % j'ai toutes les décimales......

Savez-vous comment faire..?

PS: voici le début de mon code (pas encore cleané)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub UpdatePresETFGI()     'Définir les variables Dim PptDoc As Presentation Dim Diapo As PowerPoint.Slide Dim Sh As PowerPoint.Shape Dim wb As Workbook Dim ws As Worksheet Dim NbShpe As Integer Set ws1 = ActiveWorkbook.Worksheets("Sheet1") Ligne = ws1.Range("B4").Row LastRow = Cells(7, 4).End(xlToRight).Address   'Ouvrir la présentation modèle Set pptApp = CreateObject("Powerpoint.Application") Set PptDoc = pptApp.Presentations.Open("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.pptx")     'Insère les chiffres dans les zones de texte de la présentation PptDoc.Slides(1).Shapes("AUM1").TextFrame.TextRange.Text = ws1.Range(LastRow).Offset(1, 0)   PptDoc.Slides(1).Shapes("VarYTD").TextFrame.TextRange.Text = ws1.Range(LastRow).Offset(4, 0).NumberFormat = "0.0%"

---

Merci à vous!

Salut,

tu peux potentiellement effectuer une mise en forme de la valeur :

Code:

---

PptDoc.Slides(1).Shapes("VarYTD").TextFrame.TextRange.Text = Format(ws1.Range(LastRow).Offset(4, 0).Value,"0.0%")

---

Merci beaucoup!!!

Deuxième petite question, sur la première ligne

Code:

---

PptDoc.Slides(1).Shapes("AUM1").TextFrame.TextRange.Text = ws1.Range(LastRow).Offset(1, 0)

---

le chiffre dans la case est en milliard, j'aimerai la diviser par 1000 puis prendre cette valeur sans décimale.

Sais tu comment faire?

Merci encore!

Salut.

Passe par une variable intermédiaire. Ce sera plus simple à gérer et tu contrôleras mieux les étapes, notamment via la fenêtre des variables locales.

Code:

---

1 2 3

Ma Variable = ws1.Range(LastRow).Offset(1, 0) MaVariable = int(mavariable/1000) PptDoc.Slides(1).Shapes("AUM1").TextFrame.TextRange.Tex = mavariable

---

Thanks!!!

Merci de ta rapidité!

Je pensais qu'il existait une autre méthode, je vais tout de même utiliser celle-ci!

Merci encore

Ben non, je ne vois pas plus rapide.

Attention que ton énoncé n'est pas clair.

Citation:

---

Envoyé par tanou44

[...]j'aimerai la diviser par 1000 puis prendre cette valeur sans décimale.[...]

---

Veux-tu laisser tomber les décimales ou arrondir la valeur?

INT tronque les données. Si tu veux les arrondir, tu peux utiliser Round(MaVariable/1000, 0).

Si je peux te poser une dernière question...

J'ai une valeur qui se calcul simplement par =A.../B...

Cela me donne un résultat de 0.53455895......

Sais tu comment je pourrais copier uniquement deux décimales?

Code:

---

PptDoc.Slides(1).Shapes("VarYTD").TextFrame.TextRange.Text = Format(ws1.Range(LastRow).Offset(4, 0).Value, "0.0%")

---

En utilisant ce code?

Citation:

---

Envoyé par Pierre Fauconnier

Ben non, je ne vois pas plus rapide.

Attention que ton énoncé n'est pas clair.


Veux-tu laisser tomber les décimales ou arrondir la valeur?

INT tronque les données. Si tu veux les arrondir, tu peux utiliser Round(MaVariable/1000, 0).

---

Ta ligne de code était parfaite, je voulais bien tronqué ma valeur

Citation:

---

Envoyé par tanou44

Si je peux te poser une dernière question...[...]

---

A nouveau, tout dépend si tu souhaites arrondir on tronquer:

Arrondir: round(mavariable,2)
Tronquer: int(mavariable*100)/100
Note que la librairie Excel permettrait également de réaliser ceci en vba pour tronquer: application.rounddown(mavariable,2)

Merci pour toutes tes réponses!