masquer toutes les colonnes sauf celle de la cellule active

michel.dupont

XLDnaute Occasionnel
bonjour
dans une feuille comprenant 733 colonnes (colonne A + 2 colonnes par jour dans l'année...donc colonne
A jusquà la colonne ABC)...
comment par macro masquer toutes les colonnes (excepté la colonne A) dont la cellule en ligne 2 n'est pas égale en valeur (il s'agit de date jj/mm/aa) à une cellule de référence (qui est la cellule "ABE5")
autrement dit..comment ne conserver dès lors que la première colonne (colonne A) et les colonnes qui ont en ligne 2 une cellule égale à la valeur de la cellule ABE5
en pratique par exemple - si la cellule FB 2 et FC 2 ont une date identique à celle reprise en ABE5 seuls les colonnes FB et FC doivent être affichées en plus de la colonne A qui doit être toujours visible..
bien entendu FB et FC peuvent varier...
j'espère ne pas avoir été trop "brouillon"
merci de votre intérêt
Michel
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

Si j'ai bien compris
(à mettre dans le code de la feuille où les colonnes doivent être masquées)
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
[B1].Resize(, Application.Columns.Count - 1).EntireColumn.Hidden = Target = [ABE5]
Target.EntireColumn.Hidden = False
End Sub
PS: Test OK sur mon PC
(Mais comme dit par Lone-Wolf avec une fichier Exemple fourni par tes soins, on pourra conclure la chose ; ))
 

Lone-wolf

XLDnaute Barbatruc
Bonsoir Jean Marie :)

@Staple1600

Moi c'est Dodo (pas endormi ok! :mad::p:D) si jamais. ;)

Quoi que pas très longue à faire, j'ai le 6ème sens féminin qui me dit que ce n'est pas ça. Imagine si il y a plusieures colonnes qui ont la mémé en dattes :D (pardon, la même date), comment en afficher que deux?! :rolleyes:
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonsoir Jean Marie :)

@Staple1600

Moi c'est Dodo (pas enormi ok! :mad::p:D) si jamais. ;)
Rien compris à cette phrase.

Quoi que pas très longue à faire, j'ai le 6ème sens féminin qui me dit que ce n'est pas ça. Imagine si il y a plusieures colonnes qui ont la mémé en dattes :D (pardon, la même date), comment en afficher que deux?! :rolleyes:
Voir la fin de mon message précédent pour la phrase ci-dessus :rolleyes:
EDITION:Bonjour job75
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonsoir michel.dupont, Lone-wolf, JM,

A lancer par bouton ou raccourci clavier ou Alt+F8 :
Code:
Sub Masquer()
'raccourci clavier Ctrl+M
Application.ScreenUpdating = False
Rows(1).Insert
[B1:ABC1] = "=1/(B3=$ABE6)"
On Error Resume Next 'si aucune SpecialCell
[B1:ABC1].SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Hidden = True
Rows(1).Delete
End Sub

Sub Afficher()
'raccourci clavier Ctrl+A
Columns.Hidden = False
End Sub
Bonne nuit.
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Gerard, Jean Marie, Michel, le Forum :)

@job75: si Michel se daignait de répondre et joindre un fichier, ce serait mieux non? Pourquoi travailler dans le vide? :rolleyes:

Michel à dit: si la cellule FB 2 et FC 2 ont une date identique à celle reprise en ABE5 seuls les colonnes FB et FC doivent être affichées en plus de la colonne A qui doit être toujours visible..
Feuille comprenant 733 colonnes
Et si en réalité il y a aussi P2 Q2 ou autres colonnes qui ont une date identique??
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour Lone-wolf,

Sur un truc aussi simple pas besoin de joindre un fichier, il se fabrique facilement.

A+
 

Lone-wolf

XLDnaute Barbatruc
Re Gerard

@job75

As-tu lu la dernière phrase que j'ai écrit? Va pas me dire que tu vois comment est constitué son classeur quand même?! o_O
 

Lone-wolf

XLDnaute Barbatruc
Bonjour Patrick :)

@Victor21

Effectivement, c'est plus français. :oops:

Mes caisse donc il a feffuir
Ce n'est pas une fuite. Certaines personnes demandent de l'aide sur d'autres Forums et/ou une fois obtenu ce qu'ils veulent, disparaissent sans dire merci.
 
Dernière édition:

job75

XLDnaute Barbatruc
Re Gerard

@job75

