Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller modifier
une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" a écrit dans le message de news:
%Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller modifier
une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" <julieh@discussions.microsoft.com> a écrit dans le message de news:
%23bUeH2PAIHA.4984@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller modifier
une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" a écrit dans le message de news:
%Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour et merci pour ta réponse,
Je n'ai pas réussi à trouver l'extension 5.3. J'ai 1 "visualbasic for
applications" de coché. (Windows XP - EXCEL 2003)
"ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3"
Pour le reste, je n'ai pas encore essayé (cause ci-dessus) mais je ne vois
pas exactement ou mettre mon code. Par ailleurs, je ne comprends pas bien
ce que fait la macro, je connais les lignes que j'ai à modifier, je ne
comprends pas pourquoi il faut que je les passe une à une avec le Next i.
N'y-a-t-il pas un moyen de sélectionner la Macro "Testit" à l'intérieur du
"Module1" ?
Merci d'avance
JulieBonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller
modifier une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" a écrit dans le message de
news: %Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour et merci pour ta réponse,
Je n'ai pas réussi à trouver l'extension 5.3. J'ai 1 "visualbasic for
applications" de coché. (Windows XP - EXCEL 2003)
"ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3"
Pour le reste, je n'ai pas encore essayé (cause ci-dessus) mais je ne vois
pas exactement ou mettre mon code. Par ailleurs, je ne comprends pas bien
ce que fait la macro, je connais les lignes que j'ai à modifier, je ne
comprends pas pourquoi il faut que je les passe une à une avec le Next i.
N'y-a-t-il pas un moyen de sélectionner la Macro "Testit" à l'intérieur du
"Module1" ?
Merci d'avance
Julie
Bonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller
modifier une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" <julieh@discussions.microsoft.com> a écrit dans le message de
news: %23bUeH2PAIHA.4984@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour et merci pour ta réponse,
Je n'ai pas réussi à trouver l'extension 5.3. J'ai 1 "visualbasic for
applications" de coché. (Windows XP - EXCEL 2003)
"ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3"
Pour le reste, je n'ai pas encore essayé (cause ci-dessus) mais je ne vois
pas exactement ou mettre mon code. Par ailleurs, je ne comprends pas bien
ce que fait la macro, je connais les lignes que j'ai à modifier, je ne
comprends pas pourquoi il faut que je les passe une à une avec le Next i.
N'y-a-t-il pas un moyen de sélectionner la Macro "Testit" à l'intérieur du
"Module1" ?
Merci d'avance
JulieBonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller
modifier une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" a écrit dans le message de
news: %Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
A ) Tu peux éviter de charger la référence
" Microsoft visualbasic for applications extensibility 5.3"
seulement en prenant soin de remplacer dans ton code
la constante texte : "vbext_pk_Proc" par sa valeur numérique 0
B ) Tu as un problème avec ta boucle :
For i = DebLig To FinLig
elle devrait se lire :
For i = DebLig To FinLig + DebLig
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de news:
%
Bonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller modifier
une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" a écrit dans le message de news:
%Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
A ) Tu peux éviter de charger la référence
" Microsoft visualbasic for applications extensibility 5.3"
seulement en prenant soin de remplacer dans ton code
la constante texte : "vbext_pk_Proc" par sa valeur numérique 0
B ) Tu as un problème avec ta boucle :
For i = DebLig To FinLig
elle devrait se lire :
For i = DebLig To FinLig + DebLig
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de news:
%23RuKfZQAIHA.3400@TK2MSFTNGP03.phx.gbl...
Bonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller modifier
une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" <julieh@discussions.microsoft.com> a écrit dans le message de news:
%23bUeH2PAIHA.4984@TK2MSFTNGP06.phx.gbl...
Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
A ) Tu peux éviter de charger la référence
" Microsoft visualbasic for applications extensibility 5.3"
seulement en prenant soin de remplacer dans ton code
la constante texte : "vbext_pk_Proc" par sa valeur numérique 0
B ) Tu as un problème avec ta boucle :
For i = DebLig To FinLig
elle devrait se lire :
For i = DebLig To FinLig + DebLig
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de news:
%
Bonjour
Pour la macro voici un exemple qui permet de lire les lignes d'une macro
nommée "Testit" située dans un module "Module1" :
'ajouter une référence à Microsoft visualbasic for applications
extensibility 5.3
Dim DebLig As Long, FinLig As Long
Dim i As Long, ChaineTxtCode As String
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
DebLig = .ProcStartLine("Testit", vbext_pk_Proc)
FinLig = .ProcCountLines("Testit", vbext_pk_Proc)
For i = DebLig To FinLig
ChaineTxtCode = .Lines(i, 1)
Next i
End With
Avec ça et le code que tu as trouvé, tu dois être en mesure d'aller modifier
une ligne.
Pour atteindre ThisWorkbook c'est pareil :
ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
Cordialement
Pascal
"JulieH" a écrit dans le message de news:
%Bonjour à toutes et tous,
Je souhaite aller dans le projet VBA et modifier des lignes de code par
Macro. Je sais que ce sujet a été souvent abordé et j'ai trouvé de
nombreux exemples sur le forum ou sur les différents sites, notamment le
code suivant qui fonctionne parfaitement :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 2
.InsertLines 2, "zaza"
End With
Ce qui me manque pour avancer :
- Comment atteindre directement une Macro et non le module ?
- Quel code pour atteindre le Workbook_Open ?
- Peut-on modifier une ligne en mettant (ou enlevant) l'apostrophe du
début ?
Merci pour vos idées.
Julie
| Merci de vos réponses même négatives.
Apporter une correction à la procédure reçue, est-ce négatif ?
Voici comme faire pour désactiver toute une procédure en utilisant le " ' "
en début de ligne.
Nul besoin d'ajouter une quelconque bibliothèque à ton classeur pour
exécuter cette macro
'---------------------------
Sub test()
'Appel de la macro "MettreEnCommentaire"
'Respecte les arguments de la procédure :
'Nom du classeur : ThisWorkbook.Name ou Workbooks("MonClasseur.xls"
'Nom du module où se trouve la macro : "Module1"
'Nom de la macro à désactiver : "Macro1"
MettreEnCommentaire ThisWorkbook.Name, "module1", "Macro1"
End Sub
'---------------------------
'---------------------------
Sub MettreEnCommentaire(NomDuClasseur As String, _
NomDuModule As String, _
NomDeLaSub As String)
Dim Debut As Integer, Fin As Long, T As String
On Error Resume Next
With Workbooks(NomDuClasseur)
With .VBProject.VBComponents(NomDuModule).CodeModule
Debut = .ProcStartLine(NomDeLaSub, 0)
Fin = .ProcCountLines(NomDeLaSub, 0) + Debut
For A = Debut To Fin
If .Lines(A, 1) <> "" Then
T = "'" & .Lines(A, 1)
.ReplaceLine (A), T
End If
Next
End With
End With
End Sub
'---------------------------
| Merci de vos réponses même négatives.
Apporter une correction à la procédure reçue, est-ce négatif ?
Voici comme faire pour désactiver toute une procédure en utilisant le " ' "
en début de ligne.
Nul besoin d'ajouter une quelconque bibliothèque à ton classeur pour
exécuter cette macro
'---------------------------
Sub test()
'Appel de la macro "MettreEnCommentaire"
'Respecte les arguments de la procédure :
'Nom du classeur : ThisWorkbook.Name ou Workbooks("MonClasseur.xls"
'Nom du module où se trouve la macro : "Module1"
'Nom de la macro à désactiver : "Macro1"
MettreEnCommentaire ThisWorkbook.Name, "module1", "Macro1"
End Sub
'---------------------------
'---------------------------
Sub MettreEnCommentaire(NomDuClasseur As String, _
NomDuModule As String, _
NomDeLaSub As String)
Dim Debut As Integer, Fin As Long, T As String
On Error Resume Next
With Workbooks(NomDuClasseur)
With .VBProject.VBComponents(NomDuModule).CodeModule
Debut = .ProcStartLine(NomDeLaSub, 0)
Fin = .ProcCountLines(NomDeLaSub, 0) + Debut
For A = Debut To Fin
If .Lines(A, 1) <> "" Then
T = "'" & .Lines(A, 1)
.ReplaceLine (A), T
End If
Next
End With
End With
End Sub
'---------------------------
| Merci de vos réponses même négatives.
Apporter une correction à la procédure reçue, est-ce négatif ?
Voici comme faire pour désactiver toute une procédure en utilisant le " ' "
en début de ligne.
Nul besoin d'ajouter une quelconque bibliothèque à ton classeur pour
exécuter cette macro
'---------------------------
Sub test()
'Appel de la macro "MettreEnCommentaire"
'Respecte les arguments de la procédure :
'Nom du classeur : ThisWorkbook.Name ou Workbooks("MonClasseur.xls"
'Nom du module où se trouve la macro : "Module1"
'Nom de la macro à désactiver : "Macro1"
MettreEnCommentaire ThisWorkbook.Name, "module1", "Macro1"
End Sub
'---------------------------
'---------------------------
Sub MettreEnCommentaire(NomDuClasseur As String, _
NomDuModule As String, _
NomDeLaSub As String)
Dim Debut As Integer, Fin As Long, T As String
On Error Resume Next
With Workbooks(NomDuClasseur)
With .VBProject.VBComponents(NomDuModule).CodeModule
Debut = .ProcStartLine(NomDeLaSub, 0)
Fin = .ProcCountLines(NomDeLaSub, 0) + Debut
For A = Debut To Fin
If .Lines(A, 1) <> "" Then
T = "'" & .Lines(A, 1)
.ReplaceLine (A), T
End If
Next
End With
End With
End Sub
'---------------------------
| Merci de vos réponses même négatives.
Apporter une correction à la procédure reçue, est-ce négatif ?
| Merci de vos réponses même négatives.
Apporter une correction à la procédure reçue, est-ce négatif ?
| Merci de vos réponses même négatives.
Apporter une correction à la procédure reçue, est-ce négatif ?