1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

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

Signaler
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
 -
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
 -
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

5 réponses

Réponse 1 / 5
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 235
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
Réponse 2 / 5
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
 9
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+
Réponse 3 / 5
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
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.
Réponse 4 / 5
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 235
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
Réponse 5 / 5
Messages postés
35
Date d'inscription
mercredi 4 janvier 2012
Statut
Membre
Dernière intervention
12 septembre 2013
Merci bcp le problème est résolu.
Merci à tous
Répondre Posez votre question