Discussion :

[tanou44]

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 :

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

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!

[Jean-Philippe André]

Salut,

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

Code :

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

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

[tanou44]

Merci beaucoup!!!

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

Code :

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

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!

[Pierre Fauconnier]

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 :

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

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

[tanou44]

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

[tanou44]

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 :

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

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

En utilisant ce code?

[Pierre Fauconnier]

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)

[tanou44]

Merci pour toutes tes réponses!

[Pierre Fauconnier]

Ben non, je ne vois pas plus rapide.

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

[...]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).

[tanou44]

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