Probleme VBA Graphique

Version imprimable

15/05/2013, 17h43
akuryuII

Probleme VBA Graphique

Bonjour ,
J'ai un probleme assez simple mais je n'arrive pas a le resoudre sachant que je debute en vba

Voila j'aimerai que lorsque je clique sur un commandbutton2:

Celui ci crée un graphique ( en nuage de point)
avec comme nom du graphique la valeur située dans combobox 4

Ensuite pour les series : l'axe X sera toujours de la case A10 jusqua la derniere case remplie ( je sait quil y a un "Dernlign" qui fonctionne pour ca )

Cependant le Y varie ,
Si combobox4 = 1 alors je vais chercher les Y de B:10 a derniere ligne remplie
Si bombox4= 2 alors je vais chercher les Y de C:10 a derniere ligne remplie
Si bombox4= 3 alors je vais chercher les Y de B:10 a derniere ligne remplie

Merci de m'aider , j'ai ecrit un code en partie mais il ne fonctionne pas , surtout je pensse que mes erreurs viennent a partir du moment ou jessaye d'automatiser la creation de serie avec

"SeriesCollection(num).Values = ThisWorkbook.Sheets(......."

Je ne sait surrement pas assez bien utiliser cette fonction.

Merci d'avance
15/05/2013, 22h15
curt

Bonsoir akuryuII,

Est-il possible de nous montrer le code que tu as réalisé ?
La feuille complète avec les Combo créées serait un plus !

Curt

Bonsoir,

Je pense que ces quelques lignes feront l'affaire:

- La fonction SetChartValuesRange fixe les Y d'une série pour un graphique.
chartName est le nom du graphique surlequel il faut agir
firstCell est le range correspondant à la première cellule d'une colonne contenant les Y.
Si les cellules sont dans une ligne, remplace xlDown par xlToLeft.
Code:

1 2 3 Sub SetChartValuesRange(chartName As String, firstCell As Range) ChartObjects(chartName).Chart.SeriesCollection.Item(1).values = Range(firstCell, firstCell.End(xlDown)) End Sub
- La fonction ComboBox4_Change sera appelé par Excel au changement de valeur de la Combobox4.
Lorsque la valeur de ComboBox4 change, cette fonction change les Y du graphique nommé "Graphique 1" (pour mon exemple, ce nom est adapter pour ton classeur).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub ComboBox4_Change() Dim col As String Select Case ComboBox4.Value Case 1 col = "B" Case 2 col = "C" Case 3 col = "D" End Select Call SetChartValuesRange("Graphique 1", Range(col & "10")) End Sub

16/05/2013, 09h36
akuryuII

1 pièce(s) jointe(s)

Merci des vos réponses , pour le moment je n'arrive pas a avoir le bon code encore , même avec ce que tu ma donné Blue monkey .

Peut être je l'utilise mal , je vais re essayer.

Je vous met en PJ un imprim écran détaillé de ce que je veux faire . Ça sera surement plus clair .

Merci d'avance

Bonjour,

Citation:

pour le moment je n'arrive pas a avoir le bon code encore

Qu'est ce qui ne fonctionne pas ?
Il y a un message d'erreur ? Si oui sur quelle ligne ?

