Macro : erreur "Impossible de modifier une cellule fusionnée"
Fermé
Lencorev
-
17 juin 2015 à 11:59
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 juin 2015 à 14:39
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 juin 2015 à 14:39
A voir également:
- Cette action ne peut pas être appliquée à une cellule fusionnée
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
17 juin 2015 à 12:06
17 juin 2015 à 12:06
Bonjour,
Tout est dit dans le code d'erreur.
Il est impossible de modifier une cellule fusionnée.
Si cela fonctionne 4 fois sur 6 c'est que tu as 4 tableaux ne comportant pas de cellules fusionnées et 2 qui en ont.
Le code est bon, les cellules non.
A toi à défusionner tes cellules et à NE PLUS JAMAIS FUSIONNER DE CELLULES DANS EXCEL...
Pardon...
Tout est dit dans le code d'erreur.
Il est impossible de modifier une cellule fusionnée.
Si cela fonctionne 4 fois sur 6 c'est que tu as 4 tableaux ne comportant pas de cellules fusionnées et 2 qui en ont.
Le code est bon, les cellules non.
A toi à défusionner tes cellules et à NE PLUS JAMAIS FUSIONNER DE CELLULES DANS EXCEL...
Pardon...
J'ai utilisé votre méthode, que je ne connaissais pas d'ailleurs, pour trouver des cellules fusionnées, et toutes les cellules vides du fichier sont des cellules fusionnées.
J'ai donc utilisé ce code, qui semble marcher, pour les dé-fusionner:
Je n'ai plus de problème pour la copie de mon fichier, mais maintenant c'est pour le collage... La même erreur "Impossible de modifier une cellule fusionnée" apparaît sur la ligne suivante :
Pourtant, aucune cellule n'est censée être encore fusionnée... Je ne sais plus quoi faire...
J'ai donc utilisé ce code, qui semble marcher, pour les dé-fusionner:
Dim Zone As Range
'Défini ta zone de traitement
Set Zone = Sheets("Feuil1").Range("A1:DN200")
Dim Cellule As Range
For Each Cellule In Zone
If Cellule.MergeCells Then
Dim ZoneFusion As Range
Set ZoneFusion = Cellule.MergeArea
Dim Valeur As String
Valeur = Cellule.Value
Cellule.UnMerge
For Each C In ZoneFusion
C.Value = Valeur
Next
End If
Next
Je n'ai plus de problème pour la copie de mon fichier, mais maintenant c'est pour le collage... La même erreur "Impossible de modifier une cellule fusionnée" apparaît sur la ligne suivante :
Workbooks("Fichiercata.xlsm").Sheets("Feuil2").Paste
Pourtant, aucune cellule n'est censée être encore fusionnée... Je ne sais plus quoi faire...
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
17 juin 2015 à 14:39
17 juin 2015 à 14:39
Pas de cellule fusionnée dans la feuil2 du fichiercata.xlsm???
17 juin 2015 à 12:18
Les tableaux excel que je dois traiter me sont fournis directement, et donc déjà remplis. Connaîtriez-vous un moyen pour dé-fusionner toutes les cellules d'un tableau d'un seul coup ?
17 juin 2015 à 12:23
Donc, mis à part à la main, je ne vois pas trop...
17 juin 2015 à 12:28
Mais comment puis-je savoir quelles cellules sont fusionnées et lesquelles sont normales ?
17 juin 2015 à 12:31
Mais, au fait, tu n'as pas Google dans ton Internet?
17 juin 2015 à 12:36