Copier et incrémenter formule

[laduche81]

Bonjour!

Décidemment aujourd'hui il me pleut des problèmes sur vba...

Je cherche une commande qui me copie la formule présente en IX2 (formule assez complexe) et vient me l'adapter en IX16 par exemple.

Par exemple si dans la formule il y a le terme AA2 qu'il soit transformé en AA16, etc.

Est-ce possible?

Merci!

Adrien.

 

[laduche81]

Re : Copier et incrémenter formule

Oui je suis toujours preneur!

En effet c'est un fichier test, en réalité j'ai une 30aine de colonnes avec filtre. Donc votre solution me falicite d'autant plus la vie!

Merci une nouvelle fois !

Adrien

 

[job75]

Re : Copier et incrémenter formule

Bonjour laduche81,

Si vous êtes toujours preneur, une solution sans boucle à la fin :

With Intersect(filtre, zone, Range(zone.Areas(rev), zone.Areas(20)))
    .FormulaR1C1 = F
    .Replace "MOIS.DECALER", "µµ", LookAt:=xlPart 'pour revalider les cellules
    .Replace "µµ", "MOIS.DECALER"
End With
Intersect(filtre, zone.Areas(rev)) = CDate(mdir)

L'exécution est plus rapide.

Fichier (4).

A+

 

[laduche81]

Re : Copier et incrémenter formule

Bonjour job75!

Oui impressionnant le gain en rapidité!
Je ne refuse pas, merci beaucoup!!

A bientôt!

Adrien