Ceci est-il faisable?

Version imprimable

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:

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

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

Code:

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

08/10/2014, 14h12
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
08/10/2014, 14h30
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.
08/10/2014, 14h52
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
08/10/2014, 14h57
Marc-L

Bonjour,

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

Ceci pour remplacer cela

Code:

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:

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 ?

08/10/2014, 15h13
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.
08/10/2014, 17h14
Un Internaute

Merci keygen08 & Menhir,
Voilà le fichier c'est mieux pour tout le monde.
Merci encore à vous deux de consacré de votre temps.
Bonne fin de soirée
Bien cordialement
08/10/2014, 17h56
keygen08

Pas plus avancé, je ne sais pas et ne comprend pas ce que tu veux obtenir
je clic sur afficher masquer, il doit se passer quoi, au premier clic, au deuxieme clic ?
08/10/2014, 18h14
Un Internaute

Bonsoir keygen08,
Ne pas tenir compte de l'affectation des boutons actuels,
Premier tableau celui de gauche => Un premier clic apparaît colonnes D:E, Un deuxième clic F:G: puis retour à D:E après enregistrement ou pas
Deuxième tableau celui de droite => Un premier clic apparaît colonnes K:L, Un deuxième clic M:N puis retour à I:J après enregistrement ou pas
Tableau joint
Encore merci
Bien cordialement
08/10/2014, 21h28
Un Internaute

Bonsoir le forum,
J'ai essayé de faire quelque chose!
Certainement qu'il y a mieux
Bonne fin de soirée
Bien cordialement

A coller au lieu et place dans module1

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
Sub AfficherMasquerColonnes()
Dim i As Integer
 
With ActiveSheet
    .Unprotect Password:="" 'mot de passe à placer entre ces guillemets
 
    If .Columns("D:E").Hidden = True And .Columns("F:G").Hidden = True Then i = 1
    If .Columns("D:E").Hidden = False And .Columns("F:G").Hidden = True Then i = 2
    If .Columns("D:E").Hidden = True And .Columns("F:G").Hidden = False Then i = 3
    If .Columns("D:E").Hidden = False And .Columns("F:G").Hidden = False Then i = 4
 
    Select Case i
    Case 1
    .Columns("D:E").Hidden = False
    Case 2
    .Columns("D:E").Hidden = True
    .Columns("F:G").Hidden = False
    Case 3
    .Columns("d:G").Hidden = False
    Case 4
     .Columns("d:G").Hidden = True
 
    End Select
    .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

A adapter pour le module 2

09/10/2014, 07h23
Un Internaute

Bonjour keygen08,
Ça fonctionne SUPER bien.
Ç'était ma demande.
Après une nuit de réflexion serait-il possible:

1 En ouvrant le fichier de voir TVA 19.6% dans les 2 tableaux comme ce que tu as fait
2 Premier clic faire apparaître TVA 7% seulement donc fermer mais fermer TVA 19.6%
3 Deuxième clic faire apparaître TVA 5.5% mais fermer TVA 19.6% & TVA 7%
4 Quatrième clic faire apparaître TVA 19.6% TVA 7% & TVA 5.5% pour comparaison
5 Lorsqu'on referme ou enregistre le fichier retour à la seule TVA 19.6% visible

Je m'excuse vraiment de te mettre à contribution mais j'ai une trentaine de documents où je vais pouvoir appliquer cette méthode.
Ce fichier va me servir d'exemple.
Bonne journée à toi et encore merci.
Bien cordialement

Joint fichier suivant ta méthode
09/10/2014, 08h46
Menhir

Fais une liste déroulante et tu pourras les faire apparaitre dans l'ordre que tu veux.

Bonjour, la nuit porte conseil
Pour remplacer le code de hier

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
Sub AfficherMasquerColonnes()
Dim i As Integer
 
With ActiveSheet
    .Unprotect Password:="" 'mot de passe à placer entre ces guillemets
 
    If .Columns("D:E").Hidden = True And .Columns("F:G").Hidden = True Then i = 1
    If .Columns("D:E").Hidden = False And .Columns("F:G").Hidden = True Then i = 2
    If .Columns("D:E").Hidden = True And .Columns("F:G").Hidden = False Then i = 3
    If .Columns("D:E").Hidden = False And .Columns("F:G").Hidden = False Then i = 4
 
    Select Case i
    Case 1
    .Columns("b:c").Hidden = True
    .Columns("i:j").Hidden = True
    .Columns("D:E").Hidden = False
    .Columns("k:l").Hidden = False
    Case 2
    .Columns("D:E").Hidden = True
    .Columns("k:l").Hidden = True
    .Columns("F:G").Hidden = False
    .Columns("m:n").Hidden = False
    Case 3
    .Columns("b:c").Hidden = False
    .Columns("i:j").Hidden = False
    .Columns("d:G").Hidden = False
    .Columns("k:n").Hidden = False
    Case 4
     .Columns("d:G").Hidden = True
     .Columns("k:n").Hidden = True
 
    End Select
    .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

09/10/2014, 11h36
Un Internaute

Bonjour keygen08,
La nuit porte conseil te remercie!!!
Bah! le VBA c'est un peu de l'hébreu pour moi!!!
Lorsque ça reste dans les "clous" ça peut aller car je prends un exemple et je l'adapte...mais lorsque ça sort de "l'ordinaire"!!!
Un GRAND MERCI pour ta GENTILLESSE, ton EFFICACITÉ et ta PATIENCE car avec moi il faut en avoir!!!
Merci également à Menhir car ça j'ai déjà fait ça mais je voulais la solution de keygen08 pour servir d'exemple
Bonne journée à vous deux
Bien cordialement