Excel VBA Compter nombre occurence depuis liste deroulante

Bonjour,

J'ai un tableau avec comme champ :
Nom / Prénom / Tel / Email / Activité.
Sur mon UserForm en VBA j'aimerais lorsque je choisis une Activité, Il me compte (et affiche) le nombre d'occurrence de cette activité dans la liste dans une case à coté. Mais je ne vois pas comment faire.

J'ai une "ComboBox" Act
un CommandButton "NombreApp"
un TextBox "NombreDapprentis"

Pour mon affichage de ma liste j'ai ça :

Code:

---

1 2 3 4 5

Private Sub Act_Change()   Act.RowSource = "ListeAct"   End Sub

---

Je ne vois pas quoi mettre dans le :

Code:

---

1 2 3

Private Sub NombreApp_Click()   End Sub

---

Merci d'avance de m'éclairer :)

faire un tableau VBA

Code:

---

1 2 3 4 5 6 7

tablo=sheets(x).range("a2:e" & range("a2").end(xldown).row).value for t= 1 to ubound(tablo,1) if tablo(t,5)=act.value then i=i+1 end if next textbox1.value=str(i)

---

normalement ça devrait le faire :lol:
:( (d'un autre coté c'est directement taillé dans la masse sur le forum)

Bonjour,

Avec la fonction CountIf :

Code:

---

1 2	NombreDapprentis.Text = Application.WorksheetFunction.CountIf(Range("ListeAct"), Act.Text)

---

Hervé.

Code:

---

NombreDapprentis.Text = Application.WorksheetFunction.CountIf(Range("ListeAct"), Act.Text)

---

Marche terriblement bien ! Merci ! :D