Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compter le nombre de lignes non-vides d'une colonne

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

20 réponses
Avatar
Rahou
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=E9rer des donn=E9es d'une=20
feuille Excel dans une table Access, et il me faut le=20
nombre de lignes pour =E9viter un overflow.

Merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Rahou
Il est vrai que le prog de dédé ne m'a pas permis de faire
grand choz, mais je vais essayer de voir avec ton prog et
gspr que cela va marcher, mais je me demande encore le nom
de la variable qui retourne le nombre de lignes non-vides.



-----Message d'origine-----
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_re
p


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_x
l


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


.

.





Avatar
Rahou
Bonjour à tous,
Je pense que ce ne sera pas la peine de parcourir les
65536 lignes de Excel, il suffit uniquement de faire une
boucle LOOP ou WHILE dont la condition de sortie est la
rencontre de la première ligne vide.
Ce qui fait l'optimisation du prog n'est pas le pb pour
autant que l'on trouve l'algo qui permet de faire ce
traitement.


A vos crayons!!!
Et trouvez moi l'algo adéquat.


-----Message d'origine-----
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_re
p


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_x
l


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


.

.





Avatar
ru-th
Salut

derniereLigne=[feuil1!a65536].end(xlup).row

a+
rural thierry

"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
Avatar
Vincent.
Bah ça tu nous l'avait bien caché ! Pas de ligne vide...
Pfff... vraiment trop facile !
Range("A1").CurrentRegion.Rows.Count suffit !!!
Que de grands et bô discours pour pas grand chose !
Ca te va ce coup-ci ?!!!


-----Message d'origine-----
Bonjour à tous,
Je pense que ce ne sera pas la peine de parcourir les
65536 lignes de Excel, il suffit uniquement de faire une
boucle LOOP ou WHILE dont la condition de sortie est la
rencontre de la première ligne vide.
Ce qui fait l'optimisation du prog n'est pas le pb pour
autant que l'on trouve l'algo qui permet de faire ce
traitement.


A vos crayons!!!
Et trouvez moi l'algo adéquat.


-----Message d'origine-----
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_r
e



p
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_
x



l
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


.

.


.






Avatar
Dédé
Heuuu je te ferais remarqué que ton principe de trouver la première
occurence vide ne sera pas^forcément la solutions à ton problème ...

Pour info, il existe des solution pour trouver la dernière cellule non-vide
d'une colonne ou bien la première cellule vide d'une colonne ... et on peut
même trouver tout cela en commencant par le bas de ta feuille ce qui
ignorerait des cellules vide au milieu de ta colonne ...

M'enfin bref, tout se trouve dans la FAQ ;-)))

Alors au lieur de me mettre à mes crayons, mets-toi à faire quelques
recherches ;-))))
Tout cela dit avec le sourire ;-))

Si tu veux des références ou des liens, regarde ma signature !!!

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:22f801c3a92e$9fc937e0$
Il est vrai que le prog de dédé ne m'a pas permis de faire
grand choz, mais je vais essayer de voir avec ton prog et
gspr que cela va marcher, mais je me demande encore le nom
de la variable qui retourne le nombre de lignes non-vides.



-----Message d'origine-----
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_re
p


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_x
l


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


.

.





Avatar
Rahou
Enfin, c'est vincent qui a trouvé la réponse à la question.
Mais je tiens à vous remercier tous pour votre soutien.

Ciao.

-----Message d'origine-----
Bah ça tu nous l'avait bien caché ! Pas de ligne vide...
Pfff... vraiment trop facile !
Range("A1").CurrentRegion.Rows.Count suffit !!!
Que de grands et bô discours pour pas grand chose !
Ca te va ce coup-ci ?!!!


-----Message d'origine-----
Bonjour à tous,
Je pense que ce ne sera pas la peine de parcourir les
65536 lignes de Excel, il suffit uniquement de faire une
boucle LOOP ou WHILE dont la condition de sortie est la
rencontre de la première ligne vide.
Ce qui fait l'optimisation du prog n'est pas le pb pour
autant que l'on trouve l'algo qui permet de faire ce
traitement.


A vos crayons!!!
Et trouvez moi l'algo adéquat.


-----Message d'origine-----
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_
r




e
p
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
_




x
l
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


.

.


.


.







Avatar
Vincent.
J'ai trouvé UNE solution à la question et celle de Thierry
marche ausi impeccable (peut-être même mieux que la
mienne)...
Mais ce fut un plaisir que de réfléchir à ton pb !
A+

V.
-----Message d'origine-----
Enfin, c'est vincent qui a trouvé la réponse à la
question.

Mais je tiens à vous remercier tous pour votre soutien.

Ciao.

-----Message d'origine-----
Bah ça tu nous l'avait bien caché ! Pas de ligne vide...
Pfff... vraiment trop facile !
Range("A1").CurrentRegion.Rows.Count suffit !!!
Que de grands et bô discours pour pas grand chose !
Ca te va ce coup-ci ?!!!


-----Message d'origine-----
Bonjour à tous,
Je pense que ce ne sera pas la peine de parcourir les
65536 lignes de Excel, il suffit uniquement de faire
une



boucle LOOP ou WHILE dont la condition de sortie est la
rencontre de la première ligne vide.
Ce qui fait l'optimisation du prog n'est pas le pb pour
autant que l'on trouve l'algo qui permet de faire ce
traitement.


A vos crayons!!!
Et trouvez moi l'algo adéquat.


-----Message d'origine-----
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
_





r
e
p
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#accuei
l





_
x
l
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


.

.


.


.


.








Avatar
Michel Gaboly
Re,

Aucune de mes 2 solutions ne te convient ?

La première se limite à une seule colonne et te donne le nombre
de lignes non vides pour cette colonne avec une simple formule.

La seconde explore la seule zone utilisée de la feuille et t'indique
le nombre de lignes non vides (VBA)

Le message est de 14h53 (heure de Paris)



Il est vrai que le prog de dédé ne m'a pas permis de faire
grand choz, mais je vais essayer de voir avec ton prog et
gspr que cela va marcher, mais je me demande encore le nom
de la variable qui retourne le nombre de lignes non-vides.

-----Message d'origine-----
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_re
p


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_x
l


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


.

.





--
Cordialement,

Michel Gaboly
http://www.gaboly.com



Avatar
Clément Marcotte
Il est vrai que le prog de dédé ne m'a pas permis de faire
grand choz, mais je vais essayer de voir avec ton prog et
gspr que cela va marcher, mais je me demande encore le nom
de la variable qui retourne le nombre de lignes non-vides.



toncharabiatupeuxlenvoyeraudiable

http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm?&gssnb=1

Soignez votre orthographe, le langage de type "chat" ne s'applique
pas au groupe de discussion

Avatar
Clément Marcotte
A vos crayons!!!
Et trouvez moi l'algo adéquat.


Ici, ce n'est pas un service d'esclaves à la demande.

1 2