XL 2016 Code pour doublons

[lynyrd]

Bonjour le forum
Dans le Userform,j'aimerai avoir le code de la textbox3 pour comptabiliser le nombre de doublons par films.
Merci.

 

[sylvanu]

Bonjour Lynyrd,
Je suppose que c'est en mode "Création" sur le titre du film ?
Si oui, on peut peut être faire :

Private Sub TextBox1_Change()
    TextBox3 = Application.CountIf([A2:A10000], TextBox1.Value)
End Sub

 

[job75]

Bonsoir lynyrd, sylvanu,

Je ne comprends pas à quoi sert le mode "Création" puisqu'il n'affiche aucun résultat.

Par contre avec le mode "Recherche" cette macro va bien :

Private Sub listbox1_Click()
    With ListBox1
        TextBox1 = .List(.ListIndex, 0)
        TextBox2 = .List(.ListIndex, 1)
    End With
    With Sheets("Feuil1")
        TextBox3 = Application.CountIfs(.Columns(1), TextBox1, .Columns(2), TextBox2)
    End With
End Sub

Pour TextBox3 c'est la fonction NB.SI.ENS qui est utilisée.

A+

 

[lynyrd]

Salut sylvanu
Non c'est en mode Recherche
Merci

 

[lynyrd]

Merci job75
ça marche nickel
Et merci aussi a sylvanu mais je m'étais mal exprimé (recherche et création)
A+