Discussion :

[Un Internaute]

Bonjour le forum,

J'ai fait une macro pour masquer les colonnes F:G voir ci-dessous:
Serait-il possible avec un deuxième clic sur le même bouton de faire masquer également les colonnes H:I?
Merci pour vos éventuelles réponses
Bien cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub AfficherMasquerColonnesHI()
ActiveSheet.Unprotect Password:="" 'mot de passe à placer entre ces guillemets
With ActiveSheet
If .Columns("F:G").Hidden = True Then
.Columns("F:G").Hidden = False
Else: .Columns("F:G").Hidden = True
 
End If
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="" 'mot de passe à placer entre ces guillemets
End Sub

[keygen08]

Bonjour
au premier clic cache F:G
au deuxieme clic, cache H:I
au troisieme clic , Affiche F:I

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub AfficherMasquerColonnesHI()
With ActiveSheet
.Unprotect Password:="" 'mot de passe à placer entre ces guillemets
 
    If .Columns("F:i").Hidden = True Then
        If .Columns("F:G").Hidden = True And .Columns("h:i").Hidden = False Then
        .Columns("h:i").Hidden = True
        Else
        .Columns("f:i").Hidden = False
        End If
    Else
        .Columns("F:G").Hidden = True
    End If
 
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="" 'mot de passe à placer entre ces guillemets
End With
End Sub

[Un Internaute]

Bonjour keygen08,
Super ton truc jamais fait.
Je me suis mal exprimé. J'ai des taux de tva qui sont respectivement: 19.6% dans Colonnes B:C 7% dans colonnes D:E et 5.5% dans colonnes F:G
Comment peut-on "jongler" avec un seul bouton sur les trois?
TOUTES MES EXCUSES pour mon explication fantaisiste la première fois.
Bien cordialement à toi

[keygen08]

Je crains fort qu'il ne te faille expliquer ce que tu veux obtenir parce que la, je n'arrive pas a lire entre les lignes.

[Un Internaute]

Oui je sais je m'explique très mal et pas facile à suivre.
Toujours présent à l'écran taux TVA 19.6% colonnes B:C.Si on clic une première fois sur le bouton apparaîtront colonnes D:E (TVA 7%) une autre fois apparaîtront colonnes F:G (TVA 5.5%)
Ce fichier n'est pas prévu pour être enregistré simplement des simulations.
Donc lorsqu'on le referme il revient sur colonnes B:C apparentes TVA 19.6%.
Si c'est pas possible je mettrait le fichier en ligne.
Merci à toi
Bien cordialement

[Marc-L]

Bonjour,

envisager tout simplement de grouper les colonnes, consulter l'aide d'Excel, sait-on jamais …

[Menhir]

Il vaudrait mieux que tu mettes dans tes cellules une liste déroulante avec un choix des différents taux de TVA que d'essayer de masquer des colonnes qui, de toute façon, ne changeront rien aux calculs.

Pour créer une liste déroulante, tu places les différents taux dans un coin quelconque de ta feuilles (un par cellule).
Tu sélectionnes la cellule où tu veux placer la liste déroulante et tu fais ;
Ruban Données > Validation de données > Validation de données > Autoriser = Liste > Source = la zone où se trouve les cellules où tu as mis les différents taux de TVA.

[keygen08]

Ceci pour remplacer cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub AfficherMasquerColonnesHI()
With ActiveSheet
.Unprotect Password:="" 'mot de passe à placer entre ces guillemets
 
        If .Columns("f:g").Hidden = True And .Columns("d:e").Hidden = True Then .Columns("d:e").Hidden = False
        If .Columns("f:g").Hidden = True And .Columns("d:e").Hidden = False Then .Columns("f:g").Hidden = False
 
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="" 'mot de passe à placer entre ces guillemets
End With
End Sub

celui ci est a coller sur la feuille elle meme, cela permet de masquer les quatres colonnes a chaque activation de la feuille, clic droit sur l'onglet, visualiser le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Activate()
With ActiveSheet
.Unprotect Password:="" 'mot de passe à placer entre ces guillemets
 
         .Columns("d:g").Hidden = False
 
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="" 'mot de passe à placer entre ces guillemets
End With
End Sub

Quand on fait apparaitre DE, doit t-on masquer BC ?