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 poster des messages. 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

89,99 €

Assistant vocal Amazon Echo Show 8 avec Alexa à 89,99 €
Valable jusqu'au 10 Août

Amazon fait une promotion sur l'assistant vocal Amazon Echo Show 8 qui passe à 89,99 € (au lieu de 129,99 €). L'appareil piloté par la voix et vos doigts fonctionne avec Alexa, l’intelligence artificielle développée par Amazon. Vous pourez avec elle écouter de la musique, interagir avec vos appareils domotiques, écouter les infos, des livres audio la radio, connaître la météo et d’accéder à des milliers d’autres possibilités grâce aux Skills : recettes de cuisine, petits jeux, etc. Grâce à son écran HD de 8 pouces, vous pourrez également regarder des séries, des films, des photos, afficher des recettes de cuisine, appeler vos amis en visio, contrôler vos caméras de sécurité, etc...

> Voir l'offre

24,99 €

Carte Mémoire microSDXC Transcend 300S 64 Go UHS-I U3 A1 à 10,45 €
Valable jusqu'au 10 Août

Amazon fait une promotion sur la carte mémoire microSDXC Transcend 300S 64 Go UHS-I U3 A1 qui passe à 10,45 €. Cette carte mémoire offre des vitesses jusqu'à 95 Mo/s et est parfaite pour les téléphones, caméras et appareils photo HD/4K.

> Voir l'offre

29,99 €

Souris gamer Logitech MX518 à 29,99 €
Valable jusqu'au 10 Août

Boulanger solde la nouvelle version Legendary de la souris Logitech MX518 qui passe à 29,99 € alors qu'on la trouve ailleurs à 59,99 €. Cette très bonne souris dédiée aux joueurs dispose d'un capteur optique très précis Hero 16000 DPI, 8 boutons programmables et une mémoire permettant de sauvegardera 5 profils d'utilisation différents.

> Voir l'offre