Nombre de cellules non vides et dernière cellule renseignée
10 réponses
Llew
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
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
seb
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" a écrit dans le message de news: 4106d5d1$0$20144$
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
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
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" a écrit dans le message de news: 4106d5d1$0$20144$
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
J-Dan
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,
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")
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
isabelle
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("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
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
isabelle
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 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
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
pat
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" a écrit dans le message de news:4106d5d1$0$20144$
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
Sub nb_val() Range("A1").Select ActiveCell.FormulaR1C1 = "=COUNTA(R1C5,R250C5)" Range("A2").Select End Sub
Cordialement patrick
"Llew" a écrit dans le message de news:4106d5d1$0$20144$
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
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
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
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
Llew
bonjour,
merci Isabelle c'est exactement ce qu'il me fallait, ça fonctionne parfaitement
Llew
bonjour,
merci Isabelle
c'est exactement ce qu'il me fallait, ça fonctionne parfaitement