Modification Macro

[Amilo]

Bonsoir le forum,

Je reviens sur un fil du 31/01/09 où Jean-Marcel m'avait résolu le problème par une macro.

Le fichier a évolué depuis et dans lequel j'ai ajouté 3 colonnes en fin de tableau (colonnes en jaune).

La macro indique un massage d'erreur à son exécution.

Je souhaiterais afficher le n° de zone indiqué en cellule "J1" correspondant au mois séléctionné.
Je souhaite également toujours afficher les 3 dernières colonnes en jaune !!

Merci d'avance pour votre soutien.


Slts

 

[Amilo]

Re : Modification Macro

Bonsoir Jean-Marcel,

merci beaucoup pour votre prompte réponse,

Bonne continuation,

Cordialement

 

[Amilo]

Re : Modification Macro

Bonsoir Jean-Marcel, le Forum,

Désolé mais j'aurais une autre demande à vous soumettre dans le fichier ci-joint :

J'ai intégré un 2ème bouton dans le tableau (bouton de droite).

Et je souhaiterais masquer/Afficher 2 colonnes fixes (colonnes C et D) et 2 colonnes en fonction du n° de mois de la cellule "J1" et ayant pour entête "colonne 2" et "colonne 4".

Merci d'avance pour votre soutien et votre compréhension.

Cordialement.

 

[Staple1600]

Re : Modification Macro

Bonsoir


Une solution à peaufiner (problème avec le mois de janvier)

Cette macro masque ou démasque les colonnes désirées selon le mois saisi en J1
(sauf pour le mois de janvier)

Sub test()
Dim x As Range, r As Range, xx As Long, xxx As Long, y As Long, yy As Long, p As Range, rr As Range
Set x = Cells.Find(CDate("01/" & [J1].Text & "/2009"), , xlValues, xlPart, , , False)
Set p = [Q3:CJ3]
If Not x Is Nothing Then
xx = x.Row: xxx = x.Column
End If
y = Cells(xx, "CJ").Column: yy = Cells(xx, "Q").Column
Columns("C:D").EntireColumn.Hidden = Not Columns("C:D").EntireColumn.Hidden
Set r = Cells(xx, xxx).Offset(, 6).Resize(, y)
Set rr = Range(Cells(xx, "Q"), Cells(xx, xxx - 1))
Union(Intersect(p, rr), Intersect(p, r)).EntireColumn.Hidden = _
Not Union(Intersect(p, rr), Intersect(p, r)).EntireColumn.Hidden
End Sub

 

[Amilo]

Re : Modification Macro

Bonjour Staple1600, le Forum,

Merci pour votre aide, il y a effectivement des lignes à peaufiner...
De plus, cette macro exécute également la procédure attribuée au bouton de gauche.

J'aimerai garder les 2 boutons et que chacun masque des colonnes différentes :

- Le bouton de gauche fonctionne trés bien et masque toutes les colonnes à partir de la colonne P sauf la zone du mois saisi en J1 + les 3 colonnes en jaune.

- pour le bouton de droite, j'aurais souhaité donc masquer/afficher les 2 colonnes C et D + 2 colonnes "Colonne 2" et "colonne 4" de la zone du mois saisi en J1 (voir les cellules en bleu)

Merci d'avance

Cordialement

 

[Amilo]

Re : Modification Macro

Bonjour
A tester

Bonjour Jean-Marcel,

Rien à dire, c'est parfait comme cela,

Mille mercis

Bonne journée à toutes et à tous.

 

[Amilo]

Re : Modification Macro

Bonjour Jean-Marcel,

Rien à dire, c'est parfait comme cela,

Mille mercis

Bonne journée à toutes et à tous.

Oups désolé,

Je viens de m'en apercevoir à l'instant, un petit détai qui a son importance, le 2ème bouton masque bien les colonnes souhaitées mais lorsque je fais "afficher" il m'affiche toutes les colonnes du tableau au lieu des 4 colonnes initialement masquées !!!.

Comment corriger ce détail ??

Merci d'avance

 

[Amilo]

Re : Modification Macro

Bonjour
essaye

Magnifique pour de bon...!

Merci beaucoup Jean-Marcel

Cordialement