Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Quelle est la valeur max d'1 série ?

Quelle est la valeur max d'1 série ?

4 réponses
Avatar
Serge
Bonjour,


Je souhaiterais connaître la valeur max de ma
MonGraphique.SeriesCollection(2) ?

Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Essaie ce bout de code (change si besoin le nom du graphique et le n° de la
série)

Sub Test()
Dim Ctr, i As Integer, Var
ActiveSheet.ChartObjects("Graphique 1").Activate
Var = ActiveChart.SeriesCollection(1).Values
For i = 1 To UBound(Var)
If Var(i) > Ctr Then
Ctr = Var(i)
End If
Next i
MsgBox Ctr
End Sub

Cordialement.
Daniel

"Serge" <serge.g8[NOSPAM]@laposte.net> a écrit dans le message de news:
d7f83v$2gq$
Bonjour,


Je souhaiterais connaître la valeur max de ma
MonGraphique.SeriesCollection(2) ?

Merci



Avatar
Alain CROS
Bonjour.

MsgBox Application.Max(Application.Transpose( _
ActiveSheet.ChartObjects("MonGraphique").Chart.SeriesCollection(2).Values))

Alain CROS

"Serge" <serge.g8[NOSPAM]@laposte.net> a écrit dans le message de news: d7f83v$2gq$
| Bonjour,
|
|
| Je souhaiterais connaître la valeur max de ma
| MonGraphique.SeriesCollection(2) ?
|
| Merci
|
|
Avatar
Daniel
Bonsoir.
Super, mais, ppourquoi "transpose" ?
Cordialement.
Daniel
"Alain CROS" a écrit dans le message de news:

Bonjour.

MsgBox Application.Max(Application.Transpose( _

ActiveSheet.ChartObjects("MonGraphique").Chart.SeriesCollection(2).Values))

Alain CROS

"Serge" <serge.g8[NOSPAM]@laposte.net> a écrit dans le message de news:
d7f83v$2gq$
| Bonjour,
|
|
| Je souhaiterais connaître la valeur max de ma
| MonGraphique.SeriesCollection(2) ?
|
| Merci
|
|




Avatar
Alain CROS
Bonjour.

Oui, tu as raison, le transpose ne sert à rien.

Alain CROS

"Daniel" a écrit dans le message de news: #
| Bonsoir.
| Super, mais, ppourquoi "transpose" ?
| Cordialement.
| Daniel
| "Alain CROS" a écrit dans le message de news:
|
| > Bonjour.
| >
| > MsgBox Application.Max(Application.Transpose( _
| >
| > ActiveSheet.ChartObjects("MonGraphique").Chart.SeriesCollection(2).Values))
| >
| > Alain CROS
| >
| > "Serge" <serge.g8[NOSPAM]@laposte.net> a écrit dans le message de news:
| > d7f83v$2gq$
| > | Bonjour,
| > |
| > |
| > | Je souhaiterais connaître la valeur max de ma
| > | MonGraphique.SeriesCollection(2) ?
| > |
| > | Merci
| > |
| > |
| >
| >
|
|