-----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
.
-----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
!
=CAR(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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:0e8d01c3a8ff$878038c0$a101280a@phx.gbl...
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
.
-----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
.
-----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
.
-----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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:0e8d01c3a8ff$878038c0$a101280a@phx.gbl...
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
.
-----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/
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: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/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1Incré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 denews: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/
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." <vincent.N0SP@MfallasATfr.pwc.com> a écrit dans le message de
news:036001c3a907$c8553b40$a001280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:0e8d01c3a8ff$878038c0$a101280a@phx.gbl...
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/
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: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/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1Incré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 denews: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
.
-----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
.
-----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
!
=CAR(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" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:0e8d01c3a8ff$878038c0$a101280a@phx.gbl...
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
.
-----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
.
-----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 !!!
.
-----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
!
=CAR(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." <vincent.N0SP@MfallasATfr.pwc.com> a écrit
dans le message de
news:0cb201c3a913$4d47a6c0$a301280a@phx.gbl...
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 !!!
.
-----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 !!!
.
-----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 !!!
.
-----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." <vincent.N0SP@MfallasATfr.pwc.com> a écrit
dans le message de
news:0cb201c3a913$4d47a6c0$a301280a@phx.gbl...
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 !!!
.
-----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 !!!
.
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 past'offenser ....
m'enfin bon, je pense que ce qu'il y a de mieux a faire,
c'est d'attendre laréponse de Rahou et de voir ce qu'il va adopter ;-))
Je pense que ma solution est tout aussi valable que la
tienne mais pourl'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#e1Incré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 denews: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." <vincent.N0SP@MfallasATfr.pwc.com> a écrit
dans le message de
news:0cb201c3a913$4d47a6c0$a301280a@phx.gbl...
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 past'offenser ....
m'enfin bon, je pense que ce qu'il y a de mieux a faire,
c'est d'attendre laréponse de Rahou et de voir ce qu'il va adopter ;-))
Je pense que ma solution est tout aussi valable que la
tienne mais pourl'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#e1Incré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 denews: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 !!!
.