boucle for pour balayage de colonnes

[romainchu78]

bonjour a tous,
je souhaiterais balayer mes colonnes avec une boucle for pour compter le nombre de colonnes qui ne sont pas vident.
la zone a "scanner" va de la colonne 14 jusqu'a la colonne 20, le tout sur la ligne numero 1.

par exemple jai:
"toto" sur la ligne 1 colonne 14
"25" sur la ligne 1 colonne 15
"u89t" sur la ligne 1 colonne 16
et rien du tout apres sur les autres colonnes...

le resultat sera 3 car jai 3 colonnes qui ne sont pas vide (la 14, la 15 et la 16).

je sais comment balayer des lignes avec:
For i = Range("B65536").End(xlUp).Row To 2 Step -1
mais pas avec les colonnes.

idealement, la boucle s'arretera automatiquement des qu'une colonne est vide! par exemple, elle s'arreterais a la 16. en tout le balayage commence a la colonne 14.


merci,
bonne journee,
romain

 

[PascalXLD]

Re : boucle for pour balayage de colonnes

Bonjour

for i = 14 to 20
if cells(1,i)="" then
exit for
else
resultat=resultat+1
end if
next

sinon

range("M1").end(xltoleft).column
t'indique la première colonne vide à partir de la cellule M1

Bon courage

 

[Eric 45]

Re : boucle for pour balayage de colonnes

Bonjour à tous

Pour compléter ce que t'a donné Pascal :

nbcolonnes = range("M1").end(xltoright).column - 12

ce qui t'indique le nombre de colonnes nonvides vers la droite à partir de la cellule M1 (m1 comprise)

A+

 

[romainchu78]

Re : boucle for pour balayage de colonnes

ok, merci a tous