Discussion :

[Chicard]

Bonjour,

Je sais qu'il y a une fonction somme dans Excel, mais ce que je cherche c'est avoir c'est le nombre de lignes remplies. Mais en fait, ça va plus loin que ça. Le résultat devras se trouver à la fin d'une colonne où il y a des lignes vides et ce nombre devra toujours rester à la fin de la colonne même lorsque des valeurs sont rajoutées. De plus elle devra apparaitre à la fin de ma recherche en affichant le nombre de lignes du résultat de la recherche.

Merci.

[Qwazerty]

Salut
Humm un p'tit fichier exemple?
Je te met quand même une piste

Code :

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

Nb.SI(Palge,"?*")

mais bon j'ai pas toutes les infos je pense.
Pour ce qui est de l'avoir toujours en fin de colonne, il suffit d'insérer les lignes au dessus de la cellule ayant la formule
A++
Qwaz

[laetitia]

bonjour chicard salut mon ami Qwaz le forum d autres infos pour aider

Code :

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

1
2
3
4
5
6
Sub test()
   Dim i As Long, z As Long
     i = Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants).Count
     z = Cells.Find("*", , , , , xlPrevious).Row + 1
     MsgBox "nb..lignes rempliees   " & i & "    premiere ligne vide  " & z
  End Sub

[Chicard]

Merci Laetitia, mais en fait un msgbox ici ne convient pas à ce que je cherche à faire.

Comme demandé plus haut, je joins le fichier.

Vous remarquerez une fonction de recherche et une de ré affichage de données qui me donne entière satisfaction. Donc ce que je cherche c'est que sur le fichier non traités au niveau de la ligne 102 (mais cela pourrais augmenter) de la colonne C, c'est avoir le nombre de ligne du fichier (on pourrait compter le nombre de ligne de A qui est toujours renseigné).

Ensuite ce résultat doit ce mettre à jour, lorsque je rajoute une ligne et lorsque j'effectue une recherche (mes recherche masque les lignes inappropriées)

Exemple: le fichier original comporte 100 lignes -2 pour les titres donc à la fin de mon fichier j'ai 98. Je fais une recherche et il me reste 8 lignes. J'enlève 2 pour les titres et là sous ma colonne je me retrouve avec 6.

PS:

Code :

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

Nb.SI(Palge,"?*")

Est_ce un i majuscule ou un l?

PS2: seules la seconde feuille est à utiliser les autres ne sont pas concernés.

[laetitia]

re le fil le forum si j ai compris

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Bouton_Rechercher_Click()
Dim thecell As Range, R As Double, l As Double, z As Long
Feuil6.Activate
Application.ScreenUpdating = False
z = Cells.Find("*", , , , , xlPrevious).Row + 2
For Each thecell In Range("A1", Cells(Rows.Count, "A").End(xlUp))
    If Not IsEmpty(thecell) Then
        With thecell.Offset(1, 2)
     .EntireRow.Hidden = Year(CDate(.Value)) <> CInt(TextBox2.Value)
        End With
      End If
Next
 If (TextBox1.Value <> "") Then
    For Each thecell In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        If IsEmpty(thecell) Then
        With thecell.Offset(1, 2)
  .EntireRow.Hidden = Month(CDate(.Value)) <> CInt(TextBox1.Value)
        End With
        End If
    Next
End If
Unload UserForm_Rechercher
For l = 1 To Cells(65536, 1).End(xlUp).Row
    If Not Rows(l).Hidden Then R = R + 1
Next l
Cells(z, 3) = R - 2
End Sub

[Chicard]

Salut,

En fait ton code résout une partie de mon problème et en pose un petit autre.

En fait, chaque fois que je fais une recherche ou que je ré affiche mes données il me marque le nombre d'enregistrement les uns au dessous des autres.

Exemple : j'appuie trois fois sur ré affichage des données, je me retrouve avec trois fois le chiffres 98 écris les uns en dessous des autres.

Ensuite, je voudrais qu'au niveau de l'enregistrement des données, l'incrémentation de mon "compteur" augmente automatiquement.

[laetitia]

re, chicard la macro demasque a adapter

Code :

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

1
2
3
4
5
6
Sub demasque()
Feuil6.Activate
Cells.Select: Selection.EntireRow.Hidden = False: [a1].Select
Range("c65536").End(xlUp).Select
If Selection.Value Like "##/##/####" Then Exit Sub Else Selection.Delete
End Sub

[Chicard]

Bien que ce code efface la valeur de la recherche il faudra que je mette à la suite le code pour faire une recherche sur le nombre de ligne pour avoir le nombre de ligne de mon tableau au ré affichage.

