Masquer plusieurs colonnes sur plusieurs critères vba
Résolu/Fermé
Looping38
Messages postés
92
Date d'inscription
samedi 22 octobre 2016
Statut
Membre
Dernière intervention
20 juillet 2020
-
4 déc. 2018 à 09:37
Looping38 Messages postés 92 Date d'inscription samedi 22 octobre 2016 Statut Membre Dernière intervention 20 juillet 2020 - 6 déc. 2018 à 16:01
Looping38 Messages postés 92 Date d'inscription samedi 22 octobre 2016 Statut Membre Dernière intervention 20 juillet 2020 - 6 déc. 2018 à 16:01
A voir également:
- Masquer plusieurs colonnes sur plusieurs critères vba
- Masquer conversation whatsapp - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Word colonnes indépendantes - Guide
- Comment masquer les amis sur facebook - Guide
1 réponse
Looping38
Messages postés
92
Date d'inscription
samedi 22 octobre 2016
Statut
Membre
Dernière intervention
20 juillet 2020
1
6 déc. 2018 à 16:01
6 déc. 2018 à 16:01
Sans retour du forum, j'ai bricolé ça qui fonctionne finalement.
Le else m'enlevait la croix sur les conditions suivantes...
J'ai également enlevé l'appel de la macro Appliquer_Préférences qui ré-affichait toutes les colonnes.
Si ça peut servir...
Le else m'enlevait la croix sur les conditions suivantes...
J'ai également enlevé l'appel de la macro Appliquer_Préférences qui ré-affichait toutes les colonnes.
Si ça peut servir...
Application.ScreenUpdating = False
Application.EnableEvents = False
derncol = ActiveSheet.Cells(14, Cells.Columns.Count).End(xlToLeft).Column
For n = 7 To derncol
Columns(n).Hidden = False
Next n
nbrecol = derncol - 6
For n = 7 To derncol
'*********** Honnoraires Hospi ***************
If Val(Cells(14, n).Value) < Val(Me.TextBox19.Value) And Cells(14, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
' ********** Chambre particulière ************
If Val(Cells(21, n)) < Val((Me.TextBox20.Value)) And Cells(21, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
'*********** Allocation Naissance *************
If Val(Cells(29, n)) < Val((Me.TextBox21.Value)) And Cells(29, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
'*********** Honoraires spécialistes ***********
If Val(Cells(33, n)) < Val((Me.TextBox22.Value)) And Cells(33, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
'*********** Médecines douces *****************
If Val(Cells(46, n)) < Val((Me.TextBox23.Value)) And Cells(46, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
'*********** Appareillage *********************
If Val(Cells(57, n)) < Val((Me.TextBox24.Value)) And Cells(57, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
'*********** Prothèses dentaires ***************
If Val(Cells(84, n)) < Val((Me.TextBox25.Value)) And Cells(84, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
'*********** Orthodontie ***********************
If Val(Cells(80, n)) < Val((Me.TextBox26.Value)) And Cells(80, n).Value <> "Frais Réels" Then Cells(96, n).Value = "x"
'*********** Tarif Maxi ***********************
If Val(Cells(89, n)) > Val((Me.TextBox27.Value)) Then Cells(96, n).Value = "x"
Next
For x = 7 To derncol
If Cells(96, x) = "x" Then Columns(x).Hidden = IIf(Columns(x).Hidden = True, False, True)
Next
''************Application des préférences
For n = 7 To derncol
If Cells(10, n) = UserForm6.TextBox1.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox2.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox3.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox4.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox5.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox6.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox7.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox8.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox9.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox10.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox11.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox12.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox13.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
If Cells(10, n) = UserForm6.TextBox14.Value Then Columns(n).Hidden = True 'Else Columns(n).Hidden = False
Next n
Application.EnableEvents = True
Application.ScreenUpdating = True
ActiveCell.Select
Me.Hide
End Sub