Inserer la fonction NB dans une macro

noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je viens de créer une macro qui s’exécute entre changeant le paramètre i entre 1 et un nombre qui devrait être égal au résultat de la fonction "NB" c ad jusqu'a : nb(BD!D5:D60) , mais le code s’arrête dans la 3 ème ligne de la macro :


Sub Imprimer()

Dim i As Integer
For i = 1 To nb(BD!D5:D60)
Range("Z7").Value = i
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Next
End Sub


merci d'avance
A voir également:

1 réponse

Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
Bonjour,

essayez de passer par worksheetfunction pour utiliser des fonctions dans du vba :
Remplacez :

nb(BD!D5:D60)

par :

WorksheetFunction.Count(sheets("BD").Range("D5:D60"))
0