Formule Decaler intégré dans un graphique

[bast0504]

Bonjour,

Je voudrais un graphique construit uniquement avec les trois dernières colonnes n'ayant aucunes erreurs valeurs.

Dans mon cas les colonnes S2 à S5. Si la colonne S6 est à jour, le graphique prendrait dans ce cas les colonnes S3 à S6.

Merci

 

[ROGER2327]

Re : Formule Decaler intégré dans un graphique

Bonjour bast0504.

Un essai dans le classeur joint.​

Bonne nuit !


ℝOGER2327
#7170

Jeudi 26 Gueules 141 (L’Amour absolu, deliquium - fête Suprême Tierce)
2 Ventôse An CCXXII, 0,0923h - cornouiller
2014-W08-4T00:13:17Z

 

[job75]

Re : Formule Decaler intégré dans un graphique

Bonjour bast0504, salut Roger,

Fichier joint avec une solution bien moins complète que celle de Roger mais plus simple.

Voyez les noms définis dercol, N_1 N_2 N_3, S_1 S_2 S_3 ainsi que la MFC en ligne 5.

A+

 

[job75]

Re : Formule Decaler intégré dans un graphique

Re,

On peut utiliser cette fonction VBA pour déterminer dercol :

Function DerniereColonne(r As Range) As Byte
Dim i As Byte
For i = 1 To r.Columns.Count
  If Application.Count(r.Columns(i)) < r.Rows.Count _
    Then DerniereColonne = i - 1: Exit Function
Next
End Function

Fichier (2).

A+

 

[job75]

Re : Formule Decaler intégré dans un graphique

Annulé, trop compliqué...

 

[job75]

Re : Formule Decaler intégré dans un graphique

Re,

Cette fonction permet de faire la même chose que les formules de Roger :

Function ValSerie(r As Range, ordre As Byte) As Range
Dim i%, n As Byte
For i = r.Columns.Count To 1 Step -1
  If Application.Count(r.Columns(i)) = r.Rows.Count Then n = n + 1
  If n = ordre Then Set ValSerie = r.Columns(i): Exit Function
Next
End Function

Fichier (3).

Nota : téléchargez le fichier sur le bureau, il y a une alerte à la 1ère ouverture seulement.

A+