Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 17/12/2006, 09h31   #1
Rédacteur
 
Avatar de blondelle
 
Homme
Inscription : mars 2006
Messages : 2 496
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : mars 2006
Messages : 2 496
Points : 2 308
Points : 2 308
Par défaut Comment selectionner une plage de cellules d'un tableau Word

Bonjours:
J'ai un petit soucis avec Word, j'ai un tableau et j'aimerais selectionner par macro une plage de cellules, par exemple (selectionner cellule 2, ligne 1 jusque cellule 4, ligne 2) je n'arrive pas a le faire avec l'editeur de macro, une aide serait bien venue.
blondelle est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/12/2006, 17h55   #2
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Tiens, Silky a écrit plein de "trucs" intéressants
Regarde à
"Copier une ligne precise d'un tableau word et le coller dans Excel"c'est presque à la fin. Tu as là le code pour jouer avec les cellules d'un tableau dans word
Tu dis si tu as des pbs
A+
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/12/2006, 18h17   #3
Rédacteur
 
Avatar de blondelle
 
Homme
Inscription : mars 2006
Messages : 2 496
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : mars 2006
Messages : 2 496
Points : 2 308
Points : 2 308
Merci ouskel'n'or:
Ton lien est tres interressant, j'y ai trouve cela, c'est la fonction premiere fusionner les cellules.
Code :
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub fusionnerCellsDansTableauWord()
'activate Microsoft Word xx.x Object Library
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = createObject("word.application") 'Word Session
Set wordDoc = wordApp.Documents.Open("C:\monDocument.doc") 'ouverture Doc
wordApp.Visible = True
'fusionner les Cells(2,3) à Cells(3,5) dans le premier tableau du document Word
wordDoc.Tables(1).Cell(Row:=2, Column:=3).Merge _
mergeTo:=wordDoc.Tables(1).Cell(Row:=3, Column:=5)
End Sub
Mais j'ai trouve quelque chose qui me va mieux on selectionne les cellules, on peut les fusionner, ou y faire autre chose, en plus c'est dans l'aide Word (Galere pour trouver).
Code :
1
2
3
4
5
 
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _
    .Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge
Ce code est mieux adapte a ce que je veux faire.
Encore une fois merci.
blondelle est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 09h43.


 
 
 
 
Partenaires

Hébergement Web