Fusionner des cellules avec une feuille protégé

Question

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

m@rina · Answer

Bonjour,

La fusion est toujours une mauvaise idée.

Si le but est juste de centrer un titre sur plusieurs colonnes, sélectionnez les cellules dans lesquelles le titre sera centré, puis dans la boîte de dialogue Format, alignement, choisissez pour Alignement du texte horizontal : "Centré sur plusieurs colonnes".

m@rina

rikano · Answer

ça ne fonctionne pas.

En réalité il s'agit de fiche de conformité, je suis obligé d'appliquer 2 formules d'une même cellule, une qui prend en compte si A2 est vide et une qui prend en compte si A2 est remplit.

Mais je dois quand même protéger ma feuille des formule et bien d'autre car beaucoup de vol dans mon domaine.

Le Pingou · Answer

Bonjour,

Au passage, pouvez-vous expliquer comment vous faites pour appliquer 2 formules d'une même cellule !

rikano · Answer

Tout à fait,

En gros si admettons je veux calculer une surface rectangulaire, je fais A1 x A2 en m² alors A3 le résultat. Mais si la surface est circulaire alors je dis que si A2="" alors j'utilise la formule  (Pi x A1²)/4, alors A3 le résultat.

Sauf que l'esthétique n'est pas super d'avoir des chiffres a gauche pour le circulaire et des chiffres centré sur 2 cellule pour le rectangulaire.

Le Pingou · Answer

Bonjour,

Merci du retour.

Donc en A3 vous avez une formule conditionnelle !

Qu'elle est cette formule et que vient faire la fusion de cellules!

Pouvez-vous mettre un exemple sur Accueil de Cjoint.com   et poster le lien?

Le Pingou · Answer

Bonjour,

Quelque chose dans se genre:

rikano · Answer

Oui exactement, sauf que je souhaiterai fusionner A1 et  A2 quand la feuille est protégée pour ne pas avoir une cellule vide toute seule.

Mais quand elle est protégée, je peux toujours modifier les mises en formes mais pas fusionner.

ccm81 · Answer

Bonjour à tous

Peut être avec une macro

https://www.cjoint.com/c/MDAs7LUpJuB

Cdlmnt

Raymond PENTIER · Answer

Bonjour rikano.

Et si, comme te l'a recommandé Le Pingou, tu nous envoyais un fichier Excel ?

En attendant, tu dois saisir les dimensions du rectangle en A1 et A2, mais le diamètre en A3 ; pas en A1 !

Ta formule en A4 sera alors =SI(OU(A1=0;A2=0);PI()*A3^2/4;A1*A2)
ou encore plus simplement =SI(A1*A2=0;PI()*A3^2/4;A1*A2)

Plus besoin de fusionner quoi que ce soit ...

Et en quoi cela dérange "pour ne pas avoir une cellule vide toute seule " ?
Il y a des millions de tableaux Excel avec des cellules vides ! Ne te casse pas la tête pour ça.

ccm81 · Answer

Bonjour

Pour integrer la macro à ton classeur

1. Al-F11 pour accéder à l'éditeur vba

2. Coller tout le code contenu dans mon Module 1

3. Enregistrer le classeur avec le type .xlsm (... prenant en compte les macros)

Cdlmnt

Licorne rose · Answer

Bonsoir ou bonjour à tous et en particulier à M@rina.

Pourquoi

"La fusion est toujours une mauvaise idée."

?

ccm81 · Answer

> Licorne rose

une plage fusionnée

1. peut perturber une formule utilisant une cellule de cette plage

2. peut perturber une recopie par tirage

3. incompatible avec un tri

4. galère avec les macros

5. ....

Cdlmnt

rikano · Answer

Bonjour,

Comme convenu ci-dessous la document.

https://www.cjoint.com/c/MDDrg2lDz1G

ccm81 · Answer

Il y a ces formules en colonne F, lorsque D14:F14 n'est pas fusionnée, tu les veux ? Cette formule ne figure pas en ligne 12 où tu as mis la valeur 100

=SI(D14= "";"";SI(D14="NA";"NA";SI(D14="SO";"SO";SI(D14=0;"";""))))

Cdlmnt

ccm81 · Answer

