souci pour compter

[ninou58]

Bonjour tout le monde!!!

' nombre de ligne dans le fichier d'origine
dl1 = Sheets(nomfeuille1).Range(colonne1a & '65536').End(xlUp).Row

Cette ligne me permet normalement de compter mes enregistrements sauf que:
Dans ma feuille, je ramène toutes le sinformations et ensuite je filtre, et j'aimerais qu'il me compte le nombre d'enregistrement qu'il me reste.
Ou même qu'il supprime toute les info qui ne sont pas filtré comme ça le numéro de la première ligne reviendra à 1 car la il est à 130.
Il faudrait trouver le moyen de récupérer les infos filtré et supprimé le reste, ce dont je n'ai pas besoin.

Merci d'avance, j'espère m'être bien exprimé.

 

[pierrejean]

bonjour ninou58

impossible de te repondre sans un fichier exemple (sans données confidentielles)

a +

 

[ninou58]

Voici un fichier, mais pas sur de mettre bien exprimé. [file name=Classeur1_20060321111519.zip size=2676]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060321111519.zip[/file]

 

[edelweisseric]

Bonjour ninou
Bonjour à tous

Ce code peut t'aider, il supprime et il compte, tu supprimes la ligne de ton choix dans le code :

Sub compte()
Range('f1').Select
nombre_de_lignes = Selection.End(xlDown).Row
le_mot = InputBox('Quel est le mot à compter ?', 'Compteur')
For x = 1 To nombre_de_lignes
If ActiveCell.Offset(x, 0).Value = '' Then
MsgBox 'Il y a ' & n & ' ' & le_mot
Exit Sub
ElseIf ActiveCell.Offset(x, 0).Text = le_mot Then
n = n + 1
Else
ActiveCell.Offset(x, 0).EntireRow.Delete
x = x - 1
End If
Next x
End Sub

Bon courage

Cordialement

 

[pierrejean]

bonjour ninou

je ne peux pas acceder à ta macro !!

quelle version de excel ??

 

[ninou58]

pierrejean version 2003.

Je vais regarder edelweisseric

Merci encore

 

[ninou58]

Comme il y a un filtre certaines données sont 'cachées', j'aimerais que celles ci ils ne les compte pas, et que quand je travaille dessus, il prenne seulement les données affichés et non celles qui ont étés filtré.

Merci pour votre aide

 

[pierrejean]

re

comme je suis resté à la version 2000

je me retire sur la pointe des pieds

Bon courage

 

[ninou58]

Merci quand même

 

[edelweisseric]

Coucou me revoilou

Version 97, la mienne : super !!!!

Cela devrait fonctionner.

Au départ supprime ou ecris un ' devant les lignes :

ActiveCell.Offset(x, 0).EntireRow.Delete
x = x - 1

comme cela tu verras ce que fait

A+

Cordialement

 

[Mytå]

Salut le forum

nbre de valeur totale =NBVAL(F:F)-1

nbre de valeur filtrée =SOUS.TOTAL(2;F:F)

Myta