NBval multiple de vingt

[Temjeh]

Rebonjour et merci d'avance

J'aimerais une idée en VBA pour ne nbvaleur de col A en multiple de vingt!

Test sur:

1 ère ligne
21 ème
41 ...
61 ...

met le nb en range
Merci beaucoup

Temjeh

 

[dixit]

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

 

[Spitnolan08]

Re : NBval multiple de vingt

Bonjour,
Je dirai même plus:

 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

 

[Spitnolan08]

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 :

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

 

[Temjeh]

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

 

[Spitnolan08]

Re : NBval multiple de vingt

Re,

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

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

 

[Temjeh]

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