Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
C'est vraiment exceptionnel qu'il soit nécessaire de modifier du code par du
code et je subodore qu'il y a la dessous une grossière erreur de conception.
C'est vraiment exceptionnel qu'il soit nécessaire de modifier du code par du
code et je subodore qu'il y a la dessous une grossière erreur de conception.
C'est vraiment exceptionnel qu'il soit nécessaire de modifier du code par du
code et je subodore qu'il y a la dessous une grossière erreur de conception.
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" <ewts@sansspam> a écrit dans le message de news:
64B884D7-B702-4AD8-9EB4-9C523212BA27@microsoft.com...
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Mon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question me
brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long terme
pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne comprendra
vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire, ne
pas s'arreter à une idée préconcue de solution. Lui demander d'analyser. De
reflechir même et éventuellement faire l'effort pour s'améliorer durablement
pour devenir un jour un caïd comme tu l'es toi-même devenu, non pas par la
gâce divine ou par des cadeaux empoisonnés mais par un travail régulier et
profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme c'est
un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Mon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question me
brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long terme
pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne comprendra
vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire, ne
pas s'arreter à une idée préconcue de solution. Lui demander d'analyser. De
reflechir même et éventuellement faire l'effort pour s'améliorer durablement
pour devenir un jour un caïd comme tu l'es toi-même devenu, non pas par la
gâce divine ou par des cadeaux empoisonnés mais par un travail régulier et
profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme c'est
un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O6899hU6GHA.4732@TK2MSFTNGP03.phx.gbl...
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" <ewts@sansspam> a écrit dans le message de news:
64B884D7-B702-4AD8-9EB4-9C523212BA27@microsoft.com...
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Mon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question me
brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long terme
pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne comprendra
vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire, ne
pas s'arreter à une idée préconcue de solution. Lui demander d'analyser. De
reflechir même et éventuellement faire l'effort pour s'améliorer durablement
pour devenir un jour un caïd comme tu l'es toi-même devenu, non pas par la
gâce divine ou par des cadeaux empoisonnés mais par un travail régulier et
profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme c'est
un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelleMon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelle
Mon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O6899hU6GHA.4732@TK2MSFTNGP03.phx.gbl...
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" <ewts@sansspam> a écrit dans le message de news:
64B884D7-B702-4AD8-9EB4-9C523212BA27@microsoft.com...
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelleMon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelleMon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelle
Mon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O6899hU6GHA.4732@TK2MSFTNGP03.phx.gbl...
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" <ewts@sansspam> a écrit dans le message de news:
64B884D7-B702-4AD8-9EB4-9C523212BA27@microsoft.com...
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelleMon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider et
notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien le
demandeur est novice. Ecrire un module, (presque) personne ne le peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" <ewts@sansspam> a écrit dans le message de news:
64B884D7-B702-4AD8-9EB4-9C523212BA27@microsoft.com...
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Re....
Pleine lune..............???
--
Salutations
JJ
"isabelle" a écrit dans le message de news:quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelleMon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider
et notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien
le demandeur est novice. Ecrire un module, (presque) personne ne le
peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Re....
Pleine lune..............???
--
Salutations
JJ
"isabelle" <iii@iii> a écrit dans le message de news:
uQB1HIV6GHA.2384@TK2MSFTNGP04.phx.gbl...
quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelle
Mon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider
et notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien
le demandeur est novice. Ecrire un module, (presque) personne ne le
peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O6899hU6GHA.4732@TK2MSFTNGP03.phx.gbl...
Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" <ewts@sansspam> a écrit dans le message de news:
64B884D7-B702-4AD8-9EB4-9C523212BA27@microsoft.com...
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
Re....
Pleine lune..............???
--
Salutations
JJ
"isabelle" a écrit dans le message de news:quel mouche te pique, paul,
moi qui suis débutant en VBA, je comprends cette macro du premier coup.
;-)
isabelleMon cher MichDenis,
J'admire tes compétences larges et variées et malgré cela, une question
me brule les doigts depuis des années. Et aujourd'hui, je me lache.
Qu'il soit bien entendu que ceci n'est en aucun cas une critique de la
demande initiale tout à fait légitime. Chacun essaye de se faire aider
et notre demandeur à raison de le faire.
Mais penses-tu avoir réellement aidé notre ami?
Te t'es tu jamais demandé si pondre du code pour autrui , comme s'il
s'agissait d'oeufs ou même pire, était d'une quelconqiue aide à long
terme pour des demandeurs qui la plupart du temps n'y comprenne rien.
Dans le cas qui nous occupe, une brave homme (ou femme) demande un truc
complètement idiot. Je résume mon analyse à la lecture de la question.
"Je souhaiterais écrire un module VBA"
Dois-je t'apprendre que rien que ce bout de phrase revele déjà combien
le demandeur est novice. Ecrire un module, (presque) personne ne le
peut.
"qui soit capable de modifier (par exemple via recherche/remplacement) "
Modier du code par recherche/remplacer, ça c'est une idée qu'elle est
bonne.
"le code d'un autre module VBA "
le code d'un module??? Dur -dur
Il apparaît évident à une simple lecture que le demandeur n'est pas
vraiement habitué à manipuler le VBA.
Alors, ou est l'utilité de lui fourguer une procédure dont il ne
comprendra vraisemblablement rien.
Mais je m'emballe et je me demande bien à quel titre. Peut-être celui
d'ancien du groupe et aussi mon grand age.
Ne crois-tu pas qu'aider réellement le demandeur ne passe pas par une
certaine éducation. L'obliger à expliquer son problème et pour ce faire,
ne pas s'arreter à une idée préconcue de solution. Lui demander
d'analyser. De reflechir même et éventuellement faire l'effort pour
s'améliorer durablement pour devenir un jour un caïd comme tu l'es
toi-même devenu, non pas par la gâce divine ou par des cadeaux
empoisonnés mais par un travail régulier et profond.
Mon message est fini et j'hésite à l'effacer ou l'envoyer. Mais comme
c'est un jour de m.. aujourd'hui, hop, c'est parti.
Cordiallement
Paul V
"MichDenis" a écrit dans le message de news:Voici un petit exemple simple :
'---------------------------
Sub RemplacerUneProcédure()
Dim S As String
Dim Debut As Integer, NbLignes As Integer
'Le texte de ta nouvelle macro
S = "Sub NouvelleMacro()" & vbCrLf
S = S & "Msgbox ""Bonjour""" & vbCrLf
S = S & "End Sub"
'Supposons que la macro à remplacer est dans le module1
'Ce bout de code va détruire la macro
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("Test", 0)
NbLignes = .ProcCountLines("Test", 0)
.DeleteLines Debut, NbLignes
'Pour ajouter la procédure contenue dans la variable S
.AddFromString S
End With
End Sub
'---------------------------
"ewts" a écrit dans le message de news:
Je souhaiterais écrire un module VBA qui soit capable de modifier (par
exemple via recherche/remplacement) le code d'un autre module VBA
