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

Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
- - Dernière réponse : eltigre85
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
- 31 janv. 2012 à 16:50
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
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
207
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 154 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
8
0
Merci
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+
Commenter la réponse de bigfish_le vrai
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
0
Merci
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.
Commenter la réponse de eltigre85
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
207
0
Merci
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
Commenter la réponse de ucfoutu
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
0
Merci
Merci bcp le problème est résolu.
Merci à tous
Commenter la réponse de eltigre85