equivalent de NB en VBA

3 réponses

andre

10/04/2006 à 22:53

:-(
bonsoir
je voudrais inserer le resultat d'une formule
du genre =NB(B2:I32) dans un pied de page (partie droite)
et je ne connais pas l'equivalent de NB en VBA
le code serait
.LeftFooter = Application.!!!!!(Range("Feuil1!B2:I32"))
merci de vos reponses
:-Z

3 réponses

Jacky

10/04/2006 à 23:07

Bonsoir

Application.Count

Salutations
JJ

"andre" a écrit dans le message de news:

:-(
bonsoir
je voudrais inserer le resultat d'une formule
du genre =NB(B2:I32) dans un pied de page (partie droite)
et je ne connais pas l'equivalent de NB en VBA
le code serait
.LeftFooter = Application.!!!!!(Range("Feuil1!B2:I32"))
merci de vos reponses
:-Z

garnote

10/04/2006 à 23:08

Salut André,

Je crois que ça devrait aller avec :
Application.WorksheetFunction.Count(Range("Feuil1!B2:I32"))
Je n'ai pas vérifié.

Serge

"andre" a écrit dans le message de news:

:-(
bonsoir
je voudrais inserer le resultat d'une formule
du genre =NB(B2:I32) dans un pied de page (partie droite)
et je ne connais pas l'equivalent de NB en VBA
le code serait
.LeftFooter = Application.!!!!!(Range("Feuil1!B2:I32"))
merci de vos reponses
:-Z

lSteph

10/04/2006 à 23:12

Bonjour,

Sub toto()
ActiveSheet.PageSetup.LeftFooter = _
WorksheetFunction.Count(Range("Feuil1!B2:I32"))

End Sub

'si aussi compter cellules texte employer CountA

'lSteph
"andre" a écrit dans le message de news:

:-(
bonsoir
je voudrais inserer le resultat d'une formule
du genre =NB(B2:I32) dans un pied de page (partie droite)
et je ne connais pas l'equivalent de NB en VBA
le code serait
.LeftFooter = Application.!!!!!(Range("Feuil1!B2:I32"))
merci de vos reponses
:-Z

equivalent de NB en VBA

3 réponses

Veuillez sélectionner un problème