(RESOLU)effacer quand je masque le Tab

chaelie2015

XLDnaute Accro
BONSOIR FORUM
Dans ma feuille1 j'ai 08 tableaux, chaque tableau est de 4 colonnes et 12 lignes, je souhaite effacer le contenu de chaque tableau (de la ligne 4 a 12 ) si il est masque.

Exemple si j'deux tableaux (B-E) et (F-I) si je masque le 2EME tableau les données de ce 2eme tableau( a partir de la ligne 4-12) seulement s'effacera automatiquement.
SALUTATION
 

Pièces jointes

  • charlie effacer tab masque.xlsx
    9.7 KB · Affichages: 17
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re : effacer quand je masque le Tab

Bonsoir chaelie,

regarde si ça te convient. Double clique sur les colonnes de ton choix. Pour les réafficher, double-clic sur la zone vide à droite.


A+ :cool:
 

Pièces jointes

  • effacer tableau masque.xls
    37 KB · Affichages: 26
Dernière édition:

chaelie2015

XLDnaute Accro
Re : effacer quand je masque le Tab

Bonjour LONE-WOLF
Merci pour la réponse , mais ça n'a pas fonctionne comme je souhaite, ci rattaché le fichier avec un nouveau détails concernant le masquage et l'affichage des Tabl,voila donc je souhaite si je change la cellule A1 (valeur variable de 1 a 8)
si je saisi dans A1 la valeur par exemple "2" , je souhaite les contenus des tableaux 3 4 5 6 7 8 s'effacent automatiquement et ainsi de suite .....
a chaque fois je masque un tableau ou des tableaux leurs contenus s'effacent automatiquement.
MERCI PAR AVANCE
Salutations
 

Pièces jointes

  • CHARLIE effacer tableau masque.xls
    42.5 KB · Affichages: 20

Lone-wolf

XLDnaute Barbatruc
Re : effacer quand je masque le Tab

Bonjour chaelie,

fait un test avec ceci, mais avant écrit afficher les colonnes en AL2 et fusionne les cellules jusqu'à AQ2.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
   On Error GoTo ErrHand
   n = Range("A1").Value
    For i = 1 To Range("B:AG").Columns.Count
        Range("Tablo" & n).ClearContents
        Range("Tablo" & n).EntireColumn.Hidden = False
    If n = Range("A1").Value Then Range("Tablo" & i).EntireColumn.Hidden = True
    Next
ErrHand:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AL2:AQ2")) Is Nothing Then
Range("A1").ClearContents
Range("B:AG").EntireColumn.Hidden = False
Application.Goto Range("A1")
End If
End Sub


A bientôt :cool:
 

chaelie2015

XLDnaute Accro
Re : effacer quand je masque le Tab

Re
Désolé Lone - wolf, je pense que j'ai mal expliqué mon souci:confused:
1. la cellule A1: pour afficher le nombre des tableaux
le code existe deja dans mon dernier fichier
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("A1") = "" Then
  Range("A1") = 1
End If
   
   Application.ScreenUpdating = False
    If Target.Address = "$A$1" Then
        Columns("B:AG").Hidden = True
        Range(Cells(1, 2), Cells(1, 1 + Target.Value * 4)).EntireColumn.Hidden = False
    End If
   Application.ScreenUpdating = True
End sub
2. le souci que je pose:
supposant que les 8 tableaux sont renseignés , je souhaite si je saisi dans la cellule A1 lA VALEUR 3 j'aurais
- les trois tableaux 1 2 3 vide
- meme les tableaux 4 5 6 7 8 qui sont masqués doivent etre vide
etc....
Salutations
 

Si...

XLDnaute Barbatruc
Re : effacer quand je masque le Tab

Salut
2. le souci que je pose:
supposant que les 8 tableaux sont renseignés , je souhaite si je saisi dans la cellule A1 lA VALEUR 3 j'aurais
- les trois tableaux 1 2 3 vide
- meme les tableaux 4 5 6 7 8 qui sont masqués doivent etre vide
Tu veux donc tout vider et ne cacher que les derniers tableaux ! Essaie alors cela
Code:
Private Sub Worksheet_Change(ByVal R As Range)
  Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address = "$A$1" Then
    If R = "" Then R = 1
    Columns("B:AG").Hidden = 1
    Cells(1, 2).Resize(, R * 4).EntireColumn.Hidden = 0
    Cells(4, 2).Resize(8, R * 4) = ""
  End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla