Nombre d'occurence dans une plage de données d'une valeur saisie dans un text boRésolu

Question

Salut,
Je voudrai connaitre le nombre d'occurrence d'une valeur saisie dans un textbox dans une plage de données. La textbox est dans un userform en cliquant le bouton ok je voudrai qu'il m'affiche le nombre n d'occurence.

Private Sub CommandButton1_Click()
Dim a As Range
Dim n As Integer
n = 0
For Each a In Feuil5.Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
If TextBox1.Value a.Value Then n n + 1 Else TextBox1.SetFocus
a.Offset(1, 0).Select
End
Next
MsgBox (n)
End Sub

ucfoutu · Accepted Answer

pardon === > corriger
 cherche  r  = textbox1.text

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

bigfish_le vrai · Answer

Salut,

a.Offset(1, 0).Select te sert à quoi puisque tu boucles déjà sur chaque cellule de ta plage ???

De plus ta plage est une colonne est-ce que ce sera toujours le cas ? si oui il y a plus rapide via un filtre auto ou un filtre élaboré.

A+

eltigre85 · Answer

Je viens de l'enlever mais ça ne tourne tjrs pas. En fait je voudrai utiliser ce nombre n dans une autre partie pour afficher certaines cellules dans des labels.

ucfoutu · Answer

Bonjour,
soit p la plage de recherche et r le contenu recherché ===>>
Dim r As String
Dim p As Range
cherche = textbox1.text
Set p = Range("A1:A10") '=====>>> définis ici TA plage
n = Application.WorksheetFunction.CountIf(p, r)
MsgBox n


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

eltigre85 · Answer

Merci bcp le problème est résolu.
Merci à tous

Nombre d'occurence dans une plage de données d'une valeur saisie dans un text bo

5 réponses

Votre réponse