comment traduire INDIRECT en VBA

H

hidozo

XLDnaute Occasionnel

• 13 Juin 2008

• #16

Re : comment traduire INDIRECT en VBA

bonjour,

NB.si, avec SpecialCells(xlCellTypeVisible)
est-ce que cela peut fonctionner ?

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 13 Juin 2008

• #17

Re : comment traduire INDIRECT en VBA

Voila un exemple

 

Pièces jointes

• testsoustotal.xls

  19 KB · Affichages: 74

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 13 Juin 2008

• #18

Re : comment traduire INDIRECT en VBA

Bonjour

Voici un exemple avec un TCD.

 

Pièces jointes

• TCD.xls

  19.5 KB · Affichages: 93
• TCD.xls

  19.5 KB · Affichages: 96
• TCD.xls

  19.5 KB · Affichages: 100

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Juin 2008

• #19

Re : comment traduire INDIRECT en VBA

Re

Un essai par un non formuliste qui tente de comprendre un peu

Nota le resultat est toujours la filtre ou non

 

Pièces jointes

• testsoustotal.zip

  6.8 KB · Affichages: 39

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 13 Juin 2008

• #20

Re : comment traduire INDIRECT en VBA

Bonjour,

Merci pour ces possibilités,

je vais regarder ça à tête reposée, mais j'ai pu faire autrement et ça fonctionne. Cependant, si jamais vos solutions me permettent de gagner en colonne et que c'ets plus simple je vais modifier (je ferai ça à partir de lundi).

Encore merci

Comme solution, j'ai transférer chaque valeur dans une colonne propre et après le subtotal, je sais le faire. Le fait de mettre les suybtotl dans les macros ne me fait perdre de temps du tout et je ne garde que le résultat,

C'est trop top

Cordialement

hidozo

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 13 Juin 2008

• #21

Re : comment traduire INDIRECT en VBA

merci MJ13 :
les tableaux croisés dynamique : Je n'ai toujours pas compris ce que c'était. J'ai appris Excel sans cette logique et je n'arrive pas à m'y faire !!!!!!

Va falloir que je m'y mette.

merci Pierrejean :
oui ta solution fonctionne, j'ai réussi à faire la même chose avec mon outil, mauis ces formules ralentissent vachement le traitement et même les autres fonctions de l'outil. C'est pour cela que j'ai voulu les mettre en VBA et là plus de problème.

Encore merci

Hidozo

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 13 Juin 2008

• #22

Re : comment traduire INDIRECT en VBA

Bonjour à tous

il y a quelques temps, j'ai ecrit une fonction personalisée qui pourrait t'aider :

Nb.si sur plage discontinue

l'utilisation : creer la plage apres les filtres

Code:

Dim maplage as range
set maplage = Range("B1:B" & range("B65536").end(xlup).row).cells.specialcells(xlcelltypevisible)
resultat = gw_nbsi(maplage,"=",unecellule) ' unecellule contient la valeur à tester

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 13 Juin 2008

• #23

Re : comment traduire INDIRECT en VBA

Merci Wielfried 42, j'essaierai cette solution.

Est-e génant si dans la colonne, les valeurs ne sont pas contigues ?

par exemple A2 = 1
et puis plus rien jusque cellule A10 = 1

cordialement

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 13 Juin 2008

• #24

Re : comment traduire INDIRECT en VBA

=SOMMEPROD((SOUS.TOTAL(3;DECALER($B$2;LIGNE(2:1000)-2;0)))*(B2:B1000="modèle"))

En VBA:

x = [Sumproduct((subtotal(3,offset($B$2,row(2:1000)-2,0)))*(B2:B1000="modèle"))]

JB

 

Pièces jointes

• testsoustotal(1).xls

  33 KB · Affichages: 45

Vote positif 0 Vote négatif