Sinon le code suivant est d'avantage optimisé par rapport aux derniers éléments que tu as fournis.
Il faut mettre ce code dans la feuille Recherche so. (qui contient le graphique Graphique 1 et la combobox ComboBox4
.
Code:

1 2 3 4 5 6 7 8 9 10 Option Explicit Sub SetChartValuesRange(chartName As String, firstCell As Range) ChartObjects(chartName).Chart.SeriesCollection.Item(1).Values = Range(firstCell, firstCell.End(xlDown)) End Sub Private Sub ComboBox4_Change() Dim TitleCell As Range Set TitleCell = Range("D9:K9").Find(ComboBox4.Value, LookIn:=xlValues) Call SetChartValuesRange("Graphique 1", TitleCell.Offset(1)) End Sub

Merci pour ces lignes de codes malheureusement , j'ai écrit tes lignes.
Cependant quand j'essaye de lancer la macro il me disent :

"erreur d’exécution '1004'
Erreur définie par l'application ou par l'objet"

ps: j'ai recopier " tel qu'elle" tes lignes , peut etre qu'il fallais que je change des variable ...mais je ne vois pas a quel endroit... :S

Notament ce "(1)" dans "ChartObjects(chartName).Chart.SeriesCollection.Item(1)."
Je ne vois pas a quoi cela correspond ...

Voila ce que j'ai ecrit
Code:

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 Private Sub CommandButton2_Click() 'test graph 'Sheets(Recherche_sol).Activate 'Sheets(Recherche_sol).ChartObjects(graph.Name).Activate Dim nouvserie As Series Dim DernLigneX As Integer Set nouvserie = ActiveChart.SeriesCollection.NewSeries ' With nouvserie .MarkerStyle = xlNone .MarkerBackgroundColorIndex = xlNone .Border.ColorIndex = 1 .Border.Weight = xlThin .Border.LineStyle = xlDot .XValues = "=" & Worksheets(Recherche_sol).Range(Sheets(Recherche_sol).Cells(10, 1), Sheets(Recherche_sol).Cells(DernLigneX, 1)) .Name = ComboBox4.Value .Values = "=" & Worksheets(Recherche_sol).Range(Sheets(Recherche_sol).Cells(10, 1 + .Value(5, 25)), Sheets(Recherche_sol).Cells(DernLigneX, 1 + .Value(5, 25))) DernLigneX = FeuilB.Range("A65536").End(xlUp).Row End Sub
J'ai mit dans la case 5;25 des valeurs correspondante a chaque choix de mon combobox4 ce qui me permet de decaler la colonne des Y ( enfin c'est ce que je pense en tout cas ).

Mais lorsque je lance la macro , excel me marque :

" Erreur de compilation
Reference incorrect ou non qualifiée "

en me surlignant la ligne :

Code:

Private Sub CommandButton2_Click()

Je n'y comprend plus rien...

17/05/2013, 13h04
BlueMonkey

Bonjour,

Citation:

Envoyé par akuryuII

Merci pour ces lignes de codes malheureusement , j'ai écrit tes lignes.
Cependant quand j'essaye de lancer la macro il me disent :

"erreur d’exécution '1004'
Erreur définie par l'application ou par l'objet"

L'erreur vient peut être du fait que le graphique utilisé ne contient pas de série.
Lors de mes tests, j'avais créé le graphique avec une série nuage de points.
Le code changeait simplement les données associé à la série.
L'intérêt de procéder ainsi, est de pouvoir mettre en forme la série en direct (sans code VBA).

Citation:

Envoyé par akuryuII

Notament ce "(1)" dans "ChartObjects(chartName).Chart.SeriesCollection.Item(1)."
Je ne vois pas a quoi cela correspond ...

C'est la première série du graphique.

Si le problème persiste, poste le classeur (ou une copie des données du classeur + le graphique) pour qu'on puisse reproduire le problème.

salut ,

merci blue monkey , j'ai palier au problemes de facon peut élégante mais efficace.

j'ai utiliser ceci :

Code:

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
'Pour deplacer la colonne de l'indice dans la colone pour afficher le y du graph
'------------------------------------
Dim DernLigneA As Integer
Dim FeuilA As Worksheet
Dim FeuilB As Worksheet
Dim Base As Workbook
Dim F As Integer
 
 
 
Set Base = Application.ActiveWorkbook
Set FeuilA = Base.Worksheets("BDD Sol")
Set FeuilB = Base.Worksheets("Recherche sol")
DernLigneA = 8
 
If ComboBox4.Value = "Lv (25-125 Hz)" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 2)
    Next F
 
