XL 2019 Mise en forme cadre zone de texte

laurent950 à dit:

Bonjour @Danyk01

Cacher le cadre de la zone de texte :

VB:

Sub CacherCadresZonesDeTexte()
    Dim shp As Shape
 
    ' Parcourir toutes les formes sur la feuille active
    For Each shp In ActiveSheet.Shapes
        ' Vérifier si la forme est une zone de texte
        If shp.Type = msoTextBox Then
            ' Cacher le cadre de la zone de texte
            shp.Line.Visible = msoFalse
        End If
    Next shp
End Sub

Afficher le cadre de la zone de texte

Code:

Sub AfficherCadresZonesDeTexte()
    Dim shp As Shape
  
    ' Parcourir toutes les formes sur la feuille active
    For Each shp In ActiveSheet.Shapes
        ' Vérifier si la forme est une zone de texte
        If shp.Type = msoTextBox Then
            ' Afficher le cadre de la zone de texte
            shp.Line.Visible = msoTrue
        End If
    Next shp
End Sub

Cliquez pour agrandir...

Danyk01 à dit:

Merci Laurent950
je vais essayer et te tenir au courant si ça marche
A+

Cliquez pour agrandir...

Danyk01 à dit:

Merci Laurent950
je vais essayer et te tenir au courant si ça marche
A+

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Danyo, Laurent,
Et avec une petite modif on peut masquer/démasquer avec un seul bouton :

VB:

Sub MasquerDemasquerCadresZonesDeTexte()
    Dim shp As Shape, Flag
    ' Parcourir toutes les formes sur la feuille active
    For Each shp In ActiveSheet.Shapes
        ' Vérifier si la forme est une zone de texte
        If shp.Type = msoTextBox Then
            ' Regarder état du cadre et chager son statut
            If shp.Line.Visible = True Then Flag = msoFalse Else Flag = msoTrue
            ' Cacher le cadre de la zone de texte
            shp.Line.Visible = Flag
        End If
    Next shp
End Sub

Cliquez pour agrandir...

Nain porte quoi à dit:

à la place de

VB:

 If shp.Line.Visible = True Then Flag = msoFalse Else Flag = msoTrue
 ' Cacher le cadre de la zone de texte
 shp.Line.Visible = Flag

je propose

VB:

shp.Line.Visible = Not shp.Line.Visible

Cliquez pour agrandir...

Nain porte quoi à dit:

à la place de

VB:

 If shp.Line.Visible = True Then Flag = msoFalse Else Flag = msoTrue
 ' Cacher le cadre de la zone de texte
 shp.Line.Visible = Flag

je propose

VB:

shp.Line.Visible = Not shp.Line.Visible

Cliquez pour agrandir...