Discussion :

[Pascualito78]

Bonjour,

Je suis nouveau et débutant en VBA

Difficulté à trouver le code, je bute sur le code pour représenter un point sur un graphique en 3 dimensions, peut-être que je n'utilise pas les bons arguments

Ci-joint le fichier

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
Sub Graphique_xD()
'Dim MybArray(5, 5, 5)
 
Dim Pmp As Integer                              'Déclaration de la varible Pmp
Dim Qte As Integer                              'Déclaration de la varible Qte
'Dim CA As Integer                               'Déclaration de la varible CA
 
 
Qte = Range("b7")                               'Valeur de la variable Pmp en cellule B7
Pmp = Range("c7")                               'Valeur de la variable Qte en cellule C7
'CA = Range("d7")                                'Valeur de la variable CA en cellule D7
 
 
Charts.Add                                      'Création du graphique vierge dans outil de graphique
    ActiveChart.Location _
    Where:=xlLocationAsObject, Name:="Feuil1"   'Remontée du Graphique sur la feuil1
 
 
 
With ActiveChart                                'Remontée des données dans le graphique
 
    .SeriesCollection.NewSeries
 
    .SeriesCollection(1).XValues = Qte
    .SeriesCollection(1).Values = Pmp
    '.SeriesCollection(1).Values = CA
 
    .ChartType = xlBubble3DEffect               'Type de graphique en boule
    ActiveChart.ChartGroups(1).BubbleScale = 75 'Taille des boules
 
 
    .Axes(xlValue).MinimumScale = 0             'Minimum de l'échelle Unité principale
    .Axes(xlValue).MaximumScale = 6             'maximum de l'échelle Unité principale
    .Axes(xlValue).MinorUnit = 1                'Minimum de l'échelle Unité secondaire
    .Axes(xlValue).MajorUnit = 1                'Maximum de l'échelle Unité secondaire
 
    .Axes(xlCategory).MinimumScale = 0
    .Axes(xlCategory).MaximumScale = 6
    .Axes(xlCategory).MinorUnit = 1
    .Axes(xlCategory).MajorUnit = 1
 
    '.Axes(xlSeries).MinimumScale = 0
    '.Axes(xlSeries).MaximumScale = 6
    '.Axes(xlSeries).MinorUnit = 1
    '.Axes(xlSeries).MajorUnit = 1
 
    .SeriesCollection(1).Name = "2 Dimensions"     'Mise en place du titre
 
    ActiveSheet.ChartObjects(1).Activate        'Pour positionnement du graphique dans la feuille
    Selection.Width = 400                       'Largeur
    Selection.Height = 350                      'Hauteur
    Selection.Left = 475                        'Position par rapport à la gauche
    Selection.Top = 100                         'Position par rapport au bord haut
 
End With
 
 
End Sub

D'avance merci pour votre aide

Bonne journée

[Menhir]

https://www.developpez.net/forums/d8...s-discussions/

Tu devrais plutôt présenter ton code et indiquer plus explicitement la nature du problème (difficulté à trouver le code ? message d'erreur ? Résultats insatisfaisants ?).

[Pascualito78]

https://www.developpez.net/forums/d8...s-discussions/

Tu devrais plutôt présenter ton code et indiquer plus explicitement la nature du problème (difficulté à trouver le code ? message d'erreur ? Résultats insatisfaisants ?).

je vais suivre ton conseil
Merci

[EricDgn]

Je ne connais pas de moyen simple de faire des graphiques 3D de points dans l'espace avec Excel. Il y a peut-être ceci qui pourrait convenir: 3D Scatter.
Maintenant, il est tout à fait simple de faire un graphique en histogramme 3D de ce genre:

Bonne continuation.

[Pascualito78]

Merci de ton aide et du temps que tu as passé pour moi

Bonne journée