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