Sélectionner dans menu déroulant pour obtenir un graphique

Re : Sélectionner dans menu déroulant pour obtenir un graphique

bonsoir davidp

Vois si cela te convient

Re : Sélectionner dans menu déroulant pour obtenir un graphique

Bonjour david,
ton fichier en retour

à+

Edit: Bonjour PierreJean

Re : Sélectionner dans menu déroulant pour obtenir un graphique

Bonjour Pierrejean et Phlaurent,

je vous remercie pour votre aide et votre rapidité.

Visiblement , ce sont 2 méthodes différentes que je vais essayer de comprendre .

Pour la méthode de pierrejean :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then 'cela correspond à la cellule du menu déroulant
Set c = ActiveSheet.Columns(1).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)'a quoi correspond le 1
If Not c Is Nothing Then
ActiveSheet.ChartObjects("Graphique 4").Activate' pourquoi graphique 4?
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = "=Feuil1!R" & c.Row & "C2:R" & c.Row & "C" 'a quoi correspond le R
End If
End If
End Sub

Pour la méthode de Phlaurent .

Je ne vois pas comment le miracle se produit

Merci encore à tous les 2

Bonne soirée

Re : Sélectionner dans menu déroulant pour obtenir un graphique

Re

Pour la methode PhLaurent
Voir en D1 > H1 les formules
Ainsi que les valeurs de la serie

Re : Sélectionner dans menu déroulant pour obtenir un graphique

Rebonjour ,

Merci Pierrejean , je vais étudier cela dans la soirée.

je vous tiens au courant

Bonne soirée

Re : Sélectionner dans menu déroulant pour obtenir un graphique

Bonsoir PierreJean PHLAURENT55 ,

Un grand merci pour votre aide .

j'ai compris la formule de PHLAURENT55

Merci encore pour votre aide

A Bientôt sur le forum

DAVIDP