Nombre de cellules non vides et dernière cellule renseignée

Salut,
Pour la recuperation de la derniere cellule d'une colonne tu peux utiliser
Range(Range("D1").End(xlDown).Address).Select
res = activecell.value

En ce qui concerne ton autre question je peut pas te répondre déolé.........
En espérant avoir pu t'aider au moins un peut. Amicalement

"Llew" <Llew@free.com> a écrit dans le message de news:
4106d5d1$0$20144$626a14ce@news.free.fr...

bonsoir,

y a-t-il une fonction simple en VBA équivalente à = NBVAL(E1:E250)
je voudrais éviter une boucle sur la colonne E

et dans le même style,
y a-t-il moyen d'obtenir automatiquement le numéro de la dernière ligne
renseignée d'une colonne (D1 à D145 toutes renseignées, récupérer 145)
toujours en VBA et en évitant une boucle

merci par avance
Llew

bonjour Llew,

y a-t-il une fonction simple en VBA équivalente à =
NBVAL(E1:E250)

je voudrais éviter une boucle sur la colonne E

sauf erreur de ma part :
WorksheetFunction.CountA(Range("B1:B50"))
equivaut a NBVAL

Pour compter les valeurs numeriques tu as :
WorksheetFunction.Count(Range("B1:B50"))

Pour compter les cellules suivant conditions :
WorksheetFunction.CountIf(Range("B1:B50"),">10")

J-Dan

Bonjour Llew,

DernLign = Range("A65536").End(xlUp).Row

isabelle

bonsoir,

y a-t-il une fonction simple en VBA équivalente à = NBVAL(E1:E250)
je voudrais éviter une boucle sur la colonne E

et dans le même style,
y a-t-il moyen d'obtenir automatiquement le numéro de la dernière ligne
renseignée d'une colonne (D1 à D145 toutes renseignées, récupérer 145)
toujours en VBA et en évitant une boucle

merci par avance
Llew

Bonjour Llew,

DernLign = Range("D65536").End(xlUp).Row

isabelle

bonsoir,

y a-t-il une fonction simple en VBA équivalente à = NBVAL(E1:E250)
je voudrais éviter une boucle sur la colonne E

et dans le même style,
y a-t-il moyen d'obtenir automatiquement le numéro de la dernière ligne
renseignée d'une colonne (D1 à D145 toutes renseignées, récupérer 145)
toujours en VBA et en évitant une boucle

merci par avance
Llew

Bonjour
avec l'enregistreur voici ce ca donne

Sub nb_val()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R1C5,R250C5)"
Range("A2").Select
End Sub

Cordialement
patrick


"Llew" <Llew@free.com> a écrit dans le message de
news:4106d5d1$0$20144$626a14ce@news.free.fr...

bonsoir,

y a-t-il une fonction simple en VBA équivalente à = NBVAL(E1:E250)
je voudrais éviter une boucle sur la colonne E

et dans le même style,
y a-t-il moyen d'obtenir automatiquement le numéro de la dernière ligne
renseignée d'une colonne (D1 à D145 toutes renseignées, récupérer 145)
toujours en VBA et en évitant une boucle

merci par avance
Llew

bonjour,

Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R1C5,R250C5)"

oui,
seulement je voudrais récupérer le nombre de cellules non vides dans une
variable pour l'exploiter, et non l'afficher dans une cellule

je ne m'en sors pas avec
a1 = Application.WorksheetFunction.CountA(R1C5, R250C5) (renvoie 2 au lieu
de 110)
et dans Application.WorksheetFunction.NbVal("E1:E250") NbVal n'est pas
reconnue

une idée pour me débloquer ?

merci,
Llew

bonjour,

merci Isabelle
c'est exactement ce qu'il me fallait, ça fonctionne parfaitement

Llew

bonjour,

et merci seb, ça marche

cordialement
Llew

bonjour Llew,

je ne m'en sors pas avec
a1 = Application.WorksheetFunction.CountA(R1C5, R250C5)
(renvoie 2 au lieu

de 110)
et dans Application.WorksheetFunction.NbVal("E1:E250")
NbVal n'est pas

reconnue

tu dois modifier la syntaxe et ne pas utiliser les
references RC.

MsgBox Application.WorksheetFunction.CountA(Range _
("E1:E247"))

ou avec une plage nommee plg :
MsgBox Application.WorksheetFunction.CountA([plg])

ou en utilisant des variables :
Rg1 = 1: Rg2 = 247: Col = 5
MsgBox Application.WorksheetFunction.CountA(Range(Cells _
(Rg1, Col), Cells(Rg2, Col)))

Ca devrait le faire ainsi

J-Dan

-----Message d'origine-----
bonjour,

Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R1C5,R250C5)"

oui,
seulement je voudrais récupérer le nombre de cellules
non vides dans une

variable pour l'exploiter, et non l'afficher dans une
cellule

je ne m'en sors pas avec
a1 = Application.WorksheetFunction.CountA(R1C5, R250C5)
(renvoie 2 au lieu

de 110)
et dans Application.WorksheetFunction.NbVal("E1:E250")
NbVal n'est pas

reconnue

une idée pour me débloquer ?

merci,
Llew


.

merci merci J-Dan

tout est OK maintenant

amicalement
Llew