[Word VBA] Entrer un texte automatiquement dans plusieurs cellules

Question

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 !

Pierre_faucon · Answer

Bonjour

Il y a peut-&#234;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&#233;?

Pierre Fauconnier

[Word VBA] Entrer un texte automatiquement dans plusieurs cellules

1 réponse

Discussions similaires