Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word test

test

2 réponses
Avatar
AB
désolé, c'est un test
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AB
toujours test, désolé

AB wrote:
|| désolé, c'est un test
Avatar
AB
Bonjour,
Le code bricolé suivant ajoute une ligne au tableau 1, et y inscrit le texte
voulu.
J'espère que ça pourra t'aider.
AB

Sub Macro2()
ActiveDocument.Tables(1).Rows.Add
ActiveDocument.Tables(1).Select
ligne = Selection.Information(wdEndOfRangeRowNumber)
ActiveDocument.Tables(1).Rows(ligne).Select
Selection.TypeText Text:="Avis du ..."
End Sub