Discussion :

[GROBIN]

Bonjour, je cherche a sélectionner toutes les TextBox d'une feuille excel pour les modifier toutes ensembles. J'ai trouver comment les effacer et pensai pouvoir adapter le code mais je n'y arrive pas.

Code :

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

1
2
3
4
5
6
7
8
9
Sub SupprimeTextBox()
For Each f In Worksheets
  On Error Resume Next
  For Each sh In Sheets(f.Name).Shapes
   If Left(sh.Name, 4) = "Text" Then sh.Delete
  Next
  Err.Clear
Next
End Sub

Pouvez-vous m'aider. Merci. GR

[mercatog]

Qu'est ce que tu veux modifier? As tu besoin de sélectionner?

[GROBIN]

Bonjour Mercatoq, j'ai par feuille de 100 à 150 TexteBox dont je dois modifier
le format selon l'utilisation que j'en fait. Ci-joint 1 fichier explicatif. GR

[mercatog]

Tu es en présence de zones de textes. Utilises l'enregistreur de macros pour récupérer le code nécessaire au changement souhaité.

Ci-joint code-exemple testé sur Excel 2007 pour la modification du fond et de la bordure de toutes les zones de textes appartenant à toutes les feuilles du classeur

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
Sub Modif()
Dim Ws As Worksheet
Dim Sh As Shape
 
For Each Ws In ThisWorkbook.Worksheets
    For Each Sh In Ws.Shapes
        With Sh
            If .Type = msoTextBox Then
                .Fill.ForeColor.RGB = RGB(124, 67, 167)
                .Line.Weight = 2
                .Line.ForeColor.RGB = RGB(255, 120, 80)
            End If
        End With
    Next Sh
Next Ws
End Sub

[GROBIN]

Merci Mercatoq de ton aide. De mon côté, j'ai progressé. Mais, je butais sur les flèches. J'ai donc différencié mes shapes. Voici le code que j'ai employé:

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
Sub La_formeA()
Dim laShape As Shape
For Each laShape In ThisWorkbook.Sheets("Feuil2").Shapes
    laShape.Select
    Application.ScreenUpdating = True
    If laShape.Type = 17 Then
          With Selection.Font
        .Size = 26
        .ColorIndex = xlAutomatic
   End With
   'Selection.ShapeRange.Line.Weight = 5.5
   End If
   If laShape.Type = 5 Then
   Selection.ShapeRange.Line.Weight = 5.5
   End If
Next laShape
End Sub

Pour touver le type de la shape, j'ai employé ce code:

Code :

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

1
2
3
4
5
6
7
8
Sub CherchTypeShape()
Dim laShape As Shape
For Each laShape In ThisWorkbook.Sheets("Feuil2").Shapes
    laShape.Select
    Application.ScreenUpdating = True
    MsgBox "nom: " & laShape.Name & vbNewLine & "type: " & laShape.Type
Next laShape
End Sub

Merci pour tout