OVH Cloud OVH Cloud

Un compteur !

4 réponses
Avatar
famjb2005
Salut,
Je cherche à faire une sorte de compteur d'information qui conserverait le
résultat obtenu et qui ne changerait pas en cas de modification de
l'information. Je m'explique :
je souhaitais préciser combien de fois revenait le contenu d'une cellule sur
une autre feuille : c'est chose faite avec la fonction NB.SI. Le problème
c'est que j'aimerais maintenant pouvoir conserver le résultat même si je
modifie la feuille et le contenu des cellules. Je souhaite que le compteur
conserve l'addition de l'information mais qu'il ne prenne pas en
considération la suppression de cette information.
En clair : Feuille1 Cellule A1 = Pain Cellule B25 = Pain Cellule A15= Pain
Feuille2 Cellule D60= NB.SI(**:**;*)=3 ( Le mot pain apprait 3
fois)
mais si je modifie: la Feuille 1 Cellule A1=Beurre
la Feuille 2 Cellule D60=3 (aucune
modification!!)
Si je souhaite à nouveau mettre dans Feuille1 A1 le mot "pain" alors
Feuille2 Cellule D60=4 (le mot étant apparut 4 fois même si ça n'apparait
pas sur la Feuille 2)
Pouvez vous m'aider.
P.S : Je pense kon peut lier cette kestion à une autre : Comment considérer
tous les résultats d'une feuille par rapport à une année déterminée :
Combien de fois le mot pain a été taper sur la Feuille 1 en 2005 , par
exemple !
Merci d'avance

4 réponses

Avatar
Rai
Bonjour,

Si tu veux compter le nombre de fois que le mot "Pain" a été entré sur la Feuil1 de ton classeur,
je te propose une méthode, en passant par la programmation.
Dans l'éditeur VBA (Outils / Macros / Visual Basic Editor ou ALT+F11),
Place le code suivant dans "Feuil1" (doubleclic sur l'objet "Feuil1" de l'arboresence à gauche de ta fenêtre)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "Pain" Then
Sheets("Feuil2").[B2] = Sheets("Feuil2").[B2] + 1
End If
End Sub

Ceci aura pour effet de compter le nombre de saisies et de placer le résultat dans la cellule B2 de ta feuille2.

Si tu veux compter le nombre de fois que cela a été fait en 2005 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "Pain" and Year(Date) 05 Then
Sheets("Feuil2").[B2] = Sheets("Feuil2").[B2] + 1
End If
End Sub

Bonne journée

Rai

"famjb2005" a écrit dans le message de news: ORC6sm6$
Salut,
Je cherche à faire une sorte de compteur d'information qui conserverait le
résultat obtenu et qui ne changerait pas en cas de modification de
l'information. Je m'explique :
je souhaitais préciser combien de fois revenait le contenu d'une cellule sur
une autre feuille : c'est chose faite avec la fonction NB.SI. Le problème
c'est que j'aimerais maintenant pouvoir conserver le résultat même si je
modifie la feuille et le contenu des cellules. Je souhaite que le compteur
conserve l'addition de l'information mais qu'il ne prenne pas en
considération la suppression de cette information.
En clair : Feuille1 Cellule A1 = Pain Cellule B25 = Pain Cellule A15= Pain
Feuille2 Cellule D60= NB.SI(**:**;*)=3 ( Le mot pain apprait 3
fois)
mais si je modifie: la Feuille 1 Cellule A1¾urre
la Feuille 2 Cellule D60=3 (aucune
modification!!)
Si je souhaite à nouveau mettre dans Feuille1 A1 le mot "pain" alors
Feuille2 Cellule D60=4 (le mot étant apparut 4 fois même si ça n'apparait
pas sur la Feuille 2)
Pouvez vous m'aider.
P.S : Je pense kon peut lier cette kestion à une autre : Comment considérer
tous les résultats d'une feuille par rapport à une année déterminée :
Combien de fois le mot pain a été taper sur la Feuille 1 en 2005 , par
exemple !
Merci d'avance




Avatar
AV
Il est très étonnant que la fonction NB.SI ne se mette pas à jour lors de
modification de la plage testée !
Es-tu sur d'être en mode de calcul automatique ?
Es-tu sur d'utiliser la "bonne plage" dans la formule NB.SI(Plage;"Pain") ?

AV
Avatar
Rai
Salut Alain,

Si j'ai bien compris la question, il est question (justement) de garder en mémoire chaque saisie du mot "pain", même si ce mot est effacé par la suite.

Rai


"AV" a écrit dans le message de news: ei9rv37$
Il est très étonnant que la fonction NB.SI ne se mette pas à jour lors de
modification de la plage testée !
Es-tu sur d'être en mode de calcul automatique ?
Es-tu sur d'utiliser la "bonne plage" dans la formule NB.SI(Plage;"Pain") ?

AV




Avatar
AV
Si j'ai bien compris la question, il est question (justement) de garder en
mémoire chaque saisie du mot "pain", même si ce mot est effacé par la suite.


T'as absolument raison !
J'avais lu en diagonale !

AV