XL 2019 Mise en forme cadre zone de texte

[Danyk01]

Bonjour
j'aimerais savoir s'il était possible de cacher les cadres de plusieurs zones de texte par le biais d'une macro?
Merci pour vos réponses
Dany

 

[laurent950]

Bonjour @Danyk01

Cacher le cadre de la zone de texte :

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

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

 

[Danyk01]

Bonjour @Danyk01

Cacher le cadre de la zone de texte :

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

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

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

 

[sylvanu]

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

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

 

[Nain porte quoi]

à la place de

 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

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

 

[Danyk01]

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

Ca Marche
Merci

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

Laurent, ça fonctionne, j'ai ajouté une ligne pour réactiver les cadres
Tout OK
Merci

 

[Danyk01]

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

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

Merci Sylvanu, ça a l'air de fonctionner

 

[Danyk01]

à la place de

 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

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

à la place de

 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

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

Merci Nain porte quoi
Ca fonctionne aussi
Merci à tous et à bientôt