Discussion :

[grovallat]

Bonjour à tous,

Voilà, j'ai déjà posté sur un autre sujet sur ce site mais je n'ai pas eu de réponse et j'ai finalement avancé un peu par moi même.

Le contexte: j'ai un fichier Word contenant une liste de personnes avec leurs différents champs (ID#, nom,prénom,date de naissance,occupation...) avec chacun leurs "styles".

Ce qui est déjà fait: j'ai crée une macro qui s'appuie sur la commande suivante:

Code :

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

Set myCB = Selection.InlineShapes.AddOLEControl(ClassType:="Forms.CheckBox.1")

Celle ci me crée une CheckBox au niveau de chaque personne (elles ne sont pas renommées mais juste légendées nldr: 'caption')

Le problème: Dans une seconde macro, je dois balayer l'ensemble des CheckBox crées et effectuer une opération (cette macro est déjà prète) suivant que la CB est cochée ou non.

J'ai essayé plusieurs commandes différentes mais rien n'y fait je n'arrive pas à récupérer la valeur des CB que j'ai crées.

S'il vous plait, aidez moi je suis a cours d'idée et je commence à désespérer.


NB: c'est la première fois que je fais du VB sous Word et non sous Excel....

[Jean-Marie Grave]

Bonjour

La difficulté provient du fait que les myCB que vous créez ne sont pas à proprement parler des CheckBox, c'est à dire des objets de classe MSForms.CheckBox. Mais vous pouvez obtenir ces objets par la transformation suivante,

Code :

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

     Set myObj = myCB.OLEFormat.Object

En effectuant cette transformation pour chacun des myCB, et en stockant les transformés dans un tableau d'objets, vous pourrez ainsi relire par programme leurs états.

[Jean-Marie Grave]

En guise de complément, je vous envoie les deux macros ci-après

Option Explicit

Public Sub Écrire()
Call Selection.InlineShapes.AddOLEControl("Forms.CheckBox.1")
Call Selection.InlineShapes.AddOLEControl("Forms.CheckBox.1")
Call Selection.InlineShapes.AddOLEControl("Forms.CheckBox.1")
End Sub

Public Sub Lecture()
Dim Shp As InlineShape, Msg As String
Msg = ""
For Each Shp In ActiveDocument.InlineShapes
With Shp.OLEFormat.Object
Msg = Msg & "Nom = " & .Caption & ", État = " & .Value & vbCrLf
End With
Next Shp
MsgBox Msg
End Sub

[Bluedeep]

Bonjour

Il faudrait faire déplacer ce sujet par un modérateur dans le forum adéquat. Ici c'est le forum VB.Net; rien à voir avec VBA, pour lequel il existe sur DVP un espace dédié.

Ici : http://www.developpez.net/forums/f28...e/general-vba/