A voir également:
- Excel défusionner cellules en gardant texte
- Liste déroulante excel - Guide
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Excel cellule couleur si condition texte - Guide
- Excel additionner des cellules - Guide
- Excel si cellule contient texte alors ✓ - Forum Excel
3 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
6 avril 2011 à 20:01
6 avril 2011 à 20:01
Bonsoir,
Avec une petite macro vba c'est faisable :
La macro traite la feuille active.
Fichier exemple : http://www.cijoint.fr/cjlink.php?file=cj201104/cij0buJaLN.xls
eric
Avec une petite macro vba c'est faisable :
Sub défusionner()
' supprime toutes les fusions de cellules
' toutes les cellules d'une fusion reçoivent la valeur ou la formule d'origine
Dim c1 As Range, c2 As Range, plage As Range, valeur As Variant
Application.ScreenUpdating = False
For Each c1 In ActiveSheet.UsedRange
If c1.MergeCells Then
valeur = c1.Formula
Set plage = c1.MergeArea
plage.UnMerge
For Each c2 In plage
c2.Formula = valeur
Next c2
End If
Next c1
Application.ScreenUpdating = True
End Sub
La macro traite la feuille active.
Fichier exemple : http://www.cijoint.fr/cjlink.php?file=cj201104/cij0buJaLN.xls
eric
Modifié par salandership le 7/04/2011 à 20:31
je vais être un peu capricieux et vous demander une macro qui fait lamême chose mais cette fois pour remplir les cellule vide avec la valeur de la cellule première qui les précéde, c'est comme si la macro que vous avez réalisé ne "défufionne" pas.
Merci pour votre aide précieuse
7 avril 2011 à 21:05
il suffit de remplacer :
valeur = c1.Formula
par :
valeur = c1.Formula.offset(0,-1)
Mais il faut que cette cellule existe, donc que les cellules fusionnées ne démarre qu'en colonne B.
c'est comme si la macro que vous avez réalisé ne "défufionne" pas.
Là je n'ai pas compris...
eric