problème de sélection de plage pour un graphique

[chris]

mon problème est simple: je souhaite créer automatiquement un graphique mais les plages de cellules que je veux utiliser ne se trouveront pas toujours aux mêmes coordonnées.
J'ai écrit ça:
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData:=sheets('eta_pond').range(?????), plot by:=xlcolumns
ActiveChart.SeriesCollection.xlValues = '=eta_pond!??????????'
ActiveChart.Location where:=xlLocationAsNewSheet, Name:='courbe d'étalonnage (pondérée)'
With ActiveChart
has Title = True
ChartTitle.Characters.Text = 'courbe d'étalonnage'
End With

le tout étant de remplacer les points d'interrogations par les bonnes plages...
quelqu'un peut-il m'aider?

 

[Robert]

Bonjour Chris, bonjour le forum,

Essaie avec UsedRange. Avec le peu d'indications que tu donnes sur la manière de localiser la plage, il sera difficile de t'aider davantage...

 

[chris]

en fait, pour localise la plage, il faut chercher l'entête de la colonne (toujours sur la ligne 7, le nombre de ligne est connu sous le nom de 'nb_eta'...
désolé pour le manque de clarté mais merci pour ton aide!

 

[Robert]

Bonjour Chris, bonjour le forum,

Ha c'est déja mieux. Bon il faut rechercher dans la ligne 7. Tu pourrais utiliser une InputBox dans laquelle l'utilisateur taperais la valeur cible. Regarde l'exmple ci-dessous pour récupérer la colonne (puisque tu as déja les lignes) :

Sub Macro1()
Dim cel As Range
Dim a As String
Dim col As Byte

a = InputBox('Tapez l'en-tête', Rechercher)
For Each cel In Range(Cells(7, 1), Cells(7, 256).End(xlToLeft))
If cel.Value = a Then
col = cel.Column
Exit For
End If
Next cel
MsgBox col
End Sub

 

[MichelXld]

bonsoir Chris , bonsoir cher ami Robert

tu pouras peut etre adapter l'exemple dans ce lien

Lien supprimé

Lien supprimé


bonne soirée
MichelXld

 

[Robert]

Bojour Chris, Michel, bonjour le forum,

Heu ! Michel... J'étais grave à coté de la plaque...C'est par où déjà la sortie vers le zop ???