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

139,69 €

Chaise de bureau ergonomique Umi (accoudoirs,soutien lombaires, appui-tête réglable) à 139,69 €
Valable jusqu'au 28 Juin

Amazon fait une promotion sur la chaise de bureau ergonomique Umi qui passe à 139,69 € via une vente flash et un coupon à activer sur la page du produit au lieu de 199,99 €. La livraison est gratuite. Cette chaise vous permettra de travailler confortablement toute la journée. Avec appui-tête, accoudoirs et soutien lombaire réglables. En cas de fatigue au travail ou lorsque vous étudiez, vous pourrez aisément ajuster et verrouiller l'inclinaison du dossier sur ses trois angles de 102, 110 et 130°. Charge max 150kg.

> Voir l'offre

654,90 €

Carte graphique Zotac Gaming GeForce RTX 3070 Twin Edge LHR - 8 Go à 654,90 €
Valable jusqu'au 28 Juin

RueDuCommerce fait une belle promotion sur la carte graphique Zotac Gaming GeForce RTX 3070 Twin Edge LHR qui passe à 654,90 €. On la trouvait encore à 999 € il y a quelques mois.

> Voir l'offre

879,99 €

Ultraportable MSI Modern 15 (Core i7, 16 Go RAM, SSD 512 Go) à 879,99 €
Valable jusqu'au 28 Juin

Fnac fait une promotion sur l'ultraportable MSI Modern 15 A11MU-1005FR qui passe à 879,99 € au lieu de 999 €. Cet ordinateur possède une dalle 15.6 pouces Full HD IPS, est équipé d'un processeur Intel Core i7-1195G7, de 16 Go de RAM et d'un SSD NVME de 512 Go (un emplacement M.2 libre est également disponible). Il ne pèse que 1,6 kg et offre une autonomie d'une dizaine d'heures. Il est fourni avec Windows 11.

> Voir l'offre