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 :
J'ensuite appelé RAZ_Textbox dans this workbook ...
Quelqu'un pourrait m'aiguiller s'il vous plait ?
Merci d'avance!!
++
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 :
Code:
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!!
++