[RESOLU] Code à simplifier

[maninwhite]

Bonjour à toutes et à tous

Comment puis je simplifier le code ci dessous vp?

Merci d'avance😛

Private Sub CommandButton_afficher_Click()

    Sheets("Stats").Activate

    If ComboBox_top5_mauvais_comportements.Value = "Janvier" Then
        ListBox_top_5_mauvais_comportements.List() = Range("C2:C6").Value
        If ComboBox_top5_mauvais_comportements.Value = "Février" Then
            ListBox_top_5_mauvais_comportements.List() = Range("D2:D6").Value
            If ComboBox_top5_mauvais_comportements.Value = "Mars" Then
                ListBox_top_5_mauvais_comportements.List() = Range("E2:E6").Value
                If ComboBox_top5_mauvais_comportements.Value = "Avril" Then
                    ListBox_top_5_mauvais_comportements.List() = Range("F2:F6").Value
                    If ComboBox_top5_mauvais_comportements.Value = "Mai" Then
                        ListBox_top_5_mauvais_comportements.List() = Range("G2:G6").Value
                        If ComboBox_top5_mauvais_comportements.Value = "Juin" Then
                            ListBox_top_5_mauvais_comportements.List() = Range("H2:H6").Value
                            If ComboBox_top5_mauvais_comportements.Value = "Novembre" Then
                                ListBox_top_5_mauvais_comportements.List() = Range("A2:A6").Value
                                If ComboBox_top5_mauvais_comportements.Value = "Décembre" Then
                                    ListBox_top_5_mauvais_comportements.List() = Range("B2:B6").Value

                                End Sub

 

[tototiti2008]

Re : Code à simplifier

Bonjour,

où sont passés les mois de Juillet à Octobre ?

 

[maninwhite]

Re : Code à simplifier

Je travaille par année fiscale, c'est pour cela...

Le tableau de l'année prochaine sera avec tous les mois

 

[tototiti2008]

Re : Code à simplifier

Re,

et donc l'année prochaine, quand on choisira Juillet, dans quelles cellules aller alimenter la Listbox ? (même question pour Août à Octobre)

 

[maninwhite]

Re : Code à simplifier

Juillet à Juin
A jusqu'à L

Parts du principe que l'on a tous els mois

 

[tototiti2008]

Re : Code à simplifier

Re,

Dans le code posté Juin = H et Novembre = A
Comment Juillet à Juin peuvent donner de A à L ?

Je crois qu'un bout de fichier va s'imposer...

 

[JNP]

Re : Code à simplifier

Salut TotoTiti 🙂,
Comme cela peut-être 😛

Private Sub ComboBox_top5_mauvais_comportements_Change()
Dim TestCol As Integer, I As Integer
With Sheets("Stats")
ListBox_top_5_mauvais_comportements.Clear
If Not .Range("1:1").Find(ComboBox_top5_mauvais_comportements.Text, LookAt:=xlPart) Is Nothing Then
TestCol = .Range("1:1").Find(ComboBox_top5_mauvais_comportements.Text, LookAt:=xlPart).Column
For I = 2 To 6
ListBox_top_5_mauvais_comportements.AddItem .Cells(I, TestCol)
Next I
End If
End With
End Sub

et pour charger le combobox

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 12
ComboBox_top5_mauvais_comportements.AddItem Application.WorksheetFunction.Proper(Format(CDate("01/" & I & "/10"), "mmmm"))
Next I
End Sub

Bonne soirée 😎
Ajout : Le fichier est ICI...

 

[maninwhite]

Re : Code à simplifier

Ah encore une fois mon sauveur intervient lol

Malheureusement, lors de l'execution de la macro

Permission denied

Je ne sais as si cela à quelque chose à voir, mais mon classeur est protégé et mes feuilles aussi par l'intermédiaire du code ci dessous.

Private Sub Workbook_Open()

    Dim oneSheet As Worksheet

    For Each oneSheet In ThisWorkbook.Worksheets
        With oneSheet
            .Protect Password:="cageot", UserInterfaceOnly:=True
            .EnableOutlining = True
        End With
    Next oneSheet

    fenetre_de_connexion.Show

End Sub

Merci

 

[JNP]

Re : Code à simplifier

Re 🙂,
Logiquement non, vu que je lis juste des données dans la feuille, et que je n'en écrit pas. Ta feuille n'est pas masquée ?
Sinon, ton fichier ne serait pas partagé, par hasard (un certain nombre de macro ne tournent pas en mode partagé) ?
Autrement, je ne vois pas 😱...
Bon courage 😎

 

[maninwhite]

Re : Code à simplifier

Pour le partage du fichier, je n'ai rien changer donc théoriquement non.
La seule feuille qui est masquée dans mon fichier est la feuille "base" feuille avec laquelle j'alimente la plupart de mes comboboxs...

 

[JNP]

Re : Code à simplifier

Re 🙂,
Est-ce que dans tes options, approuver le modèle VBA est bien coché ?
A + 😎

 

[maninwhite]

Re : Code à simplifier

C'est bon, j'ai résolu le problème comme un grand.😛😎

Vu que ma combobox est alimentée avec la propriété "rowsource" il ne fallait pas que j'ajoute le code

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 12
ComboBox_top5_mauvais_comportements.AddItem Application.WorksheetFunction.Proper(Format(CDate("01/" & I & "/10"), "mmmm"))
Next I
End Sub

Merci😎

 

[JNP]

Re : Code à simplifier

Re 🙂,

Vu que ma combobox est alimentée avec la propriété "rowsource" il ne fallait pas que j'ajoute le code

C'est plus propre que la RowSource, mais c'est toi qui vois 😛.
Bye 😎