Discussion :

[stevenP]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Act_Change()
 
    Act.RowSource = "ListeAct"
 
End Sub

Je ne vois pas quoi mettre dans le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub NombreApp_Click()
 
End Sub

Merci d'avance de m'éclairer

[Daranc]

faire un tableau VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
(d'un autre coté c'est directement taillé dans la masse sur le forum)

[Theze]

Bonjour,

Avec la fonction CountIf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Hervé.

[stevenP]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Marche terriblement bien ! Merci !