Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Bonsoir Marc,
Je ne suis pas sûr d'avoir bien compris ce que tu cherche à faire mais si tu
veux effectuer un remplacement de chaine dans des macros VBA de plusieurs
classeurs, teste ce qui suit :
Attention, tous les modules se nommant "Module1" seront évités que la proc
écrive dans son propre code, alors adapte. pour effectuer le remplacement de
chaine dans plusieurs classeurs, tu dois les ouvrir auparavant.
En fait, la macro ci-dessous recherche la chaine "Interior.ColorIndex = 35"
(qui sert généralement pour colorer le fond des cellules) pour la remplacer
par la chaine "Interior.ColorIndex = 37".
Si tu as un message d'erreur, va dans Outils-Macro-Sécurité... et coche la
case "Faire confiance au projet Visual Basic". De toute façons, fait un test
sur une copie de classeur et non sur un original.
Sub RemplacerCouleur()
Dim Module As Object
Dim Classeur As Workbook
Dim CouleurChercher As String
Dim CouleurRemplace As String
Dim Trouver As Integer
Dim I As Integer
CouleurChercher = "Interior.ColorIndex = 35"
CouleurRemplace = "Interior.ColorIndex = 37"
For Each Classeur In Workbooks
For Each Module In Classeur.VBProject.VBComponents
With Module.CodeModule
'Si le module où est mis cette proc se nomme "Module1"
'évite de le parcourir pour ne pas effectuer de remplacement
If Module.Name <> "Module1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), CouleurChercher)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & CouleurRemplace & _
Mid(.Lines(I, 1), Trouver + Len(CouleurChercher) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next Module
Next Classeur
Set Module = Nothing
Set Classeur = Nothing
End Sub
Hervé.
"Marc" a écrit dans le message de news:Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
estde 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
lecode de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Bonsoir Marc,
Je ne suis pas sûr d'avoir bien compris ce que tu cherche à faire mais si tu
veux effectuer un remplacement de chaine dans des macros VBA de plusieurs
classeurs, teste ce qui suit :
Attention, tous les modules se nommant "Module1" seront évités que la proc
écrive dans son propre code, alors adapte. pour effectuer le remplacement de
chaine dans plusieurs classeurs, tu dois les ouvrir auparavant.
En fait, la macro ci-dessous recherche la chaine "Interior.ColorIndex = 35"
(qui sert généralement pour colorer le fond des cellules) pour la remplacer
par la chaine "Interior.ColorIndex = 37".
Si tu as un message d'erreur, va dans Outils-Macro-Sécurité... et coche la
case "Faire confiance au projet Visual Basic". De toute façons, fait un test
sur une copie de classeur et non sur un original.
Sub RemplacerCouleur()
Dim Module As Object
Dim Classeur As Workbook
Dim CouleurChercher As String
Dim CouleurRemplace As String
Dim Trouver As Integer
Dim I As Integer
CouleurChercher = "Interior.ColorIndex = 35"
CouleurRemplace = "Interior.ColorIndex = 37"
For Each Classeur In Workbooks
For Each Module In Classeur.VBProject.VBComponents
With Module.CodeModule
'Si le module où est mis cette proc se nomme "Module1"
'évite de le parcourir pour ne pas effectuer de remplacement
If Module.Name <> "Module1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), CouleurChercher)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & CouleurRemplace & _
Mid(.Lines(I, 1), Trouver + Len(CouleurChercher) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next Module
Next Classeur
Set Module = Nothing
Set Classeur = Nothing
End Sub
Hervé.
"Marc" <Marc@discussions.microsoft.com> a écrit dans le message de news:
73C002F8-3E0C-4336-B037-9386C58CE14D@microsoft.com...
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Bonsoir Marc,
Je ne suis pas sûr d'avoir bien compris ce que tu cherche à faire mais si tu
veux effectuer un remplacement de chaine dans des macros VBA de plusieurs
classeurs, teste ce qui suit :
Attention, tous les modules se nommant "Module1" seront évités que la proc
écrive dans son propre code, alors adapte. pour effectuer le remplacement de
chaine dans plusieurs classeurs, tu dois les ouvrir auparavant.
En fait, la macro ci-dessous recherche la chaine "Interior.ColorIndex = 35"
(qui sert généralement pour colorer le fond des cellules) pour la remplacer
par la chaine "Interior.ColorIndex = 37".
Si tu as un message d'erreur, va dans Outils-Macro-Sécurité... et coche la
case "Faire confiance au projet Visual Basic". De toute façons, fait un test
sur une copie de classeur et non sur un original.
Sub RemplacerCouleur()
Dim Module As Object
Dim Classeur As Workbook
Dim CouleurChercher As String
Dim CouleurRemplace As String
Dim Trouver As Integer
Dim I As Integer
CouleurChercher = "Interior.ColorIndex = 35"
CouleurRemplace = "Interior.ColorIndex = 37"
For Each Classeur In Workbooks
For Each Module In Classeur.VBProject.VBComponents
With Module.CodeModule
'Si le module où est mis cette proc se nomme "Module1"
'évite de le parcourir pour ne pas effectuer de remplacement
If Module.Name <> "Module1" Then
For I = .CountOfLines To 1 Step -1
Trouver = InStr(.Lines(I, 1), CouleurChercher)
If Trouver <> 0 Then
.ReplaceLine I, Left(.Lines(I, 1) _
, Trouver - 1) & CouleurRemplace & _
Mid(.Lines(I, 1), Trouver + Len(CouleurChercher) _
, Len(.Lines(I, 1)))
End If
Next I
End If
End With
Next Module
Next Classeur
Set Module = Nothing
Set Classeur = Nothing
End Sub
Hervé.
"Marc" a écrit dans le message de news:Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code
estde 35 à 37). Comment je peux faire cela avec une macro qui viendra changer
lecode de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc
Je relance ma question puisque je n'ai pas eu de réponse. Merci de m'aider
Bonjour à vous tous.
Voici mon problème. J'ai plusieurs fichiers qui contiennent plusieurs
feuilles. Dans chacune des feuilles des feuilles j'ai quelques milliers de
lignes avec des boutons d'impression de rapport. Le problème, c'est que je
veux changer la couleur de fond (Motif) de vert à bleu ( en vba, le code est
de 35 à 37). Comment je peux faire cela avec une macro qui viendra changer le
code de couleur dans chacune de mes macros? en espérant que j'ai été assez
clair.
Merci de votre aide
Marc