Discussion :

[adrienmida]

Bonjour à tous,

Je suis débutant dans la création de macro sur VBA, les questions suivantes risquent de vous faire mal aux yeux... J'essaie au maximum de lire des livres et forum, cependant je n'ai pas trouvé résponse,

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 variable.

Je vous remerice par avance de votre aide et de vos idées,
Bien à vous,

[Invité]

Bonjour,

Un exemple qui reste à adapter :

Pour le formatage de la font à l'intérieur des cellules, une méthode consiste à repérer les points d'insertion de vos variables à vide et à modifier les intervalles une fois les valeurs mises en place. Pour cela, il faudrait sans doute typer la procédure MefCellule pour qu'elle corresponde à la famille de fonctions MefMonTexteVariables_285_292, etc...

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
 
Option Explicit
 
Private variable_281 As Currency, variable_282 As Currency, variable_283 As Currency, variable_284 As Currency, variable_285 As Currency
Private variable_286 As Currency, variable_287 As Currency, variable_288 As Currency, variable_289 As Currency, variable_290 As Currency
Private variable_291 As Currency, variable_292 As Currency, variable_293 As Currency, variable_294 As Currency, variable_295 As Currency
 
Sub Test()
 
Dim I As Integer
Dim MesCellulesAFormater As Variant
 
    With Worksheets("Tableaux de bord")
        variable_281 = .Range("U4"): variable_282 = .Range("U5"): variable_283 = .Range("U6"): variable_284 = .Range("U7"): variable_285 = .Range("U8")
        variable_286 = .Range("U9"): variable_287 = .Range("U10"): variable_288 = .Range("U11"): variable_289 = .Range("U12"): variable_290 = .Range("U13")
        variable_291 = .Range("U14"): variable_292 = .Range("U15"): variable_293 = .Range("U16"): variable_294 = .Range("U17"): variable_295 = .Range("U18")
    End With
 
 
    With Worksheets("Box à mettre à jour")
 
         .Range("A73") = MefMonTexteVariables_285_292 ' En supposant que la font de la cellule est déjà réglée
 
         MesCellulesAFormater = Array(.Range("A73"), .Range("A74"), .Range("A76")) ' A adapter
         For I = LBound(MesCellulesAFormater) To UBound(MesCellulesAFormater)
             MefCellule MesCellulesAFormater(I)
         Next I
 
    End With
 
End Sub
 
Function MefMonTexteVariables_285_292() As String
 
    MefMonTexteVariables_285_292 = "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)"
 
End Function
 
Sub MefCellule(ByVal CelluleAFormater As Range)
 
     With CelluleAFormater.Font
          .Name = "Candara"
          .FontStyle = "Normal"
          .Size = 7
          .ThemeColor = xlThemeColorLight1
          .ThemeFont = xlThemeFontMinor
     End With
 
End Sub