ElseIf ComboBox4.Value = "Lv(A)" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 3)
    Next F
 
ElseIf ComboBox4.Value = "25 Hz)" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 4)
    Next F
 
ElseIf ComboBox4.Value = "31.5 Hz" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 5)
    Next F
 
ElseIf ComboBox4.Value = "40 Hz" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 6)
    Next F
 
ElseIf ComboBox4.Value = "50 Hz" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 7)
    Next F
 
ElseIf ComboBox4.Value = "63 Hz" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 8)
    Next F
 
ElseIf ComboBox4.Value = "80 Hz" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 9)
    Next F
 
ElseIf ComboBox4.Value = "100 Hz" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 10)
    Next F
 
ElseIf ComboBox4.Value = "125 Hz" And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, 11)
    Next F
 
 End If
 
 
 
End Sub

En gros l'idé cetais que celon la valeur de la combobox je choisise tel ou tel colonne et que je reporte toujour cette colonne dans une colonne vide ( ou j'avais préalablement placer la valeur Y de ma serie manuelement)

C'est du bricolage mais sa fonctionne , c'est l'essentiel.

J'ai un nouveau léger problème , dans le code qui suit excel me dit :

' erreur d'execution 13
Incompatibilité de type'

Code:

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
Dim DernLigneGG As Integer
Dim x As Integer
Dim y As Integer
Dim Base As Workbook
Dim FeuilA As Worksheet
Dim FeuilB As Worksheet



Set Base = Application.ActiveWorkbook
Set FeuilA = Base.Worksheets("BDD sol-batiment")
Set FeuilB = Base.Worksheets("Recherche sol-batiment")


DernLigneGG = 9



With FeuilA


For x = 5 To 10000

'si condition SOURCE ET AXE VALIDEE
                If Worksheets("BDD sol-batiment").Cells(x + 1, 5) = ComboBox1.Value Then
                'rapatriment des differences de distances entre capteurs
                               
                               '--------------------
                               'capteur2 - capteur 1
                               '---------------------
                               
                                
                                FeuilB.Cells(DernLigneGG + 1, 2) = .Cells(x + 94, 8) - .Cells(x + 110, 8)   'calcul lv global 1 - lv global 2
                                FeuilB.Cells(DernLigneGG + 1, 3) = .Cells(x + 94, 9) - .Cells(x + 110, 9) 'Calcul de la valeur de lv(A)1 - lv(A)2
                                
                                 
                        
                        For y = 1 To 8
                        
                                FeuilB.Cells(DernLigneGG + 1, 3 + y) = .Cells(x + 94, 23 + y) - .Cells(x + 110, 23 + y) 'calcul de lv1-lv2 de 25hz a 125hz
                                
                        Next y
            
            
                    
                    
                   DernLigneGG = FeuilB.Range("A65536").End(xlUp).Row
                   
                x = x + 111
End If



Next x

End With

Visiblement ca bug sur les lignes en JAUNE

Le problème est peut être petit surement quelque chose de mal déclaré mais sa fait bientôt 2h que je suis dessus ^^"

Bonsoir,

Les 90 lignes de codes avec les 10 copier/coller d'une boucle du type

Code:

1
2
3
4
5
If ComboBox4.Value = valeur de test And ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
 
    For F = 1 To 10000
    FeuilB.Cells(8 + F, 13) = FeuilB.Cells(8 + F, colonne source)
    Next F

