masquer lignes et colonnes en fonction du choix listbox multiselection

Version imprimable

11/07/2015, 19h26
francis45

1 pièce(s) jointe(s)

masquer lignes et colonnes en fonction du choix listbox multiselection

Bonjour à tous
Et bravo à tous les pros qui consacrent de leur temps a aidé les novices comme moi
Jusque ici j’ai réussi grâce a toutes les solutions propose sur le forum et en adaptant à mes besoins
A me débrouiller tout seul et à apprendre les rudiments du VBA
Mais là je sèche
Voici mon problème
1 Je souhaiterais depuis une List box multi choix masquer les lignes qui ne font pas partis du choix

2 Masquer les colonnes qui se trouve avant la valeur choisit dans le combobox 1 afficher les colonnes qui se trouve entre la valeur du combobox1 et la valeur du combobox2 et masquer les colonnes après la valeur du combobox 2

3 Sélectionné les cellules de tarif visible et applique à l’aide de la valeur entre dans le textbox1 une augmentation de X %

Ne sachant pas dans quelle direction aller toutes les propositions seront les bien venues

Merci d’ avance
Ci-joint mon fichier

1 pièce(s) jointe(s)

Bonjour Francis, bonjour le forum,

En pièce jointe ton fichier modifié. J'ai supprimé les cellules fusionnées, ennemies de VBA, rajouté un bouton et modifié le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private O As Worksheet
 
Private Sub UserForm_Initialize()
Dim Tableau As Variant
 
Set O = Sheets("TARIF ")
O.Rows(9 & ":" & 103).Hidden = False
O.Columns("B:AM").Hidden = False
Me.Choix.List = O.Range("A9:A103").Value
Tableau = O.Range("B8:AM8")
ComboBox1.List = Application.Transpose(Tableau)
ComboBox2.List = Application.Transpose(Tableau)
End Sub
 
Private Sub B_multiple_Click()
Me.Choix.MultiSelect = fmMultiSelectMulti
End Sub
 
Private Sub B_simple_Click()
Me.Choix.MultiSelect = fmMultiSelectSingle
End Sub
 
Private Sub ComboBox1_Change()
Dim I As Integer
 
For I = Me.ComboBox1.ListIndex - 1 To 0 Step -1
    Me.ComboBox2.RemoveItem (I)
Next I
End Sub
 
Private Sub validez_Click()
Dim PL As Range
Dim I As Integer
 
Set PL = O.Range("A1")
For I = 0 To Me.Choix.ListCount - 1
    If Me.Choix.Selected(I) = False Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I + 9), Application.Union(PL, O.Rows(I + 9)))
Next I
PL.EntireRow.Hidden = True
Set PL = O.Range("A1")
For I = 2 To Me.ComboBox1.ListIndex + 1
    Set PL = IIf(PL.Cells.Count = 1, O.Columns(I), Application.Union(PL, O.Columns(I)))
Next I
PL.Select
For I = Me.ComboBox1.ListIndex + Me.ComboBox2.ListIndex + 3 To 39
    Set PL = IIf(PL.Cells.Count = 1, O.Columns(I), Application.Union(PL, O.Columns(I)))
Next I
PL.EntireColumn.Hidden = True
O.Range("A5").Select
Unload Me
End Sub

[Édition]
Ligne 44 du code il y a un PL.Select que tu peux supprimer, c'était pour faire mes tests...

12/07/2015, 20h53
francis45

un grand merci

Merci Thautheme
Le temps que tu m’as consacré m’a fait gagner des semaines de galère .
Et je n’aurais pas trouvé tout seul ce code.
C’est exactement ce que je cherchais.
Il ne me reste plus qu’à trouver comment sélectionner les cellules visibles contenant les tarifs pour leur appliquer le pourcentage d’augmentation désiré.

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub validez_Click()
Dim PL As Range
Dim TheCell As Range
Dim I As Integer
Dim Coef
 
    Set PL = O.Range("A1")
    For I = 0 To Me.Choix.ListCount - 1
        If Me.Choix.Selected(I) = False Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I + 9), Application.Union(PL, O.Rows(I + 9)))
    Next I
    PL.EntireRow.Hidden = True
    Set PL = O.Range("A1")
    For I = 2 To Me.ComboBox1.ListIndex + 1
        Set PL = IIf(PL.Cells.Count = 1, O.Columns(I), Application.Union(PL, O.Columns(I)))
    Next I
    'PL.Select
    For I = Me.ComboBox1.ListIndex + Me.ComboBox2.ListIndex + 3 To 39
        Set PL = IIf(PL.Cells.Count = 1, O.Columns(I), Application.Union(PL, O.Columns(I)))
    Next I
    PL.EntireColumn.Hidden = True
    O.Range("A5").Select
 
    Set PL = O.Range("B9", O.Cells(O.Rows.Count, "AM").End(xlUp)).SpecialCells(xlCellTypeVisible)
    For Each TheCell In PL
        'On remplace le . par une virgule si besoin
        'Il serait préférable de faire en sorte que la saisi dans le userform soit forcément numérique, il y a des exemples sur le forum ou  dans la FAQ
        Coef = CSng(Replace(Me.TextBox1.Text, ".", ","))
        'On verifie qie coef soit numeric
        If IsNumeric(Coef) Then
            TheCell.Value = TheCell.Value * CSng(Coef)
        Else
            MsgBox "Attention le coéficient doit être une valeur numérique", , "Coéficient non numérique"
        End If
    Next
 
    Unload Me
End Sub

Bonne soirée
++
Qwaz

13/07/2015, 10h18
francis45

un grand merci à tous les deux

bonjour,
je vous remercie, vous m'avez été d'un grand secours.
le fichier est maintenant opérationnel à 100 %. Merci encore