Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Michel,
Oui, c'est possible. Je te propose 2 façons de faire selon que tu connais avant le lancer la procédure, le nom du module où ta ligne de code doit être modifiée ou non .
'Ligne de code dont tu ne connais pas le nom du module où la ligne de code à changer se trouve -------------- Sub RemplacerUneLigneDeCode()
Dim LigneRecherchée As String, RemplacéPar As String Dim VbComp As Object, VbComps As Object Dim i, j, Nb As Integer, NLigne As Integer
Set VbComps = ActiveWorkbook.VBProject.VBComponents Nb = VbComps.Count For Each VbComp In ActiveWorkbook.VBProject.VBComponents For i = 1 To Nb NLigne = VbComps(i).CodeModule.CountOfLines For j = 1 To NLigne If VbComps(i).CodeModule.Lines(j, 1) = LigneRecherchée Then VbComps(i).CodeModule.DeleteLines j VbComps(i).CodeModule.InsertLines j, RemplacéPar End If Next j Next i Next Set VbComp = Nothing: Set VbComps = Nothing
End Sub --------------
'Recherche dans un module particulier '--------------- Sub RemplacerUneLigneDeCodeParUnAutre()
Dim Recherche As String, Remplace As String, Comp As Object Dim A As Integer, B As Integer, Nb As Integer, NbLigne As Integer
Set Comp = ActiveWorkbook.VBProject.VBComponents("module1") NbLigne = Comp.CodeModule.CountOfLines For B = 1 To NbLigne If Comp.CodeModule.Lines(B, 1) = Recherche Then Comp.CodeModule.DeleteLines B Comp.CodeModule.InsertLines B, Remplace End If Next Set Comp = Nothing
End Sub --------------
Salutations!
"Michel.Girard" a écrit dans le message de news: O$35E$ Bonsoir Je désire modifier une macro par macro Est-ce possible ? Merci beaucoup Michel
Bonjour Michel,
Oui, c'est possible. Je te propose 2 façons de faire selon que tu connais avant le lancer la procédure, le nom du module
où ta ligne de code doit être modifiée ou non .
'Ligne de code dont tu ne connais pas le nom du module où la ligne de code à changer se trouve
--------------
Sub RemplacerUneLigneDeCode()
Dim LigneRecherchée As String, RemplacéPar As String
Dim VbComp As Object, VbComps As Object
Dim i, j, Nb As Integer, NLigne As Integer
Set VbComps = ActiveWorkbook.VBProject.VBComponents
Nb = VbComps.Count
For Each VbComp In ActiveWorkbook.VBProject.VBComponents
For i = 1 To Nb
NLigne = VbComps(i).CodeModule.CountOfLines
For j = 1 To NLigne
If VbComps(i).CodeModule.Lines(j, 1) = LigneRecherchée Then
VbComps(i).CodeModule.DeleteLines j
VbComps(i).CodeModule.InsertLines j, RemplacéPar
End If
Next j
Next i
Next
Set VbComp = Nothing: Set VbComps = Nothing
End Sub
--------------
'Recherche dans un module particulier
'---------------
Sub RemplacerUneLigneDeCodeParUnAutre()
Dim Recherche As String, Remplace As String, Comp As Object
Dim A As Integer, B As Integer, Nb As Integer, NbLigne As Integer
Set Comp = ActiveWorkbook.VBProject.VBComponents("module1")
NbLigne = Comp.CodeModule.CountOfLines
For B = 1 To NbLigne
If Comp.CodeModule.Lines(B, 1) = Recherche Then
Comp.CodeModule.DeleteLines B
Comp.CodeModule.InsertLines B, Remplace
End If
Next
Set Comp = Nothing
End Sub
--------------
Salutations!
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message de news:
O$35E$1HFHA.4060@TK2MSFTNGP14.phx.gbl...
Bonsoir
Je désire modifier une macro par macro
Est-ce possible ?
Merci beaucoup
Michel
Oui, c'est possible. Je te propose 2 façons de faire selon que tu connais avant le lancer la procédure, le nom du module où ta ligne de code doit être modifiée ou non .
'Ligne de code dont tu ne connais pas le nom du module où la ligne de code à changer se trouve -------------- Sub RemplacerUneLigneDeCode()
Dim LigneRecherchée As String, RemplacéPar As String Dim VbComp As Object, VbComps As Object Dim i, j, Nb As Integer, NLigne As Integer
Set VbComps = ActiveWorkbook.VBProject.VBComponents Nb = VbComps.Count For Each VbComp In ActiveWorkbook.VBProject.VBComponents For i = 1 To Nb NLigne = VbComps(i).CodeModule.CountOfLines For j = 1 To NLigne If VbComps(i).CodeModule.Lines(j, 1) = LigneRecherchée Then VbComps(i).CodeModule.DeleteLines j VbComps(i).CodeModule.InsertLines j, RemplacéPar End If Next j Next i Next Set VbComp = Nothing: Set VbComps = Nothing
End Sub --------------
'Recherche dans un module particulier '--------------- Sub RemplacerUneLigneDeCodeParUnAutre()
Dim Recherche As String, Remplace As String, Comp As Object Dim A As Integer, B As Integer, Nb As Integer, NbLigne As Integer
Set Comp = ActiveWorkbook.VBProject.VBComponents("module1") NbLigne = Comp.CodeModule.CountOfLines For B = 1 To NbLigne If Comp.CodeModule.Lines(B, 1) = Recherche Then Comp.CodeModule.DeleteLines B Comp.CodeModule.InsertLines B, Remplace End If Next Set Comp = Nothing
End Sub --------------
Salutations!
"Michel.Girard" a écrit dans le message de news: O$35E$ Bonsoir Je désire modifier une macro par macro Est-ce possible ? Merci beaucoup Michel
Michel.Girard
Merci beaucoup Denis c'est très sympa de ta part Bonne soirée Michel
"MichDenis" a écrit dans le message de news: %
Bonjour Michel,
Oui, c'est possible. Je te propose 2 façons de faire selon que tu connais avant le lancer la procédure, le nom du module où ta ligne de code doit être modifiée ou non .
'Ligne de code dont tu ne connais pas le nom du module où la ligne de code à changer se trouve -------------- Sub RemplacerUneLigneDeCode()
Dim LigneRecherchée As String, RemplacéPar As String Dim VbComp As Object, VbComps As Object Dim i, j, Nb As Integer, NLigne As Integer
Set VbComps = ActiveWorkbook.VBProject.VBComponents Nb = VbComps.Count For Each VbComp In ActiveWorkbook.VBProject.VBComponents For i = 1 To Nb NLigne = VbComps(i).CodeModule.CountOfLines For j = 1 To NLigne If VbComps(i).CodeModule.Lines(j, 1) = LigneRecherchée Then VbComps(i).CodeModule.DeleteLines j VbComps(i).CodeModule.InsertLines j, RemplacéPar End If Next j Next i Next Set VbComp = Nothing: Set VbComps = Nothing
End Sub --------------
'Recherche dans un module particulier '--------------- Sub RemplacerUneLigneDeCodeParUnAutre()
Dim Recherche As String, Remplace As String, Comp As Object Dim A As Integer, B As Integer, Nb As Integer, NbLigne As Integer
Set Comp = ActiveWorkbook.VBProject.VBComponents("module1") NbLigne = Comp.CodeModule.CountOfLines For B = 1 To NbLigne If Comp.CodeModule.Lines(B, 1) = Recherche Then Comp.CodeModule.DeleteLines B Comp.CodeModule.InsertLines B, Remplace End If Next Set Comp = Nothing
End Sub --------------
Salutations!
"Michel.Girard" a écrit dans le message de news: O$35E$ Bonsoir Je désire modifier une macro par macro Est-ce possible ? Merci beaucoup Michel
Merci beaucoup Denis
c'est très sympa de ta part
Bonne soirée
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23dWOfS2HFHA.1392@TK2MSFTNGP10.phx.gbl...
Bonjour Michel,
Oui, c'est possible. Je te propose 2 façons de faire selon que tu connais
avant le lancer la procédure, le nom du module
où ta ligne de code doit être modifiée ou non .
'Ligne de code dont tu ne connais pas le nom du module où la ligne de code
à changer se trouve
--------------
Sub RemplacerUneLigneDeCode()
Dim LigneRecherchée As String, RemplacéPar As String
Dim VbComp As Object, VbComps As Object
Dim i, j, Nb As Integer, NLigne As Integer
Set VbComps = ActiveWorkbook.VBProject.VBComponents
Nb = VbComps.Count
For Each VbComp In ActiveWorkbook.VBProject.VBComponents
For i = 1 To Nb
NLigne = VbComps(i).CodeModule.CountOfLines
For j = 1 To NLigne
If VbComps(i).CodeModule.Lines(j, 1) = LigneRecherchée Then
VbComps(i).CodeModule.DeleteLines j
VbComps(i).CodeModule.InsertLines j, RemplacéPar
End If
Next j
Next i
Next
Set VbComp = Nothing: Set VbComps = Nothing
End Sub
--------------
'Recherche dans un module particulier
'---------------
Sub RemplacerUneLigneDeCodeParUnAutre()
Dim Recherche As String, Remplace As String, Comp As Object
Dim A As Integer, B As Integer, Nb As Integer, NbLigne As Integer
Set Comp = ActiveWorkbook.VBProject.VBComponents("module1")
NbLigne = Comp.CodeModule.CountOfLines
For B = 1 To NbLigne
If Comp.CodeModule.Lines(B, 1) = Recherche Then
Comp.CodeModule.DeleteLines B
Comp.CodeModule.InsertLines B, Remplace
End If
Next
Set Comp = Nothing
End Sub
--------------
Salutations!
"Michel.Girard" <michel.girard@club-internet.fr> a écrit dans le message
de news:
O$35E$1HFHA.4060@TK2MSFTNGP14.phx.gbl...
Bonsoir
Je désire modifier une macro par macro
Est-ce possible ?
Merci beaucoup
Michel
Merci beaucoup Denis c'est très sympa de ta part Bonne soirée Michel
"MichDenis" a écrit dans le message de news: %
Bonjour Michel,
Oui, c'est possible. Je te propose 2 façons de faire selon que tu connais avant le lancer la procédure, le nom du module où ta ligne de code doit être modifiée ou non .
'Ligne de code dont tu ne connais pas le nom du module où la ligne de code à changer se trouve -------------- Sub RemplacerUneLigneDeCode()
Dim LigneRecherchée As String, RemplacéPar As String Dim VbComp As Object, VbComps As Object Dim i, j, Nb As Integer, NLigne As Integer
Set VbComps = ActiveWorkbook.VBProject.VBComponents Nb = VbComps.Count For Each VbComp In ActiveWorkbook.VBProject.VBComponents For i = 1 To Nb NLigne = VbComps(i).CodeModule.CountOfLines For j = 1 To NLigne If VbComps(i).CodeModule.Lines(j, 1) = LigneRecherchée Then VbComps(i).CodeModule.DeleteLines j VbComps(i).CodeModule.InsertLines j, RemplacéPar End If Next j Next i Next Set VbComp = Nothing: Set VbComps = Nothing
End Sub --------------
'Recherche dans un module particulier '--------------- Sub RemplacerUneLigneDeCodeParUnAutre()
Dim Recherche As String, Remplace As String, Comp As Object Dim A As Integer, B As Integer, Nb As Integer, NbLigne As Integer
Set Comp = ActiveWorkbook.VBProject.VBComponents("module1") NbLigne = Comp.CodeModule.CountOfLines For B = 1 To NbLigne If Comp.CodeModule.Lines(B, 1) = Recherche Then Comp.CodeModule.DeleteLines B Comp.CodeModule.InsertLines B, Remplace End If Next Set Comp = Nothing
End Sub --------------
Salutations!
"Michel.Girard" a écrit dans le message de news: O$35E$ Bonsoir Je désire modifier une macro par macro Est-ce possible ? Merci beaucoup Michel
