Macro : erreur "Impossible de modifier une cellule fusionnée"

Lencorev -  
pijaku Messages postés 12263 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) : 
Workbooks(Nom_Fichier).Sheets("Articles").Range("A1:DN200").Copy


Si vous pouviez m'aider, je serais très reconnaissante !
Merci d'avance.
A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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...
0
Lencorev
 
Merci de prendre le temps de me répondre.

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 ?
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > Lencorev
 
Le problème, si je ne m'abuse, avec ce genre de traitement c'est que cela risque de supprimer des données....
Donc, mis à part à la main, je ne vois pas trop...
0
Lencorev
 
S'il n'y a que cette solution alors je vais m'en contenter..
Mais comment puis-je savoir quelles cellules sont fusionnées et lesquelles sont normales ?
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > Lencorev
 
Des cellules fusionnées sont un groupe de cellules (2 au minimum) qui sont assemblées en une seule.

Mais, au fait, tu n'as pas Google dans ton Internet?
0
Lencorev
 
Si, et j'ai aussi cherché la définition. Mais ma question était de savoir s'il était possible dans un tableau de 200 lignes et de 70 colonnes, de repérer rapidement les cellules fusionnées sans les examiner une par une
0
Réponse 2 / 2
Lencorev
 
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...
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Pas de cellule fusionnée dans la feuil2 du fichiercata.xlsm???
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
EXCEL transformer chiffres en lettre -facture
roland -
JBB -

26 réponses
convertir des chiffres en lettres avec une unique formule
FOUAD_9000 -
Mike-31 -

34 réponses