Discussion :

[jepac]

Bonsoir,

Je souhaite rendre invisible (et ensuite visible) toutes les bordures des textbox et combox du document et ceci au moyen d'une macro.

A noter que ces contrôles se trouvent directement sur le document (ThisDocument) et non pas dans un Userform.

Merci de votre aide.

Jean-Paul

[Invité]

Bonjour,

Si ces contrôles sont des ActiveX, essayez ce code :

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
18
19
20
21
22
 
Sub MontrerCacherLesBordures(ByVal CacherControle As Boolean)
 
Dim ControleEnCours As InlineShape
 
    For Each ControleEnCours In ActiveDocument.InlineShapes
        If ControleEnCours.Type = wdInlineShapeOLEControlObject Then
             Select Case ControleEnCours.OLEFormat.ClassType
                    Case "Forms.Label.1", "Forms.TextBox.1", "Forms.ComboBox.1"
                         ' MsgBox ControleEnCours.OLEFormat.ClassType
                         With ControleEnCours.OLEFormat.Object
                              If CacherControle = True Then
                                 .BorderStyle = 0
                              Else
                                 .BorderStyle = 1
                             End If
                        End With
            End Select
     End If
    Next
 
End Sub

Ce code est lancé par cette macro dans ThisDocument

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
18
19
 
 
Private Sub CommandButton1_Click()
 
        With CommandButton1
             If .Caption = "Cacher" Then
                MontrerCacherLesBordures True
                .Caption = "Montrer"
                Exit Sub
             End If
 
             If .Caption = "Montrer" Then
                MontrerCacherLesBordures False
                .Caption = "Cacher"
                Exit Sub
            End If
        End With
 
End Sub

Pièce jointe 225854

Pièce jointe 225855

Cordialement.

[Airthé]

Grâce à votre discussion j'ai enfin compris pourquoi je n'arrivais pas à détecter l'ensemble de mes OPtionButton et donc de leur valeur dans mon document.
J'allais ouvri une nouvelle discussion mais ce n'est pas la peine.
c'est la notion de InlineShapes qui me manquait ainsi que .OLEFormat.Object
Merci à tous les 2

[Invité]

Merci à vous. Au moins, voilà quelqu'un de satisfait...