Copie d'une formule dans une macro

[VaderPhil]

Bonjour à tous,

J'en suis à ma deuxième utilisation du forum, la première ayant été très fructueuse. Voici mon problème.

Dans une macro, j'ai besoin qu'on recopie une formule se trouvant en T242 dans la cellule T2 puis la copier sur l'intervalle T2:T200.
Ce n'est pas une petite formule !! la voici :

=CHOISIR(RECHERCHEV(A242,$AC$2:$AD$18,2,FAUX),A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,A242&"_"&S242&"_"&N242,"BA"&RECHERCHEV(M242,$Z$2:$AA$13,2,FAUX)&DROITE(N242,1),"OU"&RECHERCHEV(M242,$Z$2:$AA$13,2,FAUX)&DROITE(N242,1),"FF"&RECHERCHEV(M242,$Z$2:$AA$13,2,FAUX)&DROITE(N242,1),"ED"&RECHERCHEV(M242,$Z$2:$AA$13,2,FAUX)&DROITE(N242,1))

Le code de macro utilisé est le suivant :

Range("T2:T200").Select
Selection.ClearContents
Range("T242").Select
Selection.Copy
Range("T2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("T2:T200")

Le problème maintenant !!! Après quelques utilisation de la macro, la formule se "décale" de façon aléatoire... Je m'explique : Toute les références se font sur la même ligne (i.e. ligne 2 une fois recopié) mais certaines cellules se changent pour A3 alors que d'autres restes sur A2.
Voici un bref exemple de ce que ca me donne une fois recopié en T2:

=CHOISIR(RECHERCHEV(A3,$AC$2:$AD$18,2,FAUX),A3&"_"&S2&"_"&N3,A2&"_"&S2&"_"&N3,A3&"_"&S2&"_"&N3,A3&"_"&S2&"_"&N3, etc...

Je ne comprends pas ce qui se passe ! C'est très bizzare car quelque fois ma formule reste intacte, et d'autres fois une cellule sur 2 dans la formule décale vers le bas !!

merci d'avance

 

[pierrejean]

Re : Copie d'une formule dans une macro

bonjour VaderPhil

A tester:

Range("T2:T200").Select
Selection.ClearContents
Range("T2").formula=Range("T242").formula
Range("T2").AutoFill Destination:=Range("T2:T200")

 

[VaderPhil]

Re : Copie d'une formule dans une macro

wow !

Ce sont toujours les solutions les plus simples qui sont les plus efficaces !!!

Merci énormément