ptite formule dans textbox

wilfried_42

XLDnaute Barbatruc

• 16 Mai 2007

• #2

Re : ptite formule dans textbox

Bonjour pierrof

ton fichier en retour

 

Pièces jointes

• pierrof78511.zip

  15.1 KB · Affichages: 35
• pierrof78511.zip

  15.1 KB · Affichages: 30
• pierrof78511.zip

  15.1 KB · Affichages: 34

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 16 Mai 2007

• #3

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 16 Mai 2007

• #4

Re : ptite formule dans textbox

Bonjour,
Salut Wilfried🙂

Code:

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

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 16 Mai 2007

• #5

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..

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 16 Mai 2007

• #6

Re : ptite formule dans textbox

Salut,

et avec cela ?

Code:

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

@+

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 16 Mai 2007

• #7

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 ?

 

Vote positif 0 Vote négatif