Supprimer une ligne de Code dans une procdure

[MuscatMimi]

Bonjour a tout le Forum

je sais créer une ligne de procéadure dans un Code mais je ne sais pas comment faire pour la supprimer
je cherche donc de l'aide pour savoir comment Supprimer,
par une procédure Vba
la ligne de procédure suivante "Call OuvrUsf3"
dans le Code ci-dessous

Private Sub Workbook_Open()
Compagnon
barre_menus_perso
Call OuvrUsf3
End Sub

Merci a l'avance a tous
Cordialement

 

[job75]

Re : Supprimer une ligne de Code dans une procdure

Bonsoir,

Si la ligne de code à supprimer est la 4ème dans Thisworkbook, exécuter :

ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.ReplaceLine [COLOR="Red"]4[/COLOR], ""

A+

 

[MuscatMimi]

Re : Supprimer une ligne de Code dans une procdure

Bonjour job75

merci de ton aide,mais je viens d'essayer ça fonctionne pas ma ligne de code
ne ce supprime pas

a +++++

 

[Fred0o]

Re : Supprimer une ligne de Code dans une procdure

Bonsoir vaucluse, Job75,

Tu peux essayer ceci qui est à peu près équivalent au code de Job75. Ces 2 codes ne fonctionnent que si la ligne en question est réellement la 4° du module. Si ce n'est pas le cas, repères la ligne exacte où elle se trouve (lignes vides comprises) et remplaces le 4 par cette valeur.

    ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule.DeleteLines 4

A+

 

[roro69]

Re : Supprimer une ligne de Code dans une procdure

Bonsoir à essayer:

With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 4
End With

A++

 

[Bebere]

Re : Supprimer une ligne de Code dans une procdure

bonjour Vaucluse,Fred
attention toutes les lignes comptent, même vide
2,2 supprime ligne 2
2,4 supprime 2 à 4,etc
changer module2

Sub supprlignes()
Set MonModule = ThisWorkbook.VBProject.VBComponents("Module2")
MonModule.CodeModule.DeleteLines 2, 2
End Sub
à bientôt

 

[MuscatMimi]

Re : Supprimer une ligne de Code dans une procdure

Bonsoir a tous
merci de vos réponses,mais je précise que c'ets dans
Private Sub Workbook_Open()
10 Call Macro1
20 Compagnon
End Sub
que je désire supprimer la Ligne 20,mais c'est pas dans un Module

a plus

 

[job75]

Re : Supprimer une ligne de Code dans une procdure

Re,

Bonjour job75

merci de ton aide,mais je viens d'essayer ça fonctionne pas ma ligne de code
ne ce supprime pas

a +++++

Je n'ai pas l'habitude de donner des codes qui ne fonctionnent pas, car je les ai testés 🙂

Donc essayer de :

- mettre le bon n° de ligne (en comptant les lignes vides comme on l'a dit)

- remplacer éventuellement ActiveWorkbook par Workbooks("TOTO") s'il s'agit d'un autre classeur.

A+

 

[Fred0o]

Re : Supprimer une ligne de Code dans une procdure

Re-bonsoir Vaucluse, Job, roro, bebere,

Meme remarque que Job75 : Je teste toujours les solutions que je propose. Si cell-ci ne fonctionne pas chez toi Vaucluse, c'est que soit la ligne à supprimer n'est pas la quatrième, soit le nom n'est pas le bon dans l'instruction destinée à détruire cette foutue ligne. Il faut donc que tu vérifie la cohérence de ces 2 éléments.
Si tu n'y arrive pas, envoie nous une copie épurée de ton fichier, sans données mais juste avec le code. Ainsi, nous pourrons te fournir une réponse sur mesure.

A+

 

[MuscatMimi]

Re : Supprimer une ligne de Code dans une procdure

Re

Bon c'est ok, comme j'ai MzTools
j'ai pris le chiffre correspondant mais ça fonctionnait pas, j'ai donc tout simplement comme vous avez dit, comptez les lignes et la OK ça fonctionne bien,
Merci et milles excuses pour cette imcompréhension de ma part

Bonne soirée a tous