As-tu lu la dernière phrase que j'ai écrit? Va pas me dire que tu vois comment est constitué son classeur quand même?! o_O
Je me demande si tu réfléchis avant d'écrire.

Il est évident que si P2 et Q2 ont une date identique à ABE5, en plus de FB2 et FC2, cela fera 4 colonnes affichées + la colonne A.
 

Lone-wolf

XLDnaute Barbatruc
Re

Il est évident que si P2 et Q2 ont une date identique à ABE5, en plus de FB2 et FC2, cela fera 4 colonnes affichées + la colonne A.
@job75 : relis le message de Michel. Mis à part la colonne A, il ne veux que 2 colonnes qui soient affichées. Est-ce que ta macro le fait?
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum, michel.dupont, Victor21, Lone-Wolf, job75

@job75
Je me suis permis de reprendre ta macro initiale pour la modifier comme suit
Tu valides la chose?
(ou il y a un truc qui m'échappe et qui explique pourquoi tu n'as pas opté pour ce "allione" ?)
VB:
Sub MasqueDemasque()
Application.ScreenUpdating = False
Rows(1).Insert
With [B1:ABC1]
.Value = "=1/(B3=$ABE6)"
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(-4123, 16).EntireColumn.Hidden = Not .SpecialCells(-4123, 16).EntireColumn.Hidden
End With
Rows(1).Delete
End Sub
 
Dernière édition:

Victor21

XLDnaute Barbatruc
Supporter XLD
Re, Lone-wolf.
[...] relis le message de Michel. Mise à part la colonne A, il ne veux que 2 colonnes qui soient affichées. [...]
"Mis à part" est invariable, et vouloir, à la 3° personne du singulier de l'indicatif présent, se termine par un T.
Et...
... Moi aussi, je sais être lourd ;)
Le Coche et la Mouche
Dans un chemin montant, sablonneux, malaisé,
Et de tous les côtés au Soleil exposé,
Six forts chevaux tiraient un Coche.
Femmes, Moine, vieillards, tout était descendu.
L'attelage suait, soufflait, était rendu.
Une Mouche survient, et des chevaux s'approche ;
Prétend les animer par son bourdonnement ;
Pique l'un, pique l'autre, et pense à tout moment
Qu'elle fait aller la machine,
S'assied sur le timon, sur le nez du Cocher ;
Aussitôt que le char chemine,
Et qu'elle voit les gens marcher,
Elle s'en attribue uniquement la gloire ;
Va, vient, fait l'empressée ; il semble que ce soit
Un Sergent de bataille allant en chaque endroit
Faire avancer ses gens, et hâter la victoire.
La Mouche en ce commun besoin
Se plaint qu'elle agit seule, et qu'elle a tout le soin ;
Qu'aucun n'aide aux chevaux à se tirer d'affaire.
Le Moine disait son Bréviaire ;
Il prenait bien son temps ! une femme chantait ;
C'était bien de chansons qu'alors il s'agissait !
Dame Mouche s'en va chanter à leurs oreilles,
Et fait cent sottises pareilles.
Après bien du travail le Coche arrive au haut.
Respirons maintenant, dit la Mouche aussitôt :
J'ai tant fait que nos gens sont enfin dans la plaine.
Ça, Messieurs les Chevaux, payez-moi de ma peine.
Ainsi certaines gens, faisant les empressés,
S'introduisent dans les affaires :
Ils font partout les nécessaires,
Et, partout importuns, devraient être chassés.
 

job75

XLDnaute Barbatruc
@job75
Je me suis permis de reprendre ta macro initiale pour la modifier comme suit
Tu valides la chose?
(ou il y a un truc qui m'échappe et qui explique pourquoi tu n'as pas opté pour ce "allione" ?)
VB:
Sub MasqueDemasque()
Application.ScreenUpdating = False
Rows(1).Insert
With [B1:ABC1]
.Value = "=1/(B3=$ABE6)"
On Error Resume Next 'si aucune SpecialCell
.SpecialCells(-4123, 16).EntireColumn.Hidden = Not .SpecialCells(-4123, 16).EntireColumn.Hidden
End With
Rows(1).Delete
End Sub
Pas du tout JM, et je te laisse chercher pourquoi.
 

Lone-wolf

XLDnaute Barbatruc
Re

@Victor21 : sache que je suis d'origine italienne et en revenant en Suisse , je n'ai fait que 2 ans d'école(7ème et 8ème année primaire).
Je ne suis pas un pro du français, et donc j'ai droit aux erreurs.
 

Discussions similaires


Haut Bas