Microsoft 365 liste déroulante sélection multiple à l'aide de VBA

Mohcine02

XLDnaute Nouveau
Bonjour , J'ai inséré un graphique à une data et je souhaite créer un menu de sélection multiple pour pouvoir sélectionner une année ou une date précise ou bien plusieurs années ... ci-joint le fichier de base.

Merci
 

Pièces jointes

  • Version 1.0.xlsx
    25.3 KB · Affichages: 7

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Mohcine, et bienvenu sur XLD,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [E4:E6]) Is Nothing Then
        Dim De, A, i
        Application.ScreenUpdating = False
        De = [E4]: A = [E6]: Début = 0: Fin = 0
        tablo = Range("A2:A" & Range("A65500").End(xlUp).Row)
        For i = 1 To UBound(tablo)
            If Year(tablo(i, 1)) + 1 = De And Début = 0 Then Début = i + 1
            If Year(tablo(i, 1)) = A And Fin = 0 Then Fin = i + 1
            If Début <> 0 And Fin <> 0 Then Exit For
        Next i
        ActiveSheet.ChartObjects("Graphique 1").Activate
        ActiveChart.SetSourceData Source:=Range("" & "'Data'!$A$" & Début & ":$B$" & Fin & "")
    End If
Fin:
End Sub
Il suffit de changer une des deux dates pour retracer la courbe.
 

Pièces jointes

  • Version 1.0 (1).xlsm
    29.3 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
313 316
Messages
2 097 096
Membres
106 836
dernier inscrit
ChristopheDF