Compter nb d'occurences d'une valeur au moment ou l'on inscrit cette valeur

[antiphot]

Bonjour à toutes et à tous

A l'aide d'un usf réduit ici dans mon exemple à un seul textbox, je rentre des dates dans la colonne B.

J'aimerais que dans la cellule correspondante de la colonne A on ait le nb de dates identiques a la date en B au moment ou on l' inscrit .

Exemple:

A | B
1 | 20/05/2009
2 | 20/05/2009
1 | 02/06/2009
3 | 20/05/2009

Ci-joint mon fichier exemple
Par avance merci pour votre aide
Philippe

 

[wilfried_42]

Re : Compter nb d'occurences d'une valeur au moment ou l'on inscrit cette valeur

Bonjour

non testé :

Private Sub CommandButton1_Click()
With Sheets("feuil1")
derlign = .Range("B65536").End(xlUp).Row
    If .Range("B1") <> "" Then
        .Range("B" & derlign + 1) = TextBox1
        [COLOR="Red"].Range("A" & derlign + 1).Formula = "=CountIf(B:B,A" & derlign + 1 & ")"[/COLOR]
    Else
        .Range("B" & derlign) = TextBox1
        [COLOR="red"].Range("A" & derlign).Formula = "=CountIf(B:B,A" & derlign & ")"[/COLOR]
    End If
End With
TextBox1 = ""
End Sub

 

[antiphot]

Re : Compter nb d'occurences d'une valeur au moment ou l'on inscrit cette valeur

Bonjour wilfried_42

J'ai corrigé la formule = "=CountIf(B:B,A" & derlign + 1 & ")" qui me donnait une référence circulaire par = "=CountIf(B:B,B" & derlign + 1 & ")". Mais Je ne souhaitais pas avoir de formule dans mes cellules. Car du coup j'ai 1 mise à jour a chaque nouvelle occurence, ce que je ne veux pas;

Néanmoins, tu m'as fourni la solution. Merci pour le coup de main

Nouveau Code:

Private Sub CommandButton1_Click()
With Sheets("feuil1")
derlign = .Range("B65536").End(xlUp).Row
    If .Range("B1") <> "" Then
        .Range("B" & derlign + 1) = TextBox1
        .Range("A" & derlign + 1) = Application.CountIf(.Range("B:B"), .Range("B" & derlign + 1))
    Else
        .Range("B" & derlign) = TextBox1
        .Range("A" & derlign) = Application.CountIf(.Range("B:B"), .Range("B" & derlign))
    End If
End With
TextBox1 = ""
End Sub