Discussion :

[tatiak]

Bonjour,
N'ayant pas trouvé de réponse sur votre forum, je me permets de vous soumettre ma question.
Dans un document Word, je crée dynamiquement des textbox (jusqu'à 150).
Pour chacun de ces controls je souhaite leur associer un traitement qui est très identique style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private sub Textbox**_change()
Dim Mavariable as string
     Mavariable(**)=Textbox**.text 
End sub

où ** est un nombre de 1 à 150

jusqu'à présent pour effectuer le traitement, je dois écrire donc 150 fois cette même procédure en changeant uniquement le "**"

N'y aurait-il pas une manière d'écrire une procédure "générique" pour récupérer le "**" du nom de la textbox dont la valeur est modifiée?
J'ai cru comprendre qu'il fallait passer par un module de classe, mais je n'arrive pas à mettre en oeuvre cette technique.
Merci de me donner des pistes,
Cordialement
tatiak

[Heureux-oli]

La solution la plus facile, serait la génération du code sous forme de texte et terminer par un copier coller.

[tatiak]

Merci de ta réponse. En fait le problème est plus complexe car le document Word contient aussi des Checkbox.
Néanmoins, pour info, j'ai opté pour la solution suivante :
Une macro "générique" suivante :

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
16
17
 
Public Const Brouzouf = "# ###.00"
 
Private Sub Total() 'total du devis
Dim TotalTTC As Double, TotalHT As Double
Dim Ctl As InlineShape
    TotalTTC = Val(Tables(1).Cell(3, 3).Range.Text) 'valeur du modèle
    For Each Ctl In ActiveDocument.InlineShapes
        If Left(Ctl.OLEFormat.Object.Name, 7) = "TextBox" Then _
          TotalTTC = TotalTTC + Val(Ctl.OLEFormat.Object.Text) '+ valeur des options
    Next Ctl
    TotalHT = TotalTTC / 1.196
    Tables(2).Cell(2, 3).Range.Text = Format(TotalTTC, Brouzouf)
    Tables(2).Cell(2, 1).Range.Text = Format(TotalHT, Brouzouf)
    Tables(2).Cell(2, 2).Range.Text = Format((TotalTTC - TotalHT), Brouzouf)
    Init
End Sub

puis 150 p'tites macro de type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub TextBox1_Change()
    Total
End Sub
Private Sub TextBox2_Change()
    Total
End Sub
Private Sub TextBox3_Change()
    Total
End Sub
...

puis un truc similaire pour le traitement des Checkbox.

Maintenant, je reste ouvert à toute proposition qui irait vers encore plus de simplification

Cordialement
tatiak