Active X

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

Salut Ploz,

un conseil : toujours suivre les sujets traités par les as! Tu récoltes des codes d'exception!

En voici un de MFerrand, qui sauf erreur, errare humanum est!, concerne ton problème s'il s'agit bien de contrôles placés directement sur une feuille.

Tu trouveras bien la façon de modifier selon tes besoins!

With Worksheets("Accueil")
        For i = 1 To 8
            With .OLEObjects("TextBox" & i).Object
                If i <= 2 Then
                    If .Value = "" Then .Value = InputBox("Entrer un numéro de poteau", "Erreur")
                Else
                    If .Value = "" Then .Value = Worksheets("Accueil") _
                     .OLEObjects("TextBox" & (i - 1) Mod 2 + 1).Object.Value
                End If
            End With
        Next i
    End With

C'est en forgeant qu'on devient forgeron!

A+

merci

je travaillerais dessus

Bonjour,

afin de vous tenir informer j'ai résolu mon code

je le poste sa peux aider des personnes

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