Discussion :

[Marneus22]

Bonjour à tous,

Quelqu'un saurait-il compter le nombre de graphiques que je selectionne sous excel ?

Je m'explique : Admettons qu'il y ait trois graphique sur une page Excel et que j'en selectionne 2. La macro me dirait, il y a 2 graphiques selectionnés.

J'ai un code me permettant de calculer le nombre de graphs sur une page, mais je n'arrive pas à aller plus loin.

Quelqu'un peut-il m'aider ?

Code :

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

1
2
3
4
5
6
7
Dim Graph As ChartObject
Dim nbG As Integer
nbG = 0
For Each Graph In ActiveSheet.ChartObjects
nbG = 1 + nbG
Next Graph
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG

Merci à vous

[tedo01]

Bonjour,
Le nombre est donnée par la valeur

Code :

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

Selection.Count

[Marneus22]

Bonjour à vous tedo01,

Un grand merci pour votre réponse.

J'ai essayé et ça marche... du moins lorsque je selectionne au moins deux graphiques....

Code :

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

1
2
3
 
nbG = Selection.Count
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG

Lorsque je ne sélectionne qu'un seul graph, j'ai une erreur...

Savez-vous pourquoi ?

[tedo01]

Re-bonjour,

Toutes mes excuses, j'ai répondu un peu vite !

Pour déterminer ce que contient la sélection, on peut utiliser la fonction

Code :

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

Typename(Selection)

Si une ou plusieurs cellules sont sélectionnée(s), le résultat est "Range"
Si un graphique est sélectionné, le résultat est "ChartArea"
Si un rectangle est sélectionné, le résultat est "Rectangle"
...
Par contre, si plusieurs objets sont sélectionnés, le résultat est "DrawingObjects".

A partir de là, on peut faire un test sur "DrawingObjects" et n'appeler la propriété .Count que dans ce cas.

[Marneus22]

Bonjour,

Encore merci pour votre message.

Je comprends très bien l'idée ! Par contre, n'étant que débutant sous VBA, je n'arrive pas du tout à l'implémenter... Je n'obtient que des erreurs.

Pouvez-vous me donner un petit coup de main supplémentaire ?

Merci

[tedo01]

Bonjour,
Voici un exemple de code, est-ce que c'est un peu plus clair ?

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
 
'Plusieurs objets sont sélectionnés : on considère que ce sont des graphiques
If TypeName(Selection) = "DrawingObjects" Then
    nbG = Selection.Count
 
'Un graphique est sélectionné
ElseIf TypeName(Selection) = "ChartArea" Then
   nbG = 1
 
'La sélection contient autre chose
Else
   nbG = 0
End If
 
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG

[Marneus22]

Superbe, ca fonctionne !!!

je comprends très bien !


Un très grand merci