Discussion :

[patricktoulon]

bonjour a tous
j'ai un petit soucis sans doute quelque chose m'echappe


j'ai une plage de cellule que je transforme en table html ca c'est OK

chaque cellule de la table html a pour id l'adresse de la cellule de la plage exemple: la cellule B21 devient en html "<TD ID=$B$21> truc bidule</TD>"


pour parfaire les bordures je boucle sur les cellules de la table html

for each elem in table. getelementsbytagname("TD").length-1

et c'est la que j'ai besoin de tester si le intersect de range(elem.id) croise la dernière colonne
alors si il n'y avait pas de fusion cela serait facile mais il y a des fusion horizontales

exemple la plage est range ("b3:F10")
je peut avoir des fusion du genre "D9:f9" qui porte le nom de "D9" Excel nommant la fusion avec les coordonnées de la première cellule de la fusion

en gros des que j'ai la colonne "F" dans une cellule ou fusion je veut le savoir

j'ai bien essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dercol=plage.speciallcells(xlcellstypelastcell).column

mais ca me donne une autre colonne

bref je patauge

ps:
j'ai réédité!!!!!!!!

[antonysansh]

Je ne sais pas si ça va t'aider mais regarde du côté de la propriété .MergeArea de l'objet Range.

Dans ton exemple [D9].MergeArea.Address devrait répondre $D$9:$F$9
Donc un truc du genre peut être sympa:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
    Dim rg As Range
        Set rg = [D9]
        Set rg = rg.MergeArea
        Set rg = rg.Cells(rg.Cells.Count)
    MsgBox rg.Address
fin:
    Set rg = Nothing
End Sub

[patricktoulon]

Bonjour Antoni

non ca n'est pas un soucis des adresses de cellules seules et fusionnées ca je l'ai déjà

le soucis vient du fait que dans une table html les cellule fusionnée(rospan=X colspan=X) compte pour une
tandis que dans Excel on peut déterminer le rows.count ou le column.count d'une fusion par l'adresse complète

bon de toute façon ca n'est pas grave je me suis débrouillé comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 dercol = Split(plage.Address, "$")(3)
        derlig = Split(plage.Address, "$")(4)
       Set mesTD = .getelementsbytagname("TD")
        For i = 0 To mesTD.Length - 1
        Set elem = mesTD(i)
        If InStr(elem.ID, dercol) > 0 Then If Range(elem.ID).borders(xlEdgeRight).LineStyle <> xlNone Then elem.Style.borderright = bordure(Range(elem.ID).borders(xlEdgeRight))
        If InStr(elem.ID, derlig) > 0 Then If Range(elem.ID).borders(xlEdgeBottom).LineStyle <> xlNone Then elem.Style.borderbottom = bordure(Range(elem.ID).borders(xlEdgeBottom))
           Next

et ca fonctionne très bien

je suis en tain de simplifier mon module table Excel to html car il y a beaucoup de demande sur (envoyer une plage excel dans le corps du message ) dans les "Mail"