ptite formule dans textbox

[pierrof]

Bonjour forum
J'ai un userform avec une textbox
Je voudrai que la textbox me donne le nombre de cellule renseigné d'une plage
Dans mon exemple la plage jaune
ci joint un fichier exemple
Merci d'avance

 

[wilfried_42]

Re : ptite formule dans textbox

Bonjour pierrof

ton fichier en retour

 

[pierrof]

Re : ptite formule dans textbox

Merci wilfried
Encore une ptite question
Je voudrai ne pas faire la selection de la plage
la plage est (C4:C18)
Merci encore

 

[Spitnolan08]

Re : ptite formule dans textbox

Bonjour,
Salut Wilfried🙂

Private Sub UserForm_Initialize()
Dim Myrange As Range, cel As Range
Dim N As Byte
N = 0
Set Myrange = Sheets(1).Range("C4:C18")
For Each cel In Myrange
    If cel.Value <> "" Then N = N + 1
Next
TextBox1.Value = N
End Sub

Cordialement

 

[pierrof]

Re : ptite formule dans textbox

Bonjour spitnolan
J'ai modifier avec ton code mais cela n'a rien changer il faut toujours que je selectinne la plage..

 

[Excel_lent]

Re : ptite formule dans textbox

Salut,

et avec cela ?

Private Sub CommandButton1_Click()
Dim n As Integer, cel As Range

For Each cel In [COLOR=Red]Range("C4:C18")[/COLOR]
    If Not IsEmpty(cel) Then n = n + 1
Next
UserForm1.TextBox1.Value = CStr(n)
UserForm1.Show
End Sub

@+

 

[pierrof]

Re : ptite formule dans textbox

Bonjour Excel lent
ça marche nickel
Merci beaucoup 😉

Ps: As tu retrouver le post de hier sur les boutons clignotent ?