eltigre85
Messages postés35Date d'inscriptionmercredi 4 janvier 2012StatutMembreDernière intervention12 septembre 2013
-
31 janv. 2012 à 14:59
eltigre85
Messages postés35Date d'inscriptionmercredi 4 janvier 2012StatutMembreDernière intervention12 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
A voir également:
Nombre d'occurence dans une plage de données d'une valeur saisie dans un text bo
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018219 31 janv. 2012 à 16:27
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
eltigre85
Messages postés35Date d'inscriptionmercredi 4 janvier 2012StatutMembreDernière intervention12 septembre 2013 31 janv. 2012 à 15:59
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
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018219 31 janv. 2012 à 16:26
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
Vous n’avez pas trouvé la réponse que vous recherchez ?