Macro : erreur "Impossible de modifier une cellule fusionnée"
Lencorev
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Lorsque je compile mon code, une erreur apparaît quand je souhaite copier l'intégralité d'un tableau excel (seulement 2 tableaux sur 6 excel présentent un problème au moment d'être copiés, ce que je trouve d'autant plus bizarre), et l'erreur de compilation est la suivante :
"Impossible de modifier une cellule fusionnée." Je ne comprends pas ce que cela veut dire.
La ligne qui apparaît en jaune, et donc où il y a vraisemblablement une erreur est celle ci (pour les 4 autres tableaux excel elle fonctionne parfaitement) :
Si vous pouviez m'aider, je serais très reconnaissante !
Merci d'avance.
Lorsque je compile mon code, une erreur apparaît quand je souhaite copier l'intégralité d'un tableau excel (seulement 2 tableaux sur 6 excel présentent un problème au moment d'être copiés, ce que je trouve d'autant plus bizarre), et l'erreur de compilation est la suivante :
"Impossible de modifier une cellule fusionnée." Je ne comprends pas ce que cela veut dire.
La ligne qui apparaît en jaune, et donc où il y a vraisemblablement une erreur est celle ci (pour les 4 autres tableaux excel elle fonctionne parfaitement) :
Workbooks(Nom_Fichier).Sheets("Articles").Range("A1:DN200").Copy
Si vous pouviez m'aider, je serais très reconnaissante !
Merci d'avance.
2 réponses
-
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... -
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:
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...