peut être remplacé par le code équivalent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim DernLigneA As Integer
    Dim FeuilA As Worksheet
    Dim FeuilB As Worksheet
    Dim Base As Workbook
    Dim F As Integer
 
    Set Base = Application.ActiveWorkbook
    Set FeuilA = Base.Worksheets("BDD Sol")
    Set FeuilB = Base.Worksheets("Recherche sol")
    DernLigneA = 8
 
    Dim ColSource As Integer
 
    If ComboBox1 <> "-" And ComboBox2.Value <> "-" Then
        ColSource = FeuilB.Range("B9:K9").Find(ComboBox4.Value, LookIn:=xlValues).Column
        If ColSource > 0 Then
            Dim lastLine As Long
            lastLine = FeuilB.Cells(9, 2).End(xlDown).Row
            With FeuilB
                .Range(.Cells(9, 13), .Cells(lastLine, 13)).Value = .Range(.Cells(9, ColSource), .Cells(lastLine, ColSource)).Value
            End With
        End If
 
    End If

Citation:

' erreur d'execution 13
Incompatibilité de type'

Difficile à dire sans le fichier source, mais c'est probablement que les calculs effectué sur les lignes en jaune de ton post
effectue des calculs sur des cellules contenant du texte ou des erreurs. (ex: N/A)

Salut merci de ta réponse , mais y a toujours un problème d'incompatibilité de type qui reste mystérieux :S

Je met tout le code sa peut vous aider , sa bloque sur les ligne que je met en ROUGE :

Code:

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
Private Sub CommandButton1_Click()

'----------------------------------------------------------------
'RAPATRIMENT DES  DELTATS  LV
'----------------------------------------------------------------




Dim DernLigneFF As Integer
Dim DernLigneXX As Integer
Dim p As Integer
Dim y As Integer
Dim FeuilA As Worksheet
Dim FeuilB As Worksheet
Dim Base As Workbook


Set Base = Application.ActiveWorkbook
Set FeuilA = Base.Worksheets("BDD sol-batiment")
Set FeuilB = Base.Worksheets("Recherche sol-batiment")


DernLigneFF = 9
DernLigneXX = 9


With FeuilA


For p = 5 To 10000

'si condition SOURCE ET ApE VALIDEE
                If Worksheets("BDD sol-batiment").Cells(p + 1, 5) = ComboBox1.Value Then
                'rapatriment des differences de distances entre capteurs
                               
                               '--------------------
                               'capteur2 - capteur 1
                               '---------------------
                               
                                FeuilB.Cells(DernLigneFF + 1, 1) = DernLigneFF - 8
                                FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(p + 94, 8) - .Cells(p + 110, 8)   'calcul lv global 1 - lv global 2
                                FeuilB.Cells(DernLigneXX + 1, 3) = .Cells(p + 94, 9) - .Cells(p + 110, 9) 'Calcul de la valeur de lv(A)1 - lv(A)2
                                
                                 
                        
                        For y = 1 To 8
                        
                                FeuilB.Cells(DernLigneXX + 1, 3 + y) = .Cells(p + 94, 23 + y) - .Cells(p + 110, 23 + y) 'calcul de lv1-lv2 de 25hz a 125hz
                                
                        Next y
            
            
                    
                    
                   DernLigneFF = FeuilB.Range("A65536").End(xlUp).Row
                   DernLigneXX = FeuilB.Range("B65536").End(xlUp).Row
                p = p + 111
End If



Next p

End With

'----------------------------------------------
'MESSAGE D ERREUR SI AXE PAS RENSEIGNE
'---------------------------------------------


 If ComboBox1.Value = "-" Then
 
    MsgBox "Renseigner d'abord l'axe", vbCritical
 End If


End Sub

Je suppose que le problème viens du :
" DernLigneFF ...." et tout c'est truc :S

Si quelqu’un aurait une réponse ...

Merci d'avance

23/05/2013, 23h04
BlueMonkey

Bonsoir,

Sans les données, il est difficile de reproduire le problème.
Si possible poste les fichiers contenant les données pour qu'on puisse reproduire le problème.

Bonjour ,
Malheureusement cela fait partie de données confidentiel de l'entreprise ...je ne peux donc pas les échanger . cependant j'ai fait deux tests

si j'ecrit dans mon code :

Code:

FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(i + 94, 8)

Cela passe sans soucis.