Y aurait-il un moyen de l'incrémenter automatiquement lors de l'ajout de nouvelles valeurs?

[laetitia]

re,pas sur d avoir compris je t ais donner ce code pour avoir le nombre de lignes
a adapter

Code :

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

i = Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants).Count

[Chicard]

Là c'est moi qui comprend plus.

Cette ligne de code est sensé faire quelque chose. Le code que tu as produit juste avant est pratique dans le sens où il me permet d'effacer la valeur obtenu sur le nombre de lignes.

C'est pas important. Serait-i possible de rajouter du texte ici:

Code :

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

1
2
3
4
For l = 1 To Cells(65536, 1).End(xlUp).Row
    If Not Rows(l).Hidden Then R = R + 1
Next l
Cells(z, 3) = R - 2 'ici

pour avoir un résultat sous la forme (après exécution et sana MsgBox):
..
Tableau
..
Nombre d'actions = (valeur retourné par le code)

[laetitia]

re pas facile a comprendre tu parles d un compteur !!!
tu veus qu a chaque fois que tu fais une recherche un compteur s incremente??dans l hypothese que c est cela on incremente ou le compteur dans une cellule ??

[Chicard]

Non c'est pas ça.

Je parle d'un compteur c'est vrai mais il s'incrémente juste quand je fais une nouvelle entrée.

Explication: j'ai mon tableau avec disons vingt entrées. Je mets mon fameux compteur deux lignes en dessous. Mon compteur comporte donc la valeur 20.

Je fais une nouvelle entrée donc j'en suis en 21 entrée et à la ligne en dessous mon compteur passe à la valeur 21 tout seul (il peut y avoir une fonction qui controle toutes les x minutes le nombre de lignes ou qui détecte une entrée).

Voilà c'est tout.

[laetitia]

re chicard pas si simple vu que le code est basee sur les dernieres lignes il faut revoir ca pour le compteur je vois ce que tu veus faire je pense qu avec ontime cela peut se faire a reflechir!!!

[Chicard]

A la limite c'est pas grave. Je peux toujours créer une fonction de rafraichissement.

Par contre par rapport à l'écriture d'une phrase sans MsgBox, est-ce possible (écriture sur une ou plusieurs cellules de la même ligne)?

[laetitia]

re tu peus avec & exemple

Code :

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

[a3]=[a2]&[a1]

[Qwazerty]

Salut
Je comprend pas quel est le probleme??
Ca se fait facilement par formule, il suffit de mettre cette formule (je me suis un peu planté la derniere fois, ma formule ne tenait pas compte des cellule contenant un numeric)

Code :

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

Nb.SI("A1:A20","<>")

dans la cellule ligne 23 par exemple.
Lorsque tu vas inserer une ligne (y compris ligne 21) excel va automatiquement augmenter la plage ("A1:A20") pour prendre en compte la ligne créée.

Si tu tiens vraiement a le faire par le code, ce ne sera pas simple, car tu vas etre confronté au probleme suivant, a soir qu'il va etre tres difficile de savoir ou se trouve la cellule devant recevoir le resultat, en effet si tu as des vides dans ta liste comment savoir si la derniere cellule non vide de la colonne est la case contenant le resultat ou la derniere ligne du tableau. Pourquoi? Imagines au 1er tour de ta macro (cellule ou tu veux le resultat vide)

Code :

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

cells(rows.count,"A").End(XlUp)

Nous selectionne la derniere ligne du tableau, et ce sera pareil si pour une raison x ou y tu vidais la case contenant le resultat (fausse manip par exemple).
Au tour d'apres, la meme ligne de code pointera sur la cellule contenant le resultat, mais ne devra pas etre prise en compte pour calculer le nouveau resultat ...

Une solution serait de mettre la case ou tu souhaites avoir le resultat en couleur, ainsi tu cherches la case en couleur, tu regardes les cellules au dessus (en prennant en compte que tu veilles 2 lignes vides entre ton tableau et la cellule contenant le resultat), si les 2 cases ne sont pas vide, c'est que l'une d'elle a ete utilisée pour rajouter une entrée, ainsi tu decalera la case colorée d'un cran vers le bas (en vidant et decolorant l'ancienne) et en lui mettant le new resultat a l'interieur.

Voila comment je vois la chose.
Bon courrage
A++
Qwaz

[Chicard]

Ben finalement j'ai abandonné l'idée. Ca suffira pour l'utilisation qu'il en font. C'était surtout pour un effet de style et de forme.

Désolé de n'avoir vu ton message que maintenant Qwazerty. Le sujet va passer en résolu même s'il ne l'est pas.

Merci pour votre aide.