Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction pour interdir fusion cellule dans une zone...

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Christian0258

XLDnaute Accro
Bonjour à tout le forum,

Je souhaiterais pouvoir interdire la fusion de cellules dans une zone.
ci-joint fichier..

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,

Christian
 

Pièces jointes

Trier par date Trier par votes
Re : Fonction pour interdir fusion cellule dans une zone...

Bonjour Christian 0258,

J'ai fais un truc pas terrible terrible, mais je pense que ça doit pouvoir convenir à résoudre ton problème. Pour y parvenir, j'ai déverrouillé toutes les cellules de la feuille sauf celles de ta zone et j'ai protéger sans mdp la feuille, puis en jouant avec worksheet_selectionchange et worsheet_change, je suis parvenu à empêcher toute modif dès lors que la sélection comprend plus d'une cellule (ce qui empêche de fait la fusion. Néanmoins, cela empêche également d'appliquer dans cette zone des formats sur plusieurs cellules en mme temps : on peut y arriver, mais il faut le faire cellule par cellule.

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Unprotect
    [E12:K27].Locked = True
    Sh.Protect
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 If Intersect([E12:K27], Target) Is Nothing Then Exit Sub
 If Target.Count = 1 Then
    Sh.Unprotect
    Target.Locked = False
 Else
    Sh.Protect
 End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Autres Modifs sur USF
Réponses
9
Affichages
234
Phil69970
C
  • Question Question
Autres SOMMEPROD(SOUS.TOTAL(103;DECALER( ... ça fait beaucoup pour moi...Lol
Réponses
2
Affichages
106
Christian0258
C
C
  • Question Question
Autres Index Equiv, recherche en fonction de deux critères...
Réponses
2
Affichages
92
Christian0258
C
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
297
job75
N
  • Résolu(e)
Microsoft 365 Copier une image d'une feuille de calcul vers un UserForm
Réponses
4
Affichages
184
NONO14
N
H
  • Question Question
Microsoft 365 nommer automatiquement les différentes feuilles d'un dossier
Réponses
2
Affichages
114
Hdv95
H
D
  • Question Question
XL 2019 VBA Définir une zone d'impression
Réponses
5
Affichages
815
dadaze
D
A
  • Résolu(e)
XL 2021 Combinaison formules grande.valeur(si index equiv
Réponses
13
Affichages
401
Cousinhub
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
391
patricktoulon
  • Résolu(e)
XL 2019 Tri et Traitement plus rapide
2
Réponses
20
Affichages
666
Titof06
A
  • Résolu(e)
Microsoft 365 Fusion de 2 tables
Réponses
6
Affichages
327
Amilo
A
  • Question Question
Microsoft 365 Insérer une note dans une cellule = couleur dans cette cellule
Réponses
6
Affichages
156
job75
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
270
AD74
A
M
  • Résolu(e)
Autres Faire une recherche de sous-dossiers Windows (pas de fichiers) dans un dossier précis à partir de son nom contenu dans une cellule
6 7 8
Réponses
106
Affichages
4 K
job75
B
  • Question Question
XL 2021 trouver date anniversaire dans calendrier pour recopie
Réponses
12
Affichages
325
dysorthographie
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
452
juju91
J
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
349
komarlehomard
K
D
  • Question Question
XL 2019 repartir une quantite dans plusieurs cellules
Réponses
6
Affichages
171
dshz
D
M
  • Résolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
360
job75
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
298
Nico Gre
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…