[XL-365] [VBA] Plantage sur ProcStartLine

[VBA] Plantage sur ProcStartLine

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:

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

Bonjour,

Citation:

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.

Tu veux dire que tu fais ce travail sur l'événement open du classeur?

Oui.

Avec un debug.print je viens de vérifier que les sub a supprimer sont bien dans le code module juste avant l'appel de la ligne de recherche !

L'objet est déclaré : dim ... as oleobject

Mystère ! Et pourtant, j'ai dû mettre un truc louche. :arf:

rien de louche juste une petite erreur dans ton script !

Code:

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

Citation:

Envoyé par Thumb down

rien de louche juste une petite erreur dans ton script !

Ca doit être moi qui louche car je ne vois toujours pas où ... alors que je t'accorde que c'est un script courant !

Bonjour,

Code:

1
2
'sNomCode = ctrlObj.Name & "_Click()" 'Err
sNomCode = ctrlObj.Name & "_Click"

Citation:
Envoyé par Thumb down
Bonjour,
Code:

1 2 'sNomCode = ctrlObj.Name & "_Click()" 'Err sNomCode = ctrlObj.Name & "_Click"
C'était forcément un truc du genre ... je crois que quelques jours de congés me feront du bien 8-)

Merci encore d'avoir mis le point sur le I !