Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
va voir dans le menu de l'éditeur VBA et tu auras de quoi rechercher et
remplacer tous ce que tu veux.
Michel
"Greffier" a écrit dans le message de news:
%Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
va voir dans le menu de l'éditeur VBA et tu auras de quoi rechercher et
remplacer tous ce que tu veux.
Michel
"Greffier" <spam@spam.fr> a écrit dans le message de news:
%23lGi3umUHHA.1212@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
va voir dans le menu de l'éditeur VBA et tu auras de quoi rechercher et
remplacer tous ce que tu veux.
Michel
"Greffier" a écrit dans le message de news:
%Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Une suggestion :
Copie la procédure suivante dans un nouveau module à part des autres
procédures
afin d'éviter que cette dernière se modifie elle-même.
Cette procédure est réputée avoir été copier dans le module1
si le module que tu choisis est différent, modifie le nom dans la
procédure
Important : il faut t'assurer que la chaîne recherchée est vraiment unique
qu'elle ne peut pas faire parti d'une autre expression.
Exemple si tu veux remplacer "Paris" dans tous les modules,
la procédure suivante remplacera "Paris" dans "LeParis" , "Paris",
"Pariseau" etc
et ce n'est pas nécessairement l'effet que tu recherches.
'----------------------------------
Sub Rechercher_Chaine_VBA()
Dim ChaineRecherchée As String
Dim ChaineRemplace As String
Dim Trouver As Integer
Dim I As Integer
Dim Module As Object
ChaineRecherchée = "C:Mon DossierMa Base.mdb"
ChaineRemplace = "D:Mon Autre DossierMa Base.mdb"
For Each Module In ActiveWorkbook.VBProject.VBComponents
With Module.CodeModule
'Si le module ou est mis cette proc se nomme "Module1"
'Attention à la case....
If Ucase(Module.Name)<> "MODULE1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), ChaineRecherchée)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & ChaineRemplace & _
Mid(.Lines(I, 1), Trouver + Len(ChaineRecherchée) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next
Set Module = Nothing
End Sub
'-----------------------------------
"Greffier" a écrit dans le message de news:
%
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Une suggestion :
Copie la procédure suivante dans un nouveau module à part des autres
procédures
afin d'éviter que cette dernière se modifie elle-même.
Cette procédure est réputée avoir été copier dans le module1
si le module que tu choisis est différent, modifie le nom dans la
procédure
Important : il faut t'assurer que la chaîne recherchée est vraiment unique
qu'elle ne peut pas faire parti d'une autre expression.
Exemple si tu veux remplacer "Paris" dans tous les modules,
la procédure suivante remplacera "Paris" dans "LeParis" , "Paris",
"Pariseau" etc
et ce n'est pas nécessairement l'effet que tu recherches.
'----------------------------------
Sub Rechercher_Chaine_VBA()
Dim ChaineRecherchée As String
Dim ChaineRemplace As String
Dim Trouver As Integer
Dim I As Integer
Dim Module As Object
ChaineRecherchée = "C:Mon DossierMa Base.mdb"
ChaineRemplace = "D:Mon Autre DossierMa Base.mdb"
For Each Module In ActiveWorkbook.VBProject.VBComponents
With Module.CodeModule
'Si le module ou est mis cette proc se nomme "Module1"
'Attention à la case....
If Ucase(Module.Name)<> "MODULE1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), ChaineRecherchée)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & ChaineRemplace & _
Mid(.Lines(I, 1), Trouver + Len(ChaineRecherchée) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next
Set Module = Nothing
End Sub
'-----------------------------------
"Greffier" <spam@spam.fr> a écrit dans le message de news:
%23lGi3umUHHA.1212@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Une suggestion :
Copie la procédure suivante dans un nouveau module à part des autres
procédures
afin d'éviter que cette dernière se modifie elle-même.
Cette procédure est réputée avoir été copier dans le module1
si le module que tu choisis est différent, modifie le nom dans la
procédure
Important : il faut t'assurer que la chaîne recherchée est vraiment unique
qu'elle ne peut pas faire parti d'une autre expression.
Exemple si tu veux remplacer "Paris" dans tous les modules,
la procédure suivante remplacera "Paris" dans "LeParis" , "Paris",
"Pariseau" etc
et ce n'est pas nécessairement l'effet que tu recherches.
'----------------------------------
Sub Rechercher_Chaine_VBA()
Dim ChaineRecherchée As String
Dim ChaineRemplace As String
Dim Trouver As Integer
Dim I As Integer
Dim Module As Object
ChaineRecherchée = "C:Mon DossierMa Base.mdb"
ChaineRemplace = "D:Mon Autre DossierMa Base.mdb"
For Each Module In ActiveWorkbook.VBProject.VBComponents
With Module.CodeModule
'Si le module ou est mis cette proc se nomme "Module1"
'Attention à la case....
If Ucase(Module.Name)<> "MODULE1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), ChaineRecherchée)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & ChaineRemplace & _
Mid(.Lines(I, 1), Trouver + Len(ChaineRecherchée) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next
Set Module = Nothing
End Sub
'-----------------------------------
"Greffier" a écrit dans le message de news:
%
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
Merci tout d'abord pour toutes les réponses.
J'ai appliqué la procédure de Ange, OK, il va falloir que je l'améliore,
pour tous les modules.
J'ai appliqué celle de MichDenis, elle marche OK, mais elle bloque sur une
feuille. J'ai déplacé cette feuille un peu partout, mais j'ai toujours la
même erreur '424'. Je vais m'atteler à en rechercher les causes, car c'est
une méthode très séduisante, à laquelle je n'aurais pas pensé.
A plus tard,
Greffier.
"MichDenis" a écrit dans le message de news:Une suggestion :
Copie la procédure suivante dans un nouveau module à part des autres
procédures
afin d'éviter que cette dernière se modifie elle-même.
Cette procédure est réputée avoir été copier dans le module1
si le module que tu choisis est différent, modifie le nom dans la
procédure
Important : il faut t'assurer que la chaîne recherchée est vraiment
unique
qu'elle ne peut pas faire parti d'une autre expression.
Exemple si tu veux remplacer "Paris" dans tous les modules,
la procédure suivante remplacera "Paris" dans "LeParis" , "Paris",
"Pariseau" etc
et ce n'est pas nécessairement l'effet que tu recherches.
'----------------------------------
Sub Rechercher_Chaine_VBA()
Dim ChaineRecherchée As String
Dim ChaineRemplace As String
Dim Trouver As Integer
Dim I As Integer
Dim Module As Object
ChaineRecherchée = "C:Mon DossierMa Base.mdb"
ChaineRemplace = "D:Mon Autre DossierMa Base.mdb"
For Each Module In ActiveWorkbook.VBProject.VBComponents
With Module.CodeModule
'Si le module ou est mis cette proc se nomme "Module1"
'Attention à la case....
If Ucase(Module.Name)<> "MODULE1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), ChaineRecherchée)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & ChaineRemplace & _
Mid(.Lines(I, 1), Trouver + Len(ChaineRecherchée) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next
Set Module = Nothing
End Sub
'-----------------------------------
"Greffier" a écrit dans le message de news:
%
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
Merci tout d'abord pour toutes les réponses.
J'ai appliqué la procédure de Ange, OK, il va falloir que je l'améliore,
pour tous les modules.
J'ai appliqué celle de MichDenis, elle marche OK, mais elle bloque sur une
feuille. J'ai déplacé cette feuille un peu partout, mais j'ai toujours la
même erreur '424'. Je vais m'atteler à en rechercher les causes, car c'est
une méthode très séduisante, à laquelle je n'aurais pas pensé.
A plus tard,
Greffier.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uyVvxWqUHHA.1016@TK2MSFTNGP04.phx.gbl...
Une suggestion :
Copie la procédure suivante dans un nouveau module à part des autres
procédures
afin d'éviter que cette dernière se modifie elle-même.
Cette procédure est réputée avoir été copier dans le module1
si le module que tu choisis est différent, modifie le nom dans la
procédure
Important : il faut t'assurer que la chaîne recherchée est vraiment
unique
qu'elle ne peut pas faire parti d'une autre expression.
Exemple si tu veux remplacer "Paris" dans tous les modules,
la procédure suivante remplacera "Paris" dans "LeParis" , "Paris",
"Pariseau" etc
et ce n'est pas nécessairement l'effet que tu recherches.
'----------------------------------
Sub Rechercher_Chaine_VBA()
Dim ChaineRecherchée As String
Dim ChaineRemplace As String
Dim Trouver As Integer
Dim I As Integer
Dim Module As Object
ChaineRecherchée = "C:Mon DossierMa Base.mdb"
ChaineRemplace = "D:Mon Autre DossierMa Base.mdb"
For Each Module In ActiveWorkbook.VBProject.VBComponents
With Module.CodeModule
'Si le module ou est mis cette proc se nomme "Module1"
'Attention à la case....
If Ucase(Module.Name)<> "MODULE1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), ChaineRecherchée)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & ChaineRemplace & _
Mid(.Lines(I, 1), Trouver + Len(ChaineRecherchée) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next
Set Module = Nothing
End Sub
'-----------------------------------
"Greffier" <spam@spam.fr> a écrit dans le message de news:
%23lGi3umUHHA.1212@TK2MSFTNGP03.phx.gbl...
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.
Bonjour,
Merci tout d'abord pour toutes les réponses.
J'ai appliqué la procédure de Ange, OK, il va falloir que je l'améliore,
pour tous les modules.
J'ai appliqué celle de MichDenis, elle marche OK, mais elle bloque sur une
feuille. J'ai déplacé cette feuille un peu partout, mais j'ai toujours la
même erreur '424'. Je vais m'atteler à en rechercher les causes, car c'est
une méthode très séduisante, à laquelle je n'aurais pas pensé.
A plus tard,
Greffier.
"MichDenis" a écrit dans le message de news:Une suggestion :
Copie la procédure suivante dans un nouveau module à part des autres
procédures
afin d'éviter que cette dernière se modifie elle-même.
Cette procédure est réputée avoir été copier dans le module1
si le module que tu choisis est différent, modifie le nom dans la
procédure
Important : il faut t'assurer que la chaîne recherchée est vraiment
unique
qu'elle ne peut pas faire parti d'une autre expression.
Exemple si tu veux remplacer "Paris" dans tous les modules,
la procédure suivante remplacera "Paris" dans "LeParis" , "Paris",
"Pariseau" etc
et ce n'est pas nécessairement l'effet que tu recherches.
'----------------------------------
Sub Rechercher_Chaine_VBA()
Dim ChaineRecherchée As String
Dim ChaineRemplace As String
Dim Trouver As Integer
Dim I As Integer
Dim Module As Object
ChaineRecherchée = "C:Mon DossierMa Base.mdb"
ChaineRemplace = "D:Mon Autre DossierMa Base.mdb"
For Each Module In ActiveWorkbook.VBProject.VBComponents
With Module.CodeModule
'Si le module ou est mis cette proc se nomme "Module1"
'Attention à la case....
If Ucase(Module.Name)<> "MODULE1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), ChaineRecherchée)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & ChaineRemplace & _
Mid(.Lines(I, 1), Trouver + Len(ChaineRecherchée) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next
Set Module = Nothing
End Sub
'-----------------------------------
"Greffier" a écrit dans le message de news:
%
Bonjour,
Comment écrire une macro qui remplacerait dans tous les modules du projet
VBA d'un classeur un terme par un autre (exemple Paris par Marseille), ou
dans la programmation aller chercher le terme voulu dans notre exemple
Marseille.
J'ai bien chercher dans google et copernic, yahoo ... dans d'autres sites
mais il n'y a rien à ce sujet. Les remplacements s'effectuent sur les
feuilles de calcul, mais pas à l'intérieur des modules.
Qui pourrait me donner une idée, ou une amorce de macro VBA.
Merci.
Greffier.