XL 2013 initialisation TEXTBOX à l'ouverture du classeur

[MM3133]

Bonjour le Forum,

J'aurais besoin de votre aide
J'ai pourtant essayé toutes les solutions trouvées sur le sujet mais rien ne fonctionne je ne comprends plus pourquoi
Je souhaite réinitialiser les Textbox de mon Classeur à la fermeture mais cela ne fonctionne vraiment pas

voici le code qui me semblait adéquate :

Sub untextbox()
 Dim txt As OLEObject
 
 For Each txt In ActiveSheet.OLEObjects
 If TypeOf txt.Object Is MSForms.TextBox Then
 txt.Object.Value = ""
 End If
 
 Next txt
 
End Sub
Sub RAZ_Textbox()
Application.ScreenUpdating = False
LockWindowUpdate FindWindowA("XLMAIN", Application.Caption)


groupe = Array("A", "B", "C", "D")

Dim Ws As Worksheet

For Each Ws In Sheets(groupe)

Sheets(Ws.Name).Select

Call untextbox

Next Ws

Application.ScreenUpdating = True
LockWindowUpdate 0

End Sub

J'ensuite appelé RAZ_Textbox dans this workbook ...

Quelqu'un pourrait m'aiguiller s'il vous plait ?

Merci d'avance!!
++

 

[MM3133]

Re : initialisation TEXTBOX à l'ouverture du classeur

Re,

Merci beaucoup Paf pour ces explications ( je commence juste en VBA et beaucoup de choses m'échappent encore).
Heureusement que le forum est là !!

Je vais réajuster mon code.

++