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