VBA Compter le nombre de graphes selectionnés

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:

---

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 ;)

Bonjour,
Le nombre est donnée par la valeur

Code:

---

Selection.Count

---

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:

---

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 ?

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:

---

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.

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

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

Code:

---

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

---

Superbe, ca fonctionne !!!

je comprends très bien !


Un très grand merci :ccool: