Discussion :

[harkoko]

Ce que je souhaite programmer : j’effectue des filtres dans la FEUIL1 du fichier « j-02 » puis je compte le nombre de ligne sans doublon (j’entend pas doublon les cellules identiques dans une même colonne et pas une ligne identique dans l’ensemble de mon tableau) de cette feuille. Le résultat s’inscrit sur la FEUIL2 du fichier « j-02 ». L’opération peut se répéter plusieurs fois en filtrant différentes colonnes suivant différents critères, j’inscris les différents résultats dans différentes cases. Tous le programme est contenu dans un fichier appelé « j-0 ».


Le premier problème est que mon programme ne s’adapte pas à la taille du tableau donc je dois à chaque fois effectuer de petites modifications au niveau du nombre de lignes (le nombre de colonnes est toujours identique).

Le second problème est que le résultat qui s’inscrit dans la case FEUIL2 du fichier « j-02 » est une formule qui renvoi à la FEUIL1 et non un résultat numérique. Donc quand je change les filtres pour compter autre chose la valeur change également et au final toutes mes valeurs seront identiques.

Le troisième problème est que je ne comprends pas pourquoi un filtre apparait sur la FEUIL2

Merci par avance pour votre aide et vos explications

[Invité]

Salu Harkoko,

Tu nous aurais mis ton code cela aurait été plus simple, non !?

1) pour le nombre de ligne, il faut cherche la dernière cellule remplie de ta colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DLig = Cells(Rows.count, Col).End(XlUp).Row

2) pour le résultat, il suffit d'inscrire la valeur !?

3) Là, il va falloir ton fichier

A+

[harkoko]

Désolé, j'avais prévu de mettre les fichiers mais j'ai oublié..

J-0 Programme.xls

J-02.xls

[Invité]

Re,

Regarde avec ce fichier si ça peux te convenir
J'ai utilisé la fonction Evaluate() documentée dans l'aide de l'éditeur VBA

A+

[harkoko]

Merci à toi pour ton aide.. Ton code marche bien et je l’ai poursuivi mais des bugs apparaissent et je ne vois pas pourquoi.

Par exemple dans cette partie je fais un tri où je conserve les lignes avec dans la colonne B une donnée commençant par « B* » (les B10, B11, B20 et B21 que l’on appel les codes bleues) et un « OK » dans la colonne V puis je compte le nombre de ligne et inscrit le résultat dans la case E8 de la feuil2.
Or le programme en compte 4 et en réalité il y en a 5.. Pour des raisons de tailles de fichier je n’ai pas mis la version original de mon fichier à trier mais il comporte 4776 lignes et le programme compte 4 codes bleues en OK alors qu’il y en a 85.. Pourtant le tri s’effectue correctement..
De même que, dans mon fichier original, quand je compte les lignes en V10 (dans la colonne B) il m’en compte 11 alors que j’en ai 2348..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Tri de la colonne 2 en gardant toutes les cases commençant par B
  Sheets(Sht1).Range("$A$1:$AA$" & DLig).AutoFilter Field:=2, Criteria1:="B*"
  'Tri de la colonne 22 en gardant toutes les cases où est écrit OK
  Sheets(Sht1).Range("$A$1:$AA$" & DLig).AutoFilter Field:=22, Criteria1:="OK"
  Sheets.Add After:=Sheets(Sheets.Count)
  'Compte le nombre de ligne en B10 B11 B20 et B21 et en statut OK de la FEUIL1 après filtrage
  Sheets(Sht2).Range("E8").Value = _
    Application.Evaluate("SUMPRODUCT(1/COUNTIF(" & Sht1 & "!V2:V" & DLig & "," & Sht1 & "!V2:V" & DLig & "))")
  'Ecrit "Code bleu en OK" dans la case E7 de la feuille2
  Range("Feuil2!E7").Value = " Code bleu en OK"

Est-ce que tu sais d’où vient cette différence ?

J-0 Programme V2.xls

J-02.xls

[patricktoulon]

bonjour

regarde du coté de "remove duplicate"

et "paste special"

au plaisir

[Invité]

Harkoko,

De même que, dans mon fichier original, quand je compte les lignes en V10 (dans la colonne B) il m’en compte 11 alors que j’en ai 2348

Je pense que tu confonds pas mal de choses, si je puis me permettre
1) Compter le nombre de ligne sans doublon
2) compter le nombre de ligne tout simplement

La formule VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Evaluate("SUMPRODUCT(1/COUNTIF(" & Sht1 & "!V2:V" & DLig & "," & Sht1 & "!V2:V" & DLig & "))")

Permet de compte le nombre de valeurs de ta colonne V mais sans doublon

Si tu veux tout simplement compter le nombre de lignes, utilises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  Sheets(Sht2).Range("E8").Value = _
    Application.WorksheetFunction.Subtotal(103, Sheets(Sht1).Columns(1)) - 1

-1 pour la ligne d'entête

Tiens nous au courant

Un gros fichier peut-être mis sur CiJoint.fr ou dl.free.fr

A+

[harkoko]

Merci à toi Bruno pour ton aide et désolé pour le multipostage..

Ton code pour compter le nombre de ligne ne fonctionne pas puisque le résultat est "-1"
J'essaye de comprendre la commande subtotal.. D'après l'aide l'agument 2 désigne l'objet pour lequel le sous total doit être calculé (donc le colonne de ma feuille) et l'argument 1 désigne "Nombre indiquant la fonction d'agrégation que doit utiliser la méthode"

Qu'est qu'on entend par fonction d'intégration ?? Pourquoi cette valeur de 3 ??

Merci par avance
David

[Invité]

Salut,

Dans l'aide d'Excel tout est indiqué
Et il faut utiliser 103 et non 3

1ère colonne : no_fonction (comprend les valeurs masquées)
2ème colonne : no_fonction (ignore les valeurs masquées)
3ème colonne : fonction d'agrégation
1 101 MOYENNE
2 102 NB
3 103 NBVAL
4 104 MAX
5 105 MIN
6 106 PRODUIT
7 107 ECARTYPE
8 108 ECARTYPEP
9 109 SOMME
10 110 VAR
11 111 VAR.P

Si cela te renvoie -1, c'est que le calcul ne se fait pas sur la bonne feuille
Essaye comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Sheets(Sht2).Range("E8").Value = _
Application.WorksheetFunction.Subtotal(103, Sheets(Sht1).Columns(1)) - 1

A+