supprimer d'un ligne d'un moduleRésolu

Question

bonjour
je souhaite supprimer un ligne dans un module apr&#233;s avoir enregistrer sous mon document 
quel code puis-je ecrire
merci de votre aide
dj 26

michelxld · Accepted Answer

bonsoir

dj26 , tu peux tester cette macro qui supprime la 3eme ligne de la macro "maMacro" , dans le Module1

Sub supprimererLigneMacro()
Dim Debut As Integer
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
Debut = .ProcStartLine("maMacro", 0)
.DeleteLines Debut + 3, 1
End With
End Sub

bonne soiree
michel

BZY1 · Answer

salut je comprend pas trop ta question peut tu etre plus clair stp

dj26 · Answer

je veux en fait supprimer une ligne dans un module
et je connais pas de code pour ca

BZY1 · Answer

je comprend toujours pas ta question d&#233;sol&#233; peut etre que quelqu'un d'autre pourra t'aider....Parce que ce que je comprend c'est que tu as un module que tu as programm&#233; et tu veux effacer une ligne du prog alors je vois pas o&#249; est le probl&#232;me?!
bon courage et j'esp&#232;re que quelqu'un pourra repondre a+

dj26 · Answer

je me sui mal exprimer 
en fait je ve pouvoir supprimer une ligne d'une macro et non d'un module
exemple:

1.sub macro()
2.range("A45").select
3.selection.clearcontent
4.end sub

j'aimerai faire une macro qui supprime la ligne 3 (selection.clearcontent)

voil&#224; j'esp&#232;re que tu pourra m'aider car je gal&#232;re depuis se matin
@+dj26

BZY1 · Answer

ah ok j'ai crois que j'ai compris pourquoi tu mets pas range("feuil1!a45") = "" 
&#231;a t'efface ce qu'il y a dans ta case.
et si tu veux vraiment faire une selection utilise plutot cells -> cells(1,45) comme &#231;a c'est toi qui param&#232;tre quand tu veux la case a effacer, et si tu veux tout une colone tu met:

Dim i As Integer
i=0
Do Until Cells(1, i+1 )<>""  'le fait jusqu'a ce que la case suivante soit vide
i = i + 1                               'incremente la variable et donc selectionne la case suivante
Cells(1,i)=""                         'remplace ce qu'il y a dans la case par un vide
loop

voil&#224; j'esp&#232;re avoir pu t'aider, bon prog a+

Supprimer d'un ligne d'un module

6 réponses

Discussions similaires