Macro pour masquer colonnes

[stagiairerm]

Bonjour,

J'ai créé une macro permettant la fermeture des colonnes selon un critère. Malheureusement cela ne fonctionne pas... je ne comprends pas pourquoi.
QQ peut il m'aider ?

Voici mon fichier ci joint http://cjoint.com/?jbjFM7qNAp

Reporter vous a l onglet Japon. La macro s"appelle "Client" et s'active avec le bouton chercher

Merci

 

[tototiti2008]

Re : Macro pour masquer colonnes

Bonjour stagiairerm,

tu as encore des objets qui trainent dans ta feuille...

lance cette macro avec la feuille japon activée et tu pourras trouver tous les objets dessinés de ta feuille

Sub TrouveObjets()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
MsgBox Sh.Name & " - " & Sh.TopLeftCell.Address
Next Sh
End Sub

 

[stagiairerm]

Re : Macro pour masquer colonnes

Le rectangle est en dehors de la zone... et le reste ce sont des commentaires qui sont dans la zone. Si il y a des commentaires qui apparaissent lorsqu'on survolle une cellule, la macro ne fonctionne pas du coup ?

 

[tototiti2008]

Re : Macro pour masquer colonnes

je ne sais pas ce que sont ces commentaire et j'ai eu du mal à les supprimer mais une fois supprimés, ta macro fonctionne...

tu pourras voir que tu as d'autres commentaires (plus loin dans ta feuille) et ils ne sont pas cités par la macro.
même si je n'ai pas réussi à les sélectionner, en modifiant la macro comme ça ils seront supprimés :

Sub SupprimeComment()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
if Sh.Name Like "Comment*" then sh.Delete
Next Sh
End Sub

 

[stagiairerm]

Re : Macro pour masquer colonnes

Merci pour cette super petite macro, mais meme en virant les commentaires y a encore un beug...
Voici le fichier transformé : http://cjoint.com/?jbkhB5MEmc
encore merci davance

 

[stagiairerm]

Re : Macro pour masquer colonnes

Super merci ca marche ! c'est dommage que les commentaires dans une cellule empeche la macro de tourner... tu sais pas si il y a une sollution pour que les deux fonctionnent en meme temps ?

 

[pierrejean]

Re : Macro pour masquer colonnes

bonjour a tous

A tester:

Sub Clients()
'Columns("S:EP").Select
'Selection.Hidden = True
Application.ScreenUpdating = False
Range("S1:EO1").Select
For Each o In Selection
If o.Value = Range("P5") Then
o.EntireColumn.Hidden = False
Else
o.EntireColumn.Hidden = True
End If
Next
Rows("16:400").Select
Selection.EntireRow.Hidden = True
Range("L16:L400").Select
For Each o In Selection
If o.Value = "1" Then
o.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub

 

[tototiti2008]

Re : Macro pour masquer colonnes

Oui, désolé, j'ai peur que la macro n'efface pas proprement les commentaires...

une solution : les dernières colonnes vides de ta feuille, il faut beaucoup les élargir pour que les commentaires ne "sortent pas" de la feuille lorsque tu masques tes colonnes

 

[Cousinhub]

Re : Macro pour masquer colonnes

Bonjour,

salut Pierrejean et toto

essaie en collant cet évènement dans le code de la feuille (clic droit sur le nom de l'onglet, visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$P$5" Then
Application.ScreenUpdating = False
For i = 19 To 234 Step 8
    Cells(1, i).Resize(1, 8).EntireColumn.Hidden = IIf(Cells(14, i).Value <> [P5], True, False)
Next i
[L15].AutoFilter Field:=1, Criteria1:="1"
End If
End Sub