A tester (j'ai conservé la formule en colonne F)

https://www.cjoint.com/c/MDElYqcszIB

Cdlmnt

ccm81 · Answer

1. Rien à mettre dans le module du workbook 2. tu te places dans la feuille à traiter 3. Alt-F11 pour accéder à l'éditeur vba 3. Coller tout le code. Option Explicit Const mdp = "mdp" Const cosel = 4 ' formule colonne D '=SI(D15="";"";SI(D15="NA";"NA";SI(D15="SO";"SO";SI(D15=0;"";"")))) 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 mdp Application.DisplayAlerts = True End Sub Public Sub defusionner() Dim plage As Range, adr As String, f As String, co As Long Set plage = Selection co = Selection.Column If co <> cosel Then Exit Sub ActiveSheet.Unprotect mdp adr = plage.Cells(1, 1).Address adr = Replace(adr, "$", "", 1, -1) f = "=SI(" & adr & "= """";"""";SI(" & adr & "=""NA"";""NA"";SI(" & adr & "=""SO"";""SO"";SI(" & adr & "=0;"""";""""))))" plage.MergeCells = False Set plage = plage.Resize(1, 3) plage.Cells(1, 1).Value = "" plage.Cells(1, 1).Locked = False plage.Cells(1, 2).Value = "x" plage.Cells(1, 3).FormulaLocal = f plage.Cells(1, 3).Locked = False plage.Cells(1, 3).FormulaHidden = True plage.Cells(1, 1).Select ActiveSheet.Protect mdp End Sub 4. modifier éventuellement les constantes mdp et cosel 5. affecter un raccourci clavier aux deux procedures 6. Enregistrer sous/ type ... .xlsm Cdlmnt

ccm81 · Answer

Je suis sous un (très) vieil excel 2003, la démarche a changé depuis .... donc je ne peux que te renvoyer

sur le site de microsoft https://support.microsoft.com/fr-fr/office/cr%C3%A9er-ou-ex%C3%A9cuter-une-macro-c6b99036-905c-49a6-818a-dfb98b7c3c9c

Cdlmnt

Le Pingou · Answer

Bonjour,

Juste au passage  (amical salut ccm81) pour activer l'onglet développeur:

Afficher l'onglet Développeur

Sous l'onglet Fichier , accédez à Options > Personnaliser le ruban.
	Sous Personnaliser le ruban et Onglets principaux, activez la case à cocher Développeur.

rikano · Answer

Bonjour,

C'est bon ça fonctionne, merci beaucoup :D

Par contre je remarque que quand je défusionnes, la cellule de la colonne E reprend un x et se verrouille, la colonne F reprend sa formule et se verrouille également.

Peut-on empêcher ça ?

Pour finir, lorsque j'utilise la fusion, si j'ôte la protection, je perds les autorisations que j'avais sélectionné au départ.

Peut-on faire aussi quelques chose pour ça ?

ccm81 · Answer

Bonjour

1. > Le Pingou : merci pour le coup de main, avec mon antiquité, ce n'est pas toujours commode ;-)

2. Par contre je remarque que quand je défusionne ...

Public Sub defusionner()
Dim plage As Range, adr As String, f As String, co As Long
Set plage = Selection
co = Selection.Column
If co <> cosel Then Exit Sub
ActiveSheet.Unprotect mdp
adr = plage.Cells(1, 1).Address
adr = Replace(adr, "$", "", 1, -1)
f = "=SI(" & adr & "= """";"""";SI(" & adr & "=""NA"";""NA"";SI(" & adr & "=""SO"";""SO"";SI(" & adr & "=0;"""";""""))))"
plage.MergeCells = False
Set plage = plage.Resize(1, 3)
plage.Locked = False
plage.Cells(1, 1).Value = ""
plage.Cells(1, 2).Value = "x"
plage.Cells(1, 3).FormulaLocal = f
plage.Cells(1, 3).FormulaHidden = True
plage.Cells(1, 1).Select
ActiveSheet.Protect mdp
End Sub

3. je perds les autorisations que j'avais sélectionné au départ.  > lesquelles ?

Cdlmnt

ccm81 · Answer

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

Fusionner des cellules avec une feuille protégé

21 réponses

Votre réponse

Discussions similaires

Newsletters