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
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
Il suffisait d'enlever le select... Je saurais maintenant!
Tu me fais un beau cadeau
Bonne soirée à bientôt!