Compter le nombre de lignes non-vides d'une colonne

Salut Rahou !

Peut-être que cette proc pourra t'aider ...

Private Sub CommandButton1_Click()
Cnt = 0
For Each Cell In [A:A]
On Error Resume Next
If Cell.Value = "" Then
Cnt = Cnt + 1
End If
Next Cell
MsgBox "Le nombre de cellules vide est de " & Cnt
End Sub

Cela te compte de nombre de cellule vide de la colonne A:A ...

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Rahou" a écrit dans le message de
news:0e8d01c3a8ff$878038c0$
Bonjour,
J'aimerai savoir comment compter le nombre de lignes non-
vides d'une colonne avec Visual Basic 6.0.
Je dois faire une boucle pour insérer des données d'une
feuille Excel dans une table Access, et il me faut le
nombre de lignes pour éviter un overflow.

Merci

Salut Dédé et Rahou !
Ben non, dédé, je ne pense oas que cette proc puisse lui
être utile ! Elle ne compte que les cellules vides d'une
colonne et non les lignes vides...
La petite proc suivante n'est pas optimale (elle teste
toutes les lignes et du coup ça rame un peu, mais elle
sélectionne les lignes non vides !)

Sub Yalah()

Dim c, LigneNonVides As Range
For Each c In Range("A:A")
If Evaluate("sumproduct((R" & c.Row & "<>"""")*1)") >
0 Then
If LigneNonVides Is Nothing Then
Set LigneNonVides = c.EntireRow
Else
Set LigneNonVides = Union(LigneNonVides,
c.EntireRow)
End If
End If
Next c
LigneNonVides.Select
End Sub

Voilà, en espérant que cela te convienne rahou ;-)

A+


V.

-----Message d'origine-----
Salut Rahou !

Peut-être que cette proc pourra t'aider ...

Private Sub CommandButton1_Click()
Cnt = 0
For Each Cell In [A:A]
On Error Resume Next
If Cell.Value = "" Then
Cnt = Cnt + 1
End If
Next Cell
MsgBox "Le nombre de cellules vide est de " & Cnt
End Sub

Cela te compte de nombre de cellule vide de la colonne
A:A ...

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
R(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Rahou" a écrit
dans le message de

news:0e8d01c3a8ff$878038c0$
Bonjour,
J'aimerai savoir comment compter le nombre de lignes non-
vides d'une colonne avec Visual Basic 6.0.
Je dois faire une boucle pour insérer des données d'une
feuille Excel dans une table Access, et il me faut le
nombre de lignes pour éviter un overflow.

Merci


.

Salut Vincent ;-)

Qu'est-ce que t'en sais que cela ne va pas lui convenir ? il te l'a dis ?

Au lieu de faire une proc qui rame et qu'il faille attendre trop longtemps
pour en avoir le résultat, je préconise de cibler la colonne qui de toute
façon sera remplie quand un certaine ligne doit l'être et de faire le test
uniquement sur cette colonne ...

Mais bon, on peut aussi comme tu le dis, tester les 256 lignes constituées
chacunes de 256 cellules et tester si pour une seule ligne, tout ses cellule
sont pleine ou vide ... Ce que je préconise dans ce cas, c'est une bonne
barrette de ram, un bon proc, et p'as trop d'applications qui tournent en
tâche de fond ...;-))

Sans rancunes ;-))

Salutations
Dédé


--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php

"Vincent." a écrit dans le message de
news:036001c3a907$c8553b40$
Salut Dédé et Rahou !
Ben non, dédé, je ne pense oas que cette proc puisse lui
être utile ! Elle ne compte que les cellules vides d'une
colonne et non les lignes vides...
La petite proc suivante n'est pas optimale (elle teste
toutes les lignes et du coup ça rame un peu, mais elle
sélectionne les lignes non vides !)

Sub Yalah()

Dim c, LigneNonVides As Range
For Each c In Range("A:A")
If Evaluate("sumproduct((R" & c.Row & "<>"""")*1)") >
0 Then
If LigneNonVides Is Nothing Then
Set LigneNonVides = c.EntireRow
Else
Set LigneNonVides = Union(LigneNonVides,
c.EntireRow)
End If
End If
Next c
LigneNonVides.Select
End Sub

Voilà, en espérant que cela te convienne rahou ;-)

A+


V.

-----Message d'origine-----
Salut Rahou !

Peut-être que cette proc pourra t'aider ...

