une erreur dans ma macro

une erreur dans ma macro Sujet résolu

Ajouter un message à la discussion

noe2008

Posté le 24/03/2016 @ 15:54

salut les amis

j'ai créé une macro mais le code s’arrête dans la valeur par défaut de l'inputbox

cette valeur par defaut est une formule

voila la macro :

Sub Imprimer1()

Dim i As Integer, myValue As Variant

myValue = InputBox("nbre de candidat ", "les candidats", "WorksheetFunction.Count(Sheets("BD").Range("D5:D60"))")

For i = 1 To myValue

Range("Z7").Value = i

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _

:=True, IgnorePrintAreas:=False

End Sub

merci les astuciens

Titus68

Posté le 24/03/2016 à 16:30

Bonjour,

Y'a pas les guillemets en trop : "WorksheetFunction.Count(Sheets("BD").Range("D5:D60"))")

Essayer avec WorksheetFunction.Count(Sheets("BD").Range("D5:D60")))

Modifié par Titus68 le 24/03/2016 16:31

noe2008

Posté le 24/03/2016 à 17:04

Tu as raison Titus68 ça marche maintenant

Titus68

Posté le 25/03/2016 à 11:07

Merci pour le retour.

Juste pour te dire qu'en mettant les " "WorksheetFunction.Count(Sheets("BD").Range("D5:D60"))" était considéré comme une simple chaine de caractères (comme "les candidats" par exemple)

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

259 €

PC Ankermann (Intel Pentium Dual Core, 8Go RAM, SSD 480Go, Win 10 + Office 2019) à 259 € livré
Valable jusqu'au 01 Mars

Amazon fait une promotion sur l'ordinateur de bureau Ankermann Silent PC Work à 259 € livré. Le PC est équipé d'un processeur Intel Pentium dual core à 2.7 GHz, de 8 Go de RAM, d'un SSD de 480 Go, d'un lecteur DVD, d'un lecteur de carte mémoires et tourne sous Windows 10 Pro 64 bits. Microsoft Office 2019 Pro en français est également fourni.

Ajoutez un écran (comme cet écran 24 pouces AOC 24B2XHM2 (FullHD, sans contour) à 89,99 € avec le code 10EUROS) et un pack clavier souris (comme ce pack filaire Logitech MK120 à 17,99 € ou ce pack sans fil Logitech MK270 à 27,99 €) et vous avez un PC complet à l'aise en bureautique et Internet. Garantie 2 ans.

> Voir l'offre

45,99 €

Boîtier PC ATX Fractal Focus G à 45,99 €
Valable jusqu'au 01 Mars

Amazon propose actuellement le très bon boîter moyen tour Fractal Design Focus G à 45,99 € livré gratuitement alors qu'on le trouve ailleurs à plus de 69 €. Le boitier Fractal Design Focus G est une plateforme ultra-polyvalente douée de fonctions ultra pratiques (format ATX, filtres, USB 3.0, 2 ventilateurs LED inclus, emplacements 5,25 pouces pour lecteur DVD/Blu-Ray, montage facile).

> Voir l'offre

109,90 €

Alimentation PC modulaire Gigabyte P850GM (550W, 80+Gold) à 109,90 €
Valable jusqu'au 01 Mars

RueDuCommerce fait une promotion sur l'alimentation PC modulaire Gigabyte P850GM (850W, 80+Gold) qui passe à 109,90 € au lieu de 129,90 € ailleurs. Installez uniquement les câbles dont vous avez besoin pour réduire l’encombrement, augmenter le débit d’air et améliorer les performances thermiques du châssis. Elle bénéficie d’un ventilateur à roulement hydraulique intelligent.

> Voir l'offre