Macro sur cellules fusionnées

Bonjour à tous,

Je suis nouvelle sur le forum, qui m'a déjà rendu beaucoup de services dans d'autres projets

Je suis débutante en VBA, pour l'instant je ne sais que bidouiller les codes des autres

Je rencontre un problème sur une de mes macros sur un fichier planning

Mon but : j'aimerais en un clic sur bouton macro, pouvoir masquer les colonnes concernant 1 collaborateur qui a quitté l'entreprise:

Mon fichier contient 1 onglet "parametrage" avec une liste de 20 collaborateurs, et 12 onglets avec les plannings de chaque mois...

Voilà mon code pour le bouton "masquer collab 1":

Sub masquer_1()

'

' masquer_1 Macro

Application.ScreenUpdating = False

'Sélection des colonnes à supprimer pour un collaborateur

Sheets("1").Select

Range("B:B,V:V,AP:AP,BJ:BJ,CD:CD,CX:CX,DR:DR,EM:EM").Select

Selection.EntireColumn.Hidden = True

Sheets("2").Select

Range("B3,B:B,V:V,AP:AP,BJ:BJ,CD:CD,CX:CX,DR:DR,EM:EM").Select

Selection.EntireColumn.Hidden = True

Sheets("Parametrage").Select

'...ainsi de suite pour les feuilles 3 à 12

Application.ScreenUpdating = True

End Sub

Problème: il y a des cellules fusionnées partout dans mon fichier et bien que cela fonctionne lorsqu'on masque des cellules à la main, cela ne fonctionne plus avec la macro qui masque tout mon planning (ex: au lieu de masquer A et C, elle masque A+B+C)

Ma question : Y a t-il un code VBA qui permettrait de masquer uniquement certaines colonnes lorsque pour une seule ligne, les cellules sont fusionnées entre elles?

Merci d'avance pour votre aide

J'arrête de bosser et je vais festoyer... Joyeux Noël à tous

Bonjour

Joyeux Noël

Je n'ai fait que pour la page "1"

Sub masquer_1()
'
' masquer_1 Macro

  Application.ScreenUpdating = False
  With Sheets("1")
    .Range("B:B,V:V,AP:AP,BJ:BJ,CD:CD,CX:CX,DR:DR,EM:EM").EntireColumn.Hidden = True
  End With
End Sub

Bonsoir Banzai!

Merciiiiiiiiiiii beaucoup

Je ne pensais pas avoir une réponse aussi rapidement Ca marche c'est génial!

Il suffisait d'enlever le select... Je saurais maintenant!

Tu me fais un beau cadeau

Bonne soirée à bientôt!

Rechercher des sujets similaires à "macro fusionnees"