NBval multiple de vingt

D

dixit

XLDnaute Impliqué

• 18 Mai 2007

• #2

Re : NBval multiple de vingt

bonjour,

dim b as long
for b=1 to xx step 20
cells(b,1)="la valeur"
next b

bye

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 18 Mai 2007

• #3

Re : NBval multiple de vingt

Bonjour,
Je dirai même plus:

Code:

 Sub NbVal()
dim b as long
for b=1 to Range("A65500").end(xlup).row step 20
    cells(b,1)="la valeur"
next b
End sub

Cordialement

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 18 Mai 2007

• #4

Re : NBval multiple de vingt

Re,
A moins que ta ta question concerne le nombre de cellules non vides parmi ta liste ... Dans ce cas :

Code:

Sub NbVal()
Dim b As Integer, NB As Integer
For b = 1 To Range("A65500").End(xlUp).Row Step 20
    If IsEmpty(Cells(b, 1)) = False Then NB = NB + 1
Next b
Range("B1") = NB
End Sub

Cordialement

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 18 Mai 2007

• #5

Re : NBval multiple de vingt

Merci beaucoup encore une fois

J'Adapte le principe à mon code

Cordialement

Temjeh

Ps: pour le test de Cel A1 avant la loope(ca marche mais y at-il mieux)

If Range("A1") <> "" Then Range("B1").Value = 1
Dim b As Integer, NB As Integer
For b = 1 To Range("A65500").End(xlUp).Row Step 20
If IsEmpty(Cells(b, 1)) = False Then NB = NB + 1
Next b
Range("B1") = NB


Mais est-ce comme cela que l'on doit faire?

Merci

 

Dernière édition: 18 Mai 2007

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 19 Mai 2007

• #6

Re : NBval multiple de vingt

Re,

Ps: pour le test de Cel A1 avant la loope(ca marche mais y at-il mieux)

Cliquez pour agrandir...

Je ne sais pas si j'ai bien compris...
Pourquoi as tu ajouté ce test ? Si A1 est non vide, la boucle va le détecter
Cette instruction n'est donc pas nécessaire.

Cordialement

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 19 Mai 2007

• #7

Re : NBval multiple de vingt

Ok merci tu as raison

J'avais ptêtre une valeur plus bas qui m'en donnais un de moins et je croyais que la A1 n'était pas tester

Merci pour ton temps

Temjeh

 

Vote positif 0 Vote négatif