[Word VBA] Entrer un texte automatiquement dans plusieurs cellules

Bonjour,

J'ai un tableau dans mon document Word, et je voudrais insérer du texte automatiquement.

Pour insérer le texte ou se trouve la cellule active, je fais :
Selection.TypeText Text:="Texte"

Cependant, si je choisis plusieurs cellules, ca ne rentre le texte que dans la premiere ...

A la facon d'Excel, j'ai esayé :
For Each Cellule In Selection
Cellule.TypeText Text:="NOM"
Next

Cependant ca ne marche pas, quelle est la combine sous Word svp ?

Merci d'avance !

---

$p00ky
______________________________________________
.:: KoC-FR ::. Alliance Francophone Kings of Chaos
Venez jouer au meilleur MMORPG gratuit et facile !

Bonjour

Il y a peut-être plus simple, mais tu peux utiliser

Sub Test()
    Dim MonDoc As Document
    Dim MaTable As Word.Table
    Dim Ligne As Integer, Colonne As Integer
   
    Set MonDoc = ActiveDocument
    Set MaTable = MonDoc.Tables(1)
    For Ligne = 1 To MaTable.Rows.Count
        For Colonne = 1 To MaTable.Columns.Count
            MaTable.Cell(Ligne, Colonne).Select
            Selection.TypeText "Pierre"
        Next Colonne
    Next Ligne
End Sub

Cela t'a'il aidé?

Pierre Fauconnier