Cependant des que je fait une soustraction sa coince : exemple :

Code:

FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(i + 94, 8) - 2

ou

Code:

FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(i + 94, 8) -.Cells(i + 110 ,8)

Dans les deux cas si dessus , excel me dit " erreur incompatibilité de type "
Et il met la ligne ou il y a la soustraction en jaune ....

Je suppose donc que j'ai du mal declarer ma feuilB ou quelque chose dans le genre...

Voici le code de mes déclarations :
Code:

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 Dim DernLigne1 As Integer Dim DernLigneX As Integer Dim DernLigneXX As Integer Dim DernLigneY As Integer Dim DernLigneYY As Integer Dim DernLigneZ As Integer Dim DernLigneZZ As Integer Dim i As Integer Dim y As Integer Dim Base As Workbook Dim FeuilA As Worksheet Dim FeuilB As Worksheet Set Base = Application.ActiveWorkbook Set FeuilA = Base.Worksheets("BDD solbat") Set FeuilB = Base.Worksheets("Recherche solbat") DernLigne1 = 1000 'FeuilA.Range("A65536").End(xlUp).Row DernLigneXX = 9 DernLigneY = 10 DernLigneZ = 10 DernLigneYY = 10 DernLigneZZ = 10

24/05/2013, 12h13
BlueMonkey

Bonjour,

Au niveau déclaration, il faudrait peut être passer DernLigne en Long au lieu de Integer.

Autre piste, lors du plantage sur la ligne FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(i + 94, 8) - 2 vérifie la valeur
de la cellule .Cells(i + 94, 8).
(ajouter un espion sur FeuilA.Cells(i + 94, 8) EN faisant un clic droit -> ajouter un espion.
Est-ce que c'est bien une valeur numérique ? Pas du texte ou une erreur ?
24/05/2013, 13h14
akuryuII

J'ai l'impression que c'est bien une valeur numerique car quand je teste les deux lignes :

Code:

FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(i + 94, 8)

et

Code:

FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(i + 110 ,8)

La macro me rapatrie les valeurs dans les deux cas et ce sont bien des valeurs numériques....
Je vais tester avec Long .
Cependant je ne comprendrai pas pourquoi ça viendrais de la ... j'ai utiliser la meme déclaration pour d'autres macro et cela fonctionne....

Merci de ton aide en tous cas ;)
24/05/2013, 17h36
BlueMonkey
Bonsoir,

Citation:

J'ai l'impression que c'est bien une valeur numerique car quand je teste les deux lignes :

Code:

FeuilB.Cells(DernLigneXX + 1, 2) = .Cells(i + 94, 8)

L'affectation d'une cellule à une autre fonctionne même si c'est du texte.
Mais l'opération d'addition ou de soustraction échouera si c'est du texte.

Pour tester s'il s'agit d'un nombre, tu peux utiliser WorksheetFunction.IsNumber(<la cellule>).
Ou bien forcer le format numérique en faisant une conversion avec CDbl(<la cellule>) pour un flottant ou CLng(<la cellule>) pour un entier.

Citation:

Je vais tester avec Long ...

C'est juste une question de limite de nombre de cellule.
Comme un entier du type Integer ne permet pas d'atteindre la valeur 65536, utiliser un Long garanti qu'il n'y aura pas d'effet de bord sur le calcul suivant :
Code:

1 2 DernLigneFF = FeuilB.Range("A65536").End(xlUp).Row DernLigneXX = FeuilB.Range("B65536").End(xlUp).Row
Si tu veux voir s'il y a un raté au niveau des déclarations ou dans le nom d'une variation,
tu peux ajouter Option Explicit en haut de fichier vba. C'est une bonne habitude à prendre.
27/05/2013, 12h10
akuryuII

Merci j'ai refait tout le code ce week end , en utilisant vos conseils et cela fonctionne :ccool::ccool::ccool: Merci a tous de votre aide et de votre temps :)