Discussion :

[adrienmida]

Bonjour à tous,

Je souhaite créer une feuille excel qui fait le lien entre un tableau de donnée et un powerpoint avec des slides bien définies. (Dans les slides sont placés plusieurs cases avec les données numériques).

Dans chaque cellule de la feuille excel, plusieurs données sont transferés pour créer la présentation (texte et variable).

Pour le moment j'ai réussi à créer le transfert des informations comme je le souhaitais, avec les bonnes valeurs et décimales, cependant 2 problématiques se présentent à moi :

- Les valeurs numériques (variable en currency) ne prennent pas une mise en forme avec le séparateur de millier, lors d'une mise en forme manuelle en séparateur, la mise en forme est modifiée et il n'y a aucune séparation.

- Je n'ai pas réussi à mettre en forme le texte des cellules (mise en gras, police et couleur), donc malheureusement pour le momennt j'ai utilisé l'enregisteur de macro.
Mais dès que les variables se modifient, avec le / ActiveCell.Characters(Start:=93, Length:=40).Font" / la mise en forme s'en voit décalé sur le texte suivant ou précédent.

La suite de ma réflection a été de transformer mon texte en variable string puis de mettre en forme la cellule directement et non par variable, cependant cela n'a pas fonctionné.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
 
 Worksheets("Tableaux de bord").Activate    
    Dim variable_281 As Currency                   'variable_1
        variable_281 = Range("U4").Value
        variable_281 = Format(variable_281, "currency")
    Dim variable_282 As Currency                   'variable_2
        variable_282 = Range("U5").Value
        variable_282 = Format(variable_282, "currency")
    Dim variable_283 As Currency                   'variable_3
        variable_283 = Range("U6").Value
        variable_283 = Format(variable_283, "currency")
    Dim variable_284 As Currency                   'variable_4
        variable_284 = Range("U7").Value
        variable_284 = Format(variable_284, "currency")
    Dim variable_285 As Currency                 'variable_5
        variable_285 = Range("U8").Value
        variable_285 = Format(variable_285, "currency")
    Dim variable_286 As Currency                     'variable_6
        variable_286 = Range("U9").Value
        variable_286 = Format(variable_286, "currency")
    Dim variable_287 As Currency                 'variable_7
        variable_287 = Range("U10").Value
        variable_287 = Format(variable_287, "currency")
    Dim variable_288 As Currency                     'variable_8
        variable_288 = Range("U11").Value
        variable_288 = Format(variable_288, "currency")
    Dim variable_289 As Currency                   'variable_9
        variable_289 = Range("U12").Value
        variable_289 = Format(variable_289, "currency")
    Dim variable_290 As Currency                     'variable_10
        variable_290 = Range("U13").Value
        variable_290 = Format(variable_290, "currency")
    Dim variable_291 As Currency                   'variable_11
        variable_291 = Range("U14").Value
        variable_291 = Format(variable_291, "currency")
    Dim variable_292 As Currency                     'variable_12
        variable_292 = Range("U15").Value
        variable_292 = Format(variable_292, "currency")
    Dim variable_293 As String                  'variable_13
        variable_293 = Range("U16").Value
    Dim variable_294 As String                   'variable_14
        variable_294 = Range("U17").Value
    Dim variable_295 As String                   'variable_15
        variable_295 = Range("U18").Value
Worksheets("Box à mettre à jour").Activate
 
 
   Range("A73").Value = "Total Asset Und C EUR : " & variable_285 & "  (" & variable_286 & " % in global)" & Chr(10) & "R Asset Und C EUR : " & variable_287 & "  (" & variable_288 & "% in global)" & Chr(10) & "Fees In EUR : " & variable_289 & " (" & variable_290 & "% in global)" & Chr(10) & "Marge EUR : " & variable_291 & " (" & variable_292 & " % in global)"
 
Range("A73").Select
 
 
                                                   With ActiveCell.Characters(Start:=1, Length:=310).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorAccent1
                                                    .ThemeFont = xlThemeFontMinor
                                                    .Bold = True
                                                End With
                                                With ActiveCell.Characters(Start:=32, Length:=201).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorLight1
                                                    .ThemeFont = xlThemeFontMinor
                                                End With
                                                With ActiveCell.Characters(Start:=67, Length:=307).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorAccent1
                                                    .ThemeFont = xlThemeFontMinor
                                                    .Bold = True
                                                End With
 
                                                With ActiveCell.Characters(Start:=105, Length:=3100).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorLight1
                                                    .ThemeFont = xlThemeFontMinor
                                                End With
                                                With ActiveCell.Characters(Start:=135, Length:=1300).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorAccent1
                                                    .ThemeFont = xlThemeFontMinor
                                                    .Bold = True
                                                End With
                                                With ActiveCell.Characters(Start:=148, Length:=2400).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorLight1
                                                    .ThemeFont = xlThemeFontMinor
                                                End With
                                                With ActiveCell.Characters(Start:=171, Length:=150).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorAccent1
                                                    .ThemeFont = xlThemeFontMinor
                                                    .Bold = True
                                                End With
                                                With ActiveCell.Characters(Start:=188, Length:=250).Font
                                                    .Name = "Candara"
                                                    .FontStyle = "Normal"
                                                    .Size = 7
                                                    .ThemeColor = xlThemeColorLight1
                                                    .ThemeFont = xlThemeFontMinor
                                                End With

Voici globalement la macro avant la mise en place du text en varaible.

[adrienmida]

/ Erreur à clôturer merci à vous