Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…