Fusionner des cellules avec une feuille protégé

Fermé

rikano Messages postés 258 Date d'inscription lundi 19 octobre 2009 Statut Membre Dernière intervention 11 juin 2023 - Modifié le 25 avril 2023 à 18:40
ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 - 1 mai 2023 à 19:04

Bonjour,

Quand je protège ma feuille pour rendre invisible mes formule, je clique sur "format de cellule" pour pouvoir toujours modifier mon fichier, le problème c'est que l'objet "fusionner et centrer" se grise. Même en sélectionnant toutes les cases dans la fenêtre protéger, je ne peux plus du tout rien fusionner.

Pouvez-vous m'aider svp

Windows / Chrome 112.0.0.0

A voir également:

Fusionner et centrer excel grisé
Si et excel - Guide
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Fusionner fichier excel - Guide
Comment fusionner des pdf sans logiciel - Guide

21 réponses

Réponse 21 / 21

ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 428
1 mai 2023 à 19:04

Public Sub fusionner()
Dim plage As Range, co As Long
If Selection.Count > 1 Then Exit Sub
co = Selection.Column
If co <> cosel Then Exit Sub
ActiveSheet.Unprotect mdp
Application.DisplayAlerts = False
Set plage = Selection.Resize(1, 3)
plage.ClearContents
plage.Cells(1, 1).Locked = False
plage.MergeCells = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
            Scenarios:=False, AllowFormattingCells:=True, _
            AllowFormattingColumns:=True, AllowFormattingRows:=True
ActiveSheet.Protect mdp
Application.DisplayAlerts = True
End Sub

Cdlmnt

Discussions similaires

Impossible fusionner cellules