[RESOLU] Code à simplifier

maninwhite · 13 Octobre 2010

Bonjour à toutes et à tous

Comment puis je simplifier le code ci dessous vp?

Merci d'avance😛

Code:

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 · 13 Octobre 2010

Re : Code à simplifier

Bonjour,

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

maninwhite · 13 Octobre 2010

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 · 13 Octobre 2010

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 · 13 Octobre 2010

Re : Code à simplifier

Juillet à Juin
A jusqu'à L

Parts du principe que l'on a tous els mois

tototiti2008 · 13 Octobre 2010

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 · 13 Octobre 2010

Re : Code à simplifier

Salut TotoTiti 🙂,
Comme cela peut-être 😛

Code:

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

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

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

maninwhite · 14 Octobre 2010

Re : Code à simplifier

Ah encore une fois mon sauveur intervient lol

Malheureusement, lors de l'execution de la macro

Code:

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.

Code:

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 · 14 Octobre 2010

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 · 14 Octobre 2010

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 · 14 Octobre 2010

Re : Code à simplifier

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

maninwhite · 14 Octobre 2010

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

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 · 14 Octobre 2010

Re : Code à simplifier

Re 🙂,

maninwhite à dit:
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 😎

[RESOLU] Code à simplifier

maninwhite

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

maninwhite

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Discussions similaires

[RESOLU] Code à simplifier

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency