OVH Cloud OVH Cloud

CountIf

3 réponses
Avatar
Denys
Bonjour à tous,

J'aimerais qu'à l'initialisation de mon Userform le textbox13 puisse
afficher le nombre de fois que le nombre apparaissant dans la cellule active
apparait dans la plage G3:G jusqu'où l'on est rendu.....

Supposons qu'en G5 le nombre est 444 alors la formule est
=countif(G3:G...,activecell.value)

Suis-je assez clair? Le résultat devant apparaitre dans le textbox13 lorsque
s'initialise le Userform. De cette façon, l'utilisateur saura combien de
transactions ont été effectuées dans ce compte....

Merci pour votre temps

Denys

3 réponses

Avatar
Youky
Sub test()
If Selection.Value = "" Then Exit Sub
If Selection.Column <> 7 Then Exit Sub
For k = 3 To Selection.Row
If Cells(k, 7) = Selection.Value Then nb = nb + 1
Next
userform1.textbox13.text=nb
userform1.show
End Sub

youky
"Denys" a écrit dans le message de news:

Bonjour à tous,

J'aimerais qu'à l'initialisation de mon Userform le textbox13 puisse
afficher le nombre de fois que le nombre apparaissant dans la cellule
active
apparait dans la plage G3:G jusqu'où l'on est rendu.....

Supposons qu'en G5 le nombre est 444 alors la formule est
=countif(G3:G...,activecell.value)

Suis-je assez clair? Le résultat devant apparaitre dans le textbox13
lorsque
s'initialise le Userform. De cette façon, l'utilisateur saura combien de
transactions ont été effectuées dans ce compte....

Merci pour votre temps

Denys


Avatar
michdenis
Bonjour Denys,

'--------------------
Private Sub UserForm_Initialize()

Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("G3:G" & .Range("G65536").End(xlUp).Row)
Me.TextBox1 = Application.CountIf(Rg, Rg(Rg.Rows.Count))
End With

End Sub
'--------------------------



Salutations!



"Denys" a écrit dans le message de news:
Bonjour à tous,

J'aimerais qu'à l'initialisation de mon Userform le textbox13 puisse
afficher le nombre de fois que le nombre apparaissant dans la cellule active
apparait dans la plage G3:G jusqu'où l'on est rendu.....

Supposons qu'en G5 le nombre est 444 alors la formule est
=countif(G3:G...,activecell.value)

Suis-je assez clair? Le résultat devant apparaitre dans le textbox13 lorsque
s'initialise le Userform. De cette façon, l'utilisateur saura combien de
transactions ont été effectuées dans ce compte....

Merci pour votre temps

Denys
Avatar
Denys
Bonjour Denis et Youky,

Merci infiniment à vous deux, car les deux solutions sont parfaites !!!

Bonne journée

Denys


Bonjour Denys,

'--------------------
Private Sub UserForm_Initialize()

Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("G3:G" & .Range("G65536").End(xlUp).Row)
Me.TextBox1 = Application.CountIf(Rg, Rg(Rg.Rows.Count))
End With

End Sub
'--------------------------



Salutations!



"Denys" a écrit dans le message de news:
Bonjour à tous,

J'aimerais qu'à l'initialisation de mon Userform le textbox13 puisse
afficher le nombre de fois que le nombre apparaissant dans la cellule active
apparait dans la plage G3:G jusqu'où l'on est rendu.....

Supposons qu'en G5 le nombre est 444 alors la formule est
=countif(G3:G...,activecell.value)

Suis-je assez clair? Le résultat devant apparaitre dans le textbox13 lorsque
s'initialise le Userform. De cette façon, l'utilisateur saura combien de
transactions ont été effectuées dans ce compte....

Merci pour votre temps

Denys