| ||||||||
Petit astucien | 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 Next End Sub
merci les astuciens
| |||||||
Publicité | ||||||||
| ||||||||
Astucien ![]() | 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 | |||||||
Petit astucien | Tu as raison Titus68 ça marche maintenant | |||||||
Astucien ![]() | 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) | |||||||
|
Les bons plans du moment PC Astuces | Tous les Bons Plans | |||||||||||||||
|