Tableau et fusion de cellules [Résolu]

[spad22]

Bonjour,

Me revoilà pour un nouveau souci avec mes tableaux.
Je créé un tableau de 3 colonnes et 8 lignes. Je remplis ce tableau et par la suite, je souhaite fusionner certaines cellules.

Voilà le code

Code :

1
2
ActiveDocument.Tables(indice).Rows(1).Cells.Merge
ActiveDocument.Tables(indice).Columns(3).Cells(3).Range.Select

La première ligne fonctionne à merveille. Seulement, à la deuxième j'ai un message d'erreur me disant "impossible d'accéder à des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différentes".

Donc comment faire pour sélectionner d'autres cellules après la première fusion?

Merci d'avance pour la réponse.

[Heureux-oli]

Essaie comme ça !

Code :

1
2
3
 
ActiveDocument.Tables(1).Rows(1).Cells.Merge
ActiveDocument.Tables(1).Cell(3, 3).Range.Select

[spad22]

Merci ça fonctionne.

Histoire d'être sûr, existe t'il un moyen de sélectionner 2 cellules côte à côte par un autre moyen que de sélectionner la première et d'étendre à la suivante?

Actuellement je fais ça, mais n'existe t'il pas plus simple?

Code :

1
2
3
4
ActiveDocument.Tables(indice).Rows(1).Cells.Merge
ActiveDocument.Tables(indice).Cell(3, 3).Range.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cells.Merge

Aïe, en plus je viens de tester et du coup la dernière ligne ne fonctionne plus (commande non disponible!).
Du coup, je ne connais pas d'autre commande pour fusionner ma sélection...

Aurais tu une solution pour faire ce dont j'ai besoin, quitte à changer le code.
Merci

[Heureux-oli]

Code :

1
2
3
4
 
ActiveDocument.Tables(1).Rows(1).Cells.Merge
 
ActiveDocument.Range(ActiveDocument.Tables(1).Cell(3, 3).Range.Start, ActiveDocument.Tables(1).Cell(3, 4).Range.End).Select

Voilà !

[spad22]

Exactement ce que je voulais! Merci beaucoup.

PS : désolé pour les balises code, j'étais sûr qu'elle s'inséraient automatiquement... Je ferai attention dans l'avenir.