Code VBA - Filtre qui conserve les formules

[jbdubreuil]

Bonjour,

J'utilise depuis longtemps le code VBA suivant, qui est ni plus ni moins qu'un filtre:

Dim nbrow As Integer
nbrow = 0
'refresh Macro
'Filtre

Range("b11:h11").Select
Range("Données").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _"b7:c8"),
CopyToRange:=Range("b11:h11"), Unique:=False

J'ai une Base de Données "Données" et sur un autre onglet, je filtre ces valeurs suivant des criteres "b7:c8".
J'aimerais garder les formules et non pas uniquement les valeurs.
Est ce possible ou pas avec ce genre d'application?
Sinon, avec un autre code?

Merci par avance,

Je joins la macro en zip si ce n'est pas clair.

Amicalement,

jb

 

[mutzik]

Re : Code VBA - Filtre qui conserve les formules

Bonjour JB, le Forum

1. A ma connaissance, il n'y a pas de moyens de conserver les formules avec ce type de traitement (faut passer par du VBA)

2. J'en n'en vois pas la raison, ce sont des formules tout ce qu'il y a de plus simple qu'on peut appliquer par la suite dans ton code d'extraction

3. en principe, on ne stocke jamais dans une 'liste de données' des formules, mais uniquement les valeurs qui servent à ces calculs. Si tu as 30 000 données, tu vas alourdir inutilement ton xls de 60 000 formules (toutes identiques)

 

[jbdubreuil]

Re : Code VBA - Filtre qui conserve les formules

bonjour mutzik,

Je suis d'accord avec toi sur les 2eme et 3eme point...
D'ou l'interet d'avoir l'avis du forum.

Je pensais simplement qu'il etait possible d'inserrer qq part dans la macro
un code du type
"Selection.PasteSpecial Paste:=xlPasteFormulas"

D'ou mpn accord avec toi sur le 1er point 😉

@+

JB