jose.carreira
XLDnaute Junior
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.
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.
Et comme un idiot je viens de me rendre compte que j’avais déjà demandé de l’aide sur le forum pour le début de ma macro.
https://www.excel-downloads.com/threads/de-fusionner-les-cellules-et-copier-les-valeurs.229707/
Je m’excuse si j’ai froissé quelqu’un.
Merci a ceux qui pourront m’aider.
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 SubMais 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.
Et comme un idiot je viens de me rendre compte que j’avais déjà demandé de l’aide sur le forum pour le début de ma macro.
https://www.excel-downloads.com/threads/de-fusionner-les-cellules-et-copier-les-valeurs.229707/
Je m’excuse si j’ai froissé quelqu’un.
Merci a ceux qui pourront m’aider.
Dernière édition:
