Recherches code VBA par VBA

Joėl

unread,

Jul 10, 2002, 10:59:29 AM7/10/02

to

Bonjour Popi,

Suite à mon message dans MPFE concernant la question référence « Recherches
code VBA par VBA » tu as proposé le 6/7/02 le code suivant qui me paraît
très intéressant.

Sub ChangeLineInSubs2()

Dim vbc As VBComponent

Dim i, j

For Each lygne In ActiveWorkbook.VBProject.VBComponents

For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count

For j = 1 To
ActiveWorkbook.VBProject.VBComponents(i).CodeModule.CountOfLines

If ActiveWorkbook.VBProject.VBComponents(i).CodeModule.Lines(j, 1) =
"bidule" Then

ActiveWorkbook.VBProject.VBComponents(i).CodeModule.DeleteLines j

ActiveWorkbook.VBProject.VBComponents(i).CodeModule.InsertLines j, "Machin
truc"

End If

Next j

Next i

Next lygne

End Sub

Sub test5689()

bidule

End Sub

Malheureusement il ne semble pas fonctionner chez moi.

Lorsque j'active la macro ChangeLineInSubs2 je n'obtiens aucune condition d'
erreur, mais le code « bidule » n'est pas remplacé par « machin truc » !..Il
semble que rien ne se passe..

J'ai compris que i représente le nbre de composants (module, feuilles,..) et
j le nbre de lignes dans un module. Cependant lorsque je fais tourner la
macro les valeurs que prennent ces variables ne semblent pas correct chez
moi !..

Je travaille avec Excel 2000.

J'ai rajouté la bibliothèque Microsoft Visual basic6.0 Extensibility.

As tu testé ce code chez toi ? Fonctionne t-il ?

D'autre part je me pose les questions suivantes :

Quel est le rôle de la déclaration de variable :

Dim vbc As VBComponent

Dim i, j

Cette déclaration ne m'est pas coutumière, ne manque t-il pas le type de
variable a la 2ème ligne?Où intervient vbc?

Merci d'avance pour tes commentaires que j'attend impatiemment car ce code
me paraît vraiment très intéressant..

Très cordialement Joël

popi

unread,

Jul 10, 2002, 1:04:48 PM7/10/02

to

Effectivement, dans mon exemple, bidule doit être au début de la ligne (sans
espaces devant)
quant à > Dim vbc As VBComponent c'est un reste de test à supprimer
Désolé ;-(
--
@+ popi
"Quadra ressoudeur"
W2000Pro - OfficeXP - VB6 - OE6
http://popiweb.chez.tiscali.fr
.
"Joël" <aj...@planetis.com> a écrit dans le message de news:
aghi7t$1n8v$1...@news6.isdnet.net...

Joël

unread,

Jul 11, 2002, 9:01:56 AM7/11/02

to

Salut Popi!
Ca marche! T'es génial!
Je vais de ce pas construire une statue à ta gloire dans mon jardin!
Tu prèfères le bronze ou la pierre?
;-)) A+ Joël

"popi" <po...@infonie.fr> a écrit dans le message de news:
#e9BqNDKCHA.2568@tkmsftngp09...

popi

unread,

Jul 11, 2002, 4:47:34 PM7/11/02

to

Un nain de jardin me convient très bien Joël ;-) et ton enthousiasme fait
plaisir à voir !!

--
@+ popi
"Quadra ressoudeur"
W2000Pro - OfficeXP - VB6 - OE6
http://popiweb.chez.tiscali.fr
.
"Joël" <aj...@planetis.com> a écrit dans le message de news:

agk09l$24pi$1...@news5.isdnet.net...

Monique Brunel

unread,

Jul 11, 2002, 7:01:57 PM7/11/02

to

Ils aiment bien les bisous aussi, les 7 petits nains... ;-))

Bisous, popi

--
Amicalement,
Monique (la Wallonne)
http://users.skynet.be/osga , pour les amateurs d'athlétisme

Ce que nous disait "popi", <po...@infonie.fr> :

| Un nain de jardin me convient très bien Joël ;-) et ton enthousiasme
| fait plaisir à voir !!
|

sabatier

unread,

Jul 12, 2002, 4:44:07 AM7/12/02

to

on peut aussi conseiller ą joėl d'aller voler au musée grévin la cire de
robert hue : selon le pen, ēa serait un bon ersatz...
jps

Monique Brunel wrote:
>
> Ils aiment bien les bisous aussi, les 7 petits nains... ;-))
>
> Bisous, popi
>
> --
> Amicalement,
> Monique (la Wallonne)
> http://users.skynet.be/osga , pour les amateurs d'athlétisme
>
> Ce que nous disait "popi", <po...@infonie.fr> :
>

> | Un nain de jardin me convient trčs bien Joėl ;-) et ton enthousiasme
> | fait plaisir ą voir !!

> |
> || Salut Popi!
> || Ca marche! T'es génial!

> || Je vais de ce pas construire une statue ą ta gloire dans mon jardin!
> || Tu prčfčres le bronze ou la pierre?
> || ;-)) A+ Joėl
> ||