Inserer la fonction NB dans une macro

Fermé

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 23 mars 2016 à 11:41
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 23 mars 2016 à 11:55

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:

Inserer la fonction NB dans une macro
Insérer une vidéo dans powerpoint - Guide
Insérer signature word - Guide
Fonction si et - Guide
Insérer liste déroulante excel - Guide
Macro word - Guide

1 réponse

Réponse 1 / 1

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
23 mars 2016 à 11:55

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"))

Discussions similaires

je veut créer des codes

Discussions similaires

Newsletters