Discussion :

[garheb]

Bonjour à tous,

J'ai deux graphiques dans une feuille, j'ai tenté d'utiliser une macro pour afficher les % seulement lorsque les % sont sup à 5. Ca fonctionne bien si je nomme directement le graphique, mais si je tente un "for each" avec les graphiques, ça ne fonctionne pas.

Voilou le code:

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
Sub lol()
	'prend chaque graphique de la feuille
    For Each obj In Sheets("Par pays").ChartObjects
 
		'Prend chaque point de chaque graphique
		For Each pt In obj.SeriesCollection.Points
 
			'Initialise le pourcentage à true
			pt.ApplyDataLabels AutoText:=True, _
			LegendKey:=False, HasLeaderLines:=True, ShowSeriesName:=False, _
			ShowCategoryName:=False, ShowValue:=False, ShowPercentage:=True, _
			ShowBubbleSize:=False
 
			'teste le pourcentage, si < 5 le pourcentage est enlevé
			If (CDbl(Left(pt.DataLabel.Caption, 1)) < 5) Then
 
				Debug.Print pt.DataLabel.Caption
 
				pt.ApplyDataLabels AutoText:=True, _
				LegendKey:=False, HasLeaderLines:=True, ShowSeriesName:=False, _
				ShowCategoryName:=False, ShowValue:=False, ShowPercentage:=False, _
				ShowBubbleSize:=False
 
			Else
 
				'sinon on ajoute le nom de catégorie
 
				pt.ApplyDataLabels AutoText:=True, _
				LegendKey:=False, HasLeaderLines:=True, ShowSeriesName:=False, _
				ShowCategoryName:=True, ShowValue:=False, ShowPercentage:=True, _
				ShowBubbleSize:=False
 
			End If
 
		Next pt
 
    Next obj
 
End Sub

Merci à vous par avance

Edit: J'avais oublié de préciser le message d'erreur: "propriété ou méthode non gérée par l'objet" sur la ligne:

Code :

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

For Each pt In obj.SeriesCollection.Points

Ah oui et j'avais une autre question:

J'ai mis des infobulles sur des images (clic droit, hyperlien, placer le lien dans ce document et clic infobulle), ça fonctionne bien en mouseover, l'infobulle apparait correctement.

Par contre, la macro associée à l'image en clic ne fonctionne plus. Y'a t-il un moyen de contourner ça? Ou utiliser autre chose que l'infobulle, quelque chose en mouseover pour pas encombrer la feuille d'explications sur ces "boutons".

[garheb]

Problème résolu:

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
Sub lol()
 
    Dim obj As ChartObject
    Dim pt As Point
 
    'prend chaque graphique de la feuille
    With Sheets("Par pays")
 
		For Each obj In .ChartObjects
 
			'Prend chaque point de chaque graphique
			obj.Activate
 
			For Each pt In ActiveChart.SeriesCollection(1).Points
 
				'Initialise le pourcentage à true
				pt.ApplyDataLabels AutoText:=True, _
				LegendKey:=False, HasLeaderLines:=True, ShowSeriesName:=False, _
				ShowCategoryName:=False, ShowValue:=False, ShowPercentage:=True, _
				ShowBubbleSize:=False
 
				'teste le pourcentage, si < 5 le pourcentage est enlevé
				If (CDbl(Left(pt.DataLabel.Caption, 1)) < 5) Then
 
					Debug.Print pt.DataLabel.Caption
 
					pt.ApplyDataLabels AutoText:=True, _
					LegendKey:=False, HasLeaderLines:=True, ShowSeriesName:=False, _
					ShowCategoryName:=False, ShowValue:=False, ShowPercentage:=False, _
					ShowBubbleSize:=False
 
				Else
 
					'sinon on ajoute le nom de catégorie
 
					pt.ApplyDataLabels AutoText:=True, _
					LegendKey:=False, HasLeaderLines:=True, ShowSeriesName:=False, _
					ShowCategoryName:=True, ShowValue:=False, ShowPercentage:=True, _
					ShowBubbleSize:=False
 
				End If
 
			Next pt
 
		Next obj
 
    End With
 
End Sub

Par contre pour la deuxième question:

J'ai mis des infobulles sur des images (clic droit, hyperlien, placer le lien dans ce document et clic infobulle), ça fonctionne bien en mouseover, l'infobulle apparait correctement.

Par contre, la macro associée à l'image en clic ne fonctionne plus. Y'a t-il un moyen de contourner ça? Ou utiliser autre chose que l'infobulle, quelque chose en mouseover pour pas encombrer la feuille d'explications sur ces "boutons".

Quelqu'un a t-il une idée? Merci

[garheb]

J'ai regardé du coté de mousemove en vba, mais à priori ça ne s'applique qu'aux images dans un USF. Mais bon afficher un USF en permanence sur la feuille de calcule bof.



La feuille se présente (elle n'est pas entière là) comme ceci, les images clickables associées à une macro chacune. Et j'aimerais qu'en passant la souris dessus on voit un message "d'aide", où j'explique l'utilité des boutons.

Si ça peut être plus clair pour vous.

Je peux accéder aux propriétés des images en code, en utilisant Activesheet.Picture... mais je n'ai pas trouvé comment contrôler le mouseover