Private Sub CommandButton1_Click()
Cnt = 0
For Each Cell In [A:A]
On Error Resume Next
If Cell.Value = "" Then
Cnt = Cnt + 1
End If
Next Cell
MsgBox "Le nombre de cellules vide est de " & Cnt
End Sub

Cela te compte de nombre de cellule vide de la colonne
A:A ...

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php

"Rahou" a écrit
dans le message de

news:0e8d01c3a8ff$878038c0$
Bonjour,
J'aimerai savoir comment compter le nombre de lignes non-
vides d'une colonne avec Visual Basic 6.0.
Je dois faire une boucle pour insérer des données d'une
feuille Excel dans une table Access, et il me faut le
nombre de lignes pour éviter un overflow.

Merci


.

oupssss erreur grave ...;-))

C'est pas 256 lignes cotenant chacune 256 cellule mais plutôt 65536 lignes
contenant chacunes 256 cellules ce qui pourrait faire un total de 16777216
cellules à contrôler ;-))

Avec un peu de patience, on devrait y arriver ;-))

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php

"Dédé" a écrit dans le message de
news:

Salut Vincent ;-)

Qu'est-ce que t'en sais que cela ne va pas lui convenir ? il te l'a dis ?

Au lieu de faire une proc qui rame et qu'il faille attendre trop longtemps
pour en avoir le résultat, je préconise de cibler la colonne qui de toute
façon sera remplie quand un certaine ligne doit l'être et de faire le test
uniquement sur cette colonne ...

Mais bon, on peut aussi comme tu le dis, tester les 256 lignes constituées
chacunes de 256 cellules et tester si pour une seule ligne, tout ses
cellule

sont pleine ou vide ... Ce que je préconise dans ce cas, c'est une bonne
barrette de ram, un bon proc, et p'as trop d'applications qui tournent en
tâche de fond ...;-))

Sans rancunes ;-))

Salutations
Dédé


--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php

"Vincent." a écrit dans le message de
news:036001c3a907$c8553b40$
Salut Dédé et Rahou !
Ben non, dédé, je ne pense oas que cette proc puisse lui
être utile ! Elle ne compte que les cellules vides d'une
colonne et non les lignes vides...
La petite proc suivante n'est pas optimale (elle teste
toutes les lignes et du coup ça rame un peu, mais elle
sélectionne les lignes non vides !)

Sub Yalah()

