XL 2016 Code pour doublons

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mars 2024

• #2

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

VB:

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

 

Pièces jointes

• films (1).xlsm

  26.3 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Mars 2024

• #3

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 :

VB:

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+

 

Pièces jointes

• films.xlsm

  31.9 KB · Affichages: 3

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 16 Mars 2024

• #4

Salut sylvanu
Non c'est en mode Recherche
Merci

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 16 Mars 2024

• #5

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

 

Vote positif 0 Vote négatif