Décaler, redimensionner une plage nommée pour un calcul

Bonjour à toutes et tous !

J'ai besoin de calculer le nombre de cellules non vides d'une colonne appartenant à une plage nommée (t_Test).

Je pensais utiliser Offset puis Resize de ma plage "t_Test" mais visiblement mon code est fautif puisque je me retrouve avec #VALEUR!

Je vous remercie par avance de vos bonnes idées !

Function NbreEc(Col As Integer)
    Dim Plage As Range
    Plage = Range("t_Test").Offset(1, Col).Resize(, 1)
    NbreEcarts = Application.CountA(Plage)
End Function

Bonjour,

Ta fonction s'appelle NbreEc et tu renvoies NbreEcarts.

Bonjour JFL, oyobrans,

Function NbreEc(Col As Integer)
    Dim Plage As Range
    Set Plage = Range("t_Test").Offset(1, Col).Resize(, 1)
    NbreEc = Application.CountA(Plage)
End Function

A+

Oyobrans et AlgoPlus....

Bonjour et merci !

Ta fonction s'appelle NbreEc et tu renvoies NbreEcarts.

Le général de Gaulle disait "la vieillesse est un naufrage". Cela commence à devenir d'actualité me concernant.....

Après correction j'ai un message d'erreur VBA : "Projet ou bibliothèque introuvable "

NbreEc=Application.WorksheetFunction.CountA(Plage)

?

NbreEc=Application.WorksheetFunction.CountA(Plage)

Miracle !

Mille mercis à vous deux !

Bonjour … d’une vielle branche qui a toujours de la suite dans les idées mais de plus en plus de fuites dans la mémoire

Application.Volatile ajoutée pour une mise à jour après modification d'une cellule de la plage avec -1 ( les titres sont inclus dans celle-ci et le numéro de colonne en I2)

 Function NbreEc(Col As Integer)
    Application.Volatile
    NbreEc = Application.CountA([T_Test].Columns([I2])) - 1
End Function

d’une vielle branche qui a toujours de la suite dans les idées mais de plus en plus de fuites dans la mémoire

La création d'un club va s'imposer à nous.....

Rechercher des sujets similaires à "decaler redimensionner plage nommee calcul"