Dim c, LigneNonVides As Range
For Each c In Range("A:A")
If Evaluate("sumproduct((R" & c.Row & "<>"""")*1)") >
0 Then
If LigneNonVides Is Nothing Then
Set LigneNonVides = c.EntireRow
Else
Set LigneNonVides = Union(LigneNonVides,
c.EntireRow)
End If
End If
Next c
LigneNonVides.Select
End Sub

Voilà, en espérant que cela te convienne rahou ;-)

A+


V.

-----Message d'origine-----
Salut Rahou !

Peut-être que cette proc pourra t'aider ...

Private Sub CommandButton1_Click()
Cnt = 0
For Each Cell In [A:A]
On Error Resume Next
If Cell.Value = "" Then
Cnt = Cnt + 1
End If
Next Cell
MsgBox "Le nombre de cellules vide est de " & Cnt
End Sub

Cela te compte de nombre de cellule vide de la colonne
A:A ...

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php

"Rahou" a écrit
dans le message de

news:0e8d01c3a8ff$878038c0$
Bonjour,
J'aimerai savoir comment compter le nombre de lignes non-
vides d'une colonne avec Visual Basic 6.0.
Je dois faire une boucle pour insérer des données d'une
feuille Excel dans une table Access, et il me faut le
nombre de lignes pour éviter un overflow.

Merci


.

Re
Dis-donc, tu écrirais pas un peu vite, en tous cas sans
avoir pris la peine de décortiquer le code que j'ai pondu
toi ?!!!
En fait, je ne fais pas plus de test que toi ! Soit les
65536 lignes de [A:A] !
Sauf que j'effectue sur chaque cellule un test sur le fait
que la ligne est ou non remplie. Imagine que le tableau à
tester soit du gruyère : aucune colonne entièrement
remplie, des lignes vides, j'en passe et des meilleures...
Quand je parlais d'optimiser, il s'agissait juste de
réduire la plage de test, mais c'était valable pour ton
code aussi ;-))
Evidemment, sans rancune !

A+


V.

PS : je suis inconscient mais pas au point d'envoyer une
proc qui traiterait 16 777 216 tests !!!

Merci c génial, je vais le tester et vous en donner des
nouvelles!!!!;)

-----Message d'origine-----
Salut Rahou !

Peut-être que cette proc pourra t'aider ...

Private Sub CommandButton1_Click()
Cnt = 0
For Each Cell In [A:A]
On Error Resume Next
If Cell.Value = "" Then
Cnt = Cnt + 1
End If
Next Cell
MsgBox "Le nombre de cellules vide est de " & Cnt
End Sub

Cela te compte de nombre de cellule vide de la colonne
A:A ...

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
R(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Rahou" a écrit
dans le message de

news:0e8d01c3a8ff$878038c0$
Bonjour,
J'aimerai savoir comment compter le nombre de lignes non-
vides d'une colonne avec Visual Basic 6.0.
Je dois faire une boucle pour insérer des données d'une
feuille Excel dans une table Access, et il me faut le
nombre de lignes pour éviter un overflow.

Merci


.

re salut Vincent ;-)

ben je me suis peut-être pas très bien exprimé mais je voulais pas
t'offenser ....

m'enfin bon, je pense que ce qu'il y a de mieux a faire, c'est d'attendre la
réponse de Rahou et de voir ce qu'il va adopter ;-))

Je pense que ma solution est tout aussi valable que la tienne mais pour
l'instant, faut voir ce qu'en pense Rahou ;-)

Bonne continuation et à +
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Vincent." a écrit dans le message de
news:0cb201c3a913$4d47a6c0$
Re
Dis-donc, tu écrirais pas un peu vite, en tous cas sans
avoir pris la peine de décortiquer le code que j'ai pondu
toi ?!!!
En fait, je ne fais pas plus de test que toi ! Soit les
65536 lignes de [A:A] !
Sauf que j'effectue sur chaque cellule un test sur le fait
que la ligne est ou non remplie. Imagine que le tableau à
tester soit du gruyère : aucune colonne entièrement
remplie, des lignes vides, j'en passe et des meilleures...
Quand je parlais d'optimiser, il s'agissait juste de
réduire la plage de test, mais c'était valable pour ton
code aussi ;-))
Evidemment, sans rancune !

A+


V.

PS : je suis inconscient mais pas au point d'envoyer une
proc qui traiterait 16 777 216 tests !!!

Vi, je suis assez d'acord avec ta dernière remarque sur le
fait qu'on attende de voir la réponse de Rahou, j'ai peut-
être été un peu trop précis par rapport à la demande
initiale...
A+

-----Message d'origine-----
re salut Vincent ;-)

ben je me suis peut-être pas très bien exprimé mais je
voulais pas

t'offenser ....

m'enfin bon, je pense que ce qu'il y a de mieux a faire,
c'est d'attendre la

réponse de Rahou et de voir ce qu'il va adopter ;-))

Je pense que ma solution est tout aussi valable que la
tienne mais pour

l'instant, faut voir ce qu'en pense Rahou ;-)

Bonne continuation et à +
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
R(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Vincent." a écrit
dans le message de

news:0cb201c3a913$4d47a6c0$
Re
Dis-donc, tu écrirais pas un peu vite, en tous cas sans
avoir pris la peine de décortiquer le code que j'ai pondu
toi ?!!!
En fait, je ne fais pas plus de test que toi ! Soit les
65536 lignes de [A:A] !
Sauf que j'effectue sur chaque cellule un test sur le fait
que la ligne est ou non remplie. Imagine que le tableau à
tester soit du gruyère : aucune colonne entièrement
remplie, des lignes vides, j'en passe et des meilleures...
Quand je parlais d'optimiser, il s'agissait juste de
réduire la plage de test, mais c'était valable pour ton
code aussi ;-))
Evidemment, sans rancune !

A+


V.

PS : je suis inconscient mais pas au point d'envoyer une
proc qui traiterait 16 777 216 tests !!!


.

heuuu je rajouterais encore un trus ...

Tu n'a pas été trop précis par rapport à la question de base mais je pense
plutôt qu'on a eu chacun son interprétation perso du problème ...;-))

Mais bon, c'est ça qui fais la richesse du NG, pouvoir recevoir des
solutions différentes et qui fonctionnent quand même (à peu de chose près
;-))

Salutations et à +

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php

"Vincent." a écrit dans le message de
news:0ce901c3a916$3d696d80$
Vi, je suis assez d'acord avec ta dernière remarque sur le
fait qu'on attende de voir la réponse de Rahou, j'ai peut-
être été un peu trop précis par rapport à la demande
initiale...
A+

-----Message d'origine-----
re salut Vincent ;-)

ben je me suis peut-être pas très bien exprimé mais je
voulais pas

t'offenser ....

m'enfin bon, je pense que ce qu'il y a de mieux a faire,
c'est d'attendre la

réponse de Rahou et de voir ce qu'il va adopter ;-))

Je pense que ma solution est tout aussi valable que la
tienne mais pour

l'instant, faut voir ce qu'en pense Rahou ;-)

Bonne continuation et à +
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.info-3000.com/vbvba/modulesdeclasse.php

"Vincent." a écrit
dans le message de

news:0cb201c3a913$4d47a6c0$
Re
Dis-donc, tu écrirais pas un peu vite, en tous cas sans
avoir pris la peine de décortiquer le code que j'ai pondu
toi ?!!!
En fait, je ne fais pas plus de test que toi ! Soit les
65536 lignes de [A:A] !
Sauf que j'effectue sur chaque cellule un test sur le fait
que la ligne est ou non remplie. Imagine que le tableau à
tester soit du gruyère : aucune colonne entièrement
remplie, des lignes vides, j'en passe et des meilleures...
Quand je parlais d'optimiser, il s'agissait juste de
réduire la plage de test, mais c'était valable pour ton
code aussi ;-))
Evidemment, sans rancune !

A+


V.

PS : je suis inconscient mais pas au point d'envoyer une
proc qui traiterait 16 777 216 tests !!!


.

Vincent et Dédé,

Vous vous compliquez la vie ;-)))

Pour une seule colonne, une simple formule suffit :

=NBVAL(C:C)

Pour l'ensemble des lignes, il n'est nullement nécessaire de tester les
colonnes une par une ; il suffit d'additionner les caractères de toutes les
cellules d'une ligne pour savoir si elle est vide (total = 0) ou non :

=SOMME(NBCAR(8:8))

En exploitant cette formule et en stockant le résultat dans un nom
avec une commande macro XL4, ET en se limitant au UsedRange de la
feuille, on obtient rapidement le nombre de lignes non vides:


Sub LignesNonVides()
Dim c As Range, Debut As Long, NbLignes As Long, i As Long, j As Long
With ActiveSheet.UsedRange
Set c = .Cells(1, 1)
Debut = .Row
NbLignes = .Rows.Count
For i = Debut To Debut + NbLignes - 1
Application.ExecuteExcel4Macro ("DEFINE.NAME(""Total"",""=SUM(LEN(R" & i & "))"")")
' MsgBox ActiveSheet.Evaluate("Total")
If ActiveSheet.Evaluate("Total") <> 0 Then
j = j + 1
End If
Next i
End With
MsgBox j
ActiveWorkbook.Names("Total").Delete
End Sub

Vi, je suis assez d'acord avec ta dernière remarque sur le
fait qu'on attende de voir la réponse de Rahou, j'ai peut-
être été un peu trop précis par rapport à la demande
initiale...
A+

-----Message d'origine-----
re salut Vincent ;-)

ben je me suis peut-être pas très bien exprimé mais je
voulais pas

t'offenser ....

m'enfin bon, je pense que ce qu'il y a de mieux a faire,
c'est d'attendre la

réponse de Rahou et de voir ce qu'il va adopter ;-))

Je pense que ma solution est tout aussi valable que la
tienne mais pour

l'instant, faut voir ce qu'en pense Rahou ;-)

Bonne continuation et à +
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Vincent." a écrit
dans le message de

news:0cb201c3a913$4d47a6c0$
Re
Dis-donc, tu écrirais pas un peu vite, en tous cas sans
avoir pris la peine de décortiquer le code que j'ai pondu
toi ?!!!
En fait, je ne fais pas plus de test que toi ! Soit les
65536 lignes de [A:A] !
Sauf que j'effectue sur chaque cellule un test sur le fait
que la ligne est ou non remplie. Imagine que le tableau à
tester soit du gruyère : aucune colonne entièrement
remplie, des lignes vides, j'en passe et des meilleures...
Quand je parlais d'optimiser, il s'agissait juste de
réduire la plage de test, mais c'était valable pour ton
code aussi ;-))
Evidemment, sans rancune !

A+


V.

PS : je suis inconscient mais pas au point d'envoyer une
proc qui traiterait 16 777 216 tests !!!


.

--
Cordialement,

Michel Gaboly
http://www.gaboly.com