problème de fusion

[esftel]

Bonjour le forum,

suite à une extraction de plusieurs centaines de lignes sur un fichier excel.
Celui ci à plusieurs cellues fusionnées et je souhaiterais donc via un macro supprimer ces fusions.

J'ai essayé d'utiliser la macro commande (Enregistrer un macro) mais j'obtiens un message "procedure tro grande".

Quelqu'un aurait il une solution pour moi ?

Merci de votre réponse.

Ci-joint un exemple 😱

 

[wilfried_42]

Re : problème de fusion

Bonjour esftel

Pas besoin de macro, tu selectionnes toute ta feuille
Menu Format/Cellule
Onglet Alignement
Fusionnée est cochée en gris, tu cliques 2 fois pour decoher
et tu valides

 

[Chloulou]

Re : problème de fusion

Salut
Voilà la macro qu'il te faut, elle défusionne toute les cellules de la feuile active

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 27/07/2007 par stagebe
'

'
   Activesheet.Cells.UnMerge
    
End Sub

 

[esftel]

Re : problème de fusion

salut Wilfried 42
Satut Chloulou

Merci Wilfried 42, mais je connais la manipe par le menu format,
et comme nous somme voisin merci encore de ta réponse. 🙂

Chloulou, super pour ton code et en plus c'est utltra rapide à l'exécution.
C'est exactement ce que je voulais.

Sans vouloir abusé chloulou aurais tu une solution pour éléminer des colonnes vide d'un base de donné via le VBA.


a+

 

[esftel]

Re : problème de fusion

ok c'est bon j'ai trouvé mon problème.
pour info :

Sub Macro7()

'supprimer les colonnes vide

For I = 1 To 15
Range("A4").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
Next I
End Sub