Active X

[ploz]

Bonjour,

dans une feuille j'ai plusieurs textbox (active X )

je voudrais que quand ma macro a fini de s'exécuter tout mes champs active x retire toutes les données entré précedement

merci de votre aide

 

[laetitia90]

Re : Active X

bonjour ploz🙂

brut comme cela

Dim x As Byte
  For x = 1 To 4
  Feuil1.OLEObjects("Textbox" & x).Object = ""
  Next x

 

[Lone-wolf]

Re : Active X

Bonjour laetitia 🙂

Attention tout de même avec tous ces X, tu vois ce que je veux dire? 🙄 😀

Bon...d'accord... on est sur XLD 😉



A+ 😎

 

[ploz]

Re : Active X

Merci laetitia je teste cela

 

[ploz]

Re : Active X

le mieux et de mettre dans un module ? ou de l'adapter a mon userform ?

dsl mais je suis débutant en VBA :s

 

[ploz]

Re : Active X

j'ai resolu si sa peut aidé quelqu'un

Public Sub clearFicheVierge()
Dim OleObj As OLEObject
Feuil2.Shapes("Check Box 1").OLEFormat.Object.Value = False
Feuil2.Shapes("Check Box 2").OLEFormat.Object.Value = False
For Each OleObj In Feuil2.OLEObjects
If InStr(1, OleObj.progID, "Forms.TextBox.1") > 0 Then OleObj.Object.Value = ""
Next OleObj
End Sub

Public Sub clearDonnees()
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic
End Sub