Bonjour
Je vous sollicite car jais un petit problème avec une macro.
En effet
Je dois traiter un fichier avec un grand nombre de cellule fusionnée.
Le principe est :
1) De-fusionnée toutes les cellules
2) Si valeur dans cellules, la recopier la valeur dans les cellules de-fusionnée (en gardant le lien hypertexte si lien il y a).
En regardant sur les forums j’ai trouvé une macro, le problème c’est qu’elle me mélange tous les liens.
Code:
Sub traitement()
Dim plage As Range, xarea As Range, xcell As Range, yarea As Range
On Error Resume Next
Set plage = Range("A1:Z1500")
For Each xarea In plage.Areas
For Each xcell In xarea
If xcell.MergeCells Then
Set yarea = xcell.MergeArea
xcell.UnMerge
xcell(1, 1).Copy yarea
End If
Next xcell
Next xarea
End Sub
Quelqu’un aurais une idée pour me dépatouiller.
Mais A priori le problème est bien plus profond que cela.
En effet le fichier à traiter provient d’un export ‘d’un applicatif appeler Attis.
Il doit y avoir un format que je ne maitrise pas car les liens sont modifier automatiquement l’ors du copier-coller de la sellule.
- Pour info chaque lien à en terminaison la même valeur que le contenue de la cellule
Je vous joins un petit morceau si vous arriver à trouver le loup.