Macros and Programming

Bonjour ma macro :

dim mot(14)
'Recherche mot
mot(1)="a*"
mot(2)="e*"
mot(3)="c*"
mot(4)="i*"
mot(5)="o*"
mot(6)="u*"
mot(7)="y*"
'Remplace mot par...
mot(8)="a"
mot(9)="e"
mot(10)="c"
mot(11)="i"
mot(12)="o"
mot(13)="u"
mot(14)="y"

Activate "TFE MOTS-CLES"
SelectionLevel=0
Database.ClearTagged
FirstRecord
SetSequence "*+MC"
for i=1 to ubound(mot)
activeWindow.select "MC",mot(i)
nb_record=recordcount
if nb_record<>0 then
FirstRecord
for b=1 to nb_record
EditRecord
Command cmdHome+cmdControl
Command cmdDelete
typetext mot(i+7)
SaveRecord
NextRecord
next
NextRecord
end if
SelectionLevel=0
next

Celle-ci fonctionne correctement, le seul problème est que lorsque dans mon champ j'ai Relation parent-enfant et que je fais une recherche e* il trouve bien relation parent-enfant et il ne devrait pas car alors il remplace R par E, ce qui n'est pas juste. avez vous une idée ? merci et bon week-end

Si je comprend bien, la macro remplace tous mots "a*" par "a", "e*" par "e" etc. C'est une méthode très compliquée. Essayez "replace", c'est plus façile.

Mais je ne comprend pas votre question. Expliquez s.v.p. quelle sorte d'information est dans votre fichier et donnez une exemple d'une fiche.

Charles