Macro fonction remplacer

[aiself]

Bonjour,

Je me permets d'ouvrir une nouvelle discussion car j'ai un problème sur une macro.
C'est à usage professionnelle mais le service informatique n'a pas su m'aider donc je suis venu ici voir si un petit peu d'aide était possible 🙂

Voila je voudrais remplacer une colonne de formule.
Voici celle initiale : =SI(AK$1<>"";NB.SI.ENS($D:$D;"**/01/2014";$J:$J;AK$1);"")

Voici celle que je voudrais au final : =SI(AK$1<>"";NB.SI.ENS($D:$D;"**/01/2014";$J:$J;AK$1;$G:$G;"En temps");"")

Voici mon code : Selection.Replace What:=");"""")", Replacement:= _
";$G:$G;""En temps"");"""")", LookAt:=xlPart, SearchOrder:=xlByColumns, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

En réalité la formule initiale change selon le numéro de ligne, donc je ne peux m'appuyer que sur la fin du code.
Ma macro ne fonctionne pas, alors que à la main oui...
Que puis-je faire ?
Merci d'avance !

 

[camarchepas]

Re : Macro fonction remplacer

BOnjour ,

tu remplaces uniquement la premiere ligne , puis tu tires ....

Si la formule à remplacer est en : C2

Range("C2").AutoFill Destination:=Range("C2:C5")

 

[aiself]

Re : Macro fonction remplacer

D'abord merci pour ta réponse
Non ce n'est pas possible, c'est assez compliqué à expliquer ... En gros les formules sont sensiblements les mêmes mais n'ont aucun rapport les une des autres. Donc ici Range("").AutoFill Destination:=Range("") ne marche pas

Il faudrait juste que le code que j'ai proposé marche, sachant que juste avant j'ai ce code : Selection.Replace What:="CX$1", Replacement:="CW$1", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
qui lui marche bizarrement ...