Bonjour,

Souci sur le code suivant et après visu de plusieurs posts sur le même sujet ... je ne trouve pas l'erreur !

A l'ouverture de mon classeur je passe sur tous les commandbutton existants sur ma première feuille et je les détruis ainsi que l'appel à une macro qu'ils pouvaient lancer au click éventuellement.

reference M ... extensibility 6.3 est OK.
Approuvé Projet VBA est OK.

Le message d'erreur 35 est "Sub ou fonction non définie" alors que a priori tout est OK !

Plus loin, des insertlines avec les même paramètres se passent très bien !

Des pistes de recherche ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
For Each ctrlObj In ActiveSheet.OLEObjects
sTest = TypeName(ctrlObj.Object)
    If sTest = "CommandButton" Then
        sNomCode = ctrlObj.Name & "_Click()"
        With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
            lDebut = .ProcStartLine(sNomCode, 0) ' Plantage en erreur 35
            lNbLignes = .ProcCountLines(sNomCode, 0)
            .DeleteLines lDebut, lNbLignes
        End With
        ctrlObj.Delete
    End If
Next ctrlObj