Bonjour,
Je voudrais savoir comment changer les proprietes d'un certain nombre de textbox (leur fond de couleur en l'occurence) contenus dans un document word a partir d'une liste sous excel. Voila un example ci-dessous avec 3 villes mais j'en ai en tous une cinquantaine et le chiffre augmentera surement, d'ou l'automatisation.
colonne A
----------
Nantes
Paris
Toulouse
colonne B
----------
34
68
28
nom de textbox sous word
-------------------------
TextBoxNantes
TextBoxParis
TextBoxToulouse
couleur de fond de la TextBox
----------------------------
RGB(0,34/100*255,255)
RGB(0,68/100*255,255)
RGB(0,28/100*255,255)
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub CommandButton1_Click() Dim i As Integer Dim inhib As Integer Dim wdapp As Object Dim target As String For i = 1 To 3 target = Cells(i, "A").Value With wdapp TextBox("target").BackColor = RGB(0, inhib, 255) End With Next i End Sub
Fred.
juste une precision: il s'agit de textbox inserees et a utiliser sous l'editeur VBA dans word et non des formes "textbox" inserees depuis word directement quand on on clique sur l'onglet "inserer".
Merci.
Fred
Partager