macro impression

[mathieu]

bonjour tout le monde

voilà, j'ai fait ma première formule d'une macro faite à la main , mais, quand ,je souhaite dans la boite de dialogue "annuler " ou faire la fermeture avec la croix ,cela me met "Erreur d'execution "13" incompatibilité du type . comment éviter celà ,quand je click sur annuler et la fermeture de la boite de dialogue .

Merçi

Sub imprimertableau()
' Remise à zero du numéro d'exemplaire
Range("B1").Value = 0

nbcopies = InputBox("combien d'exemplaires veux tu ? Mathieu", _
"IMPRESSION NUMEROTEES", 0)

For i = 1 To nbcopies
' Incrémentation du numéro
Range("B1").Value = Range("B1").Value + 1

' Sélection du tableau et impression
Range("A2:I100").Select
Selection.PrintOut Copies:=1, Collate:=True

Next
' imprimertableau Macro
' Macro enregistrée le 22/08/2003 par m
'

'
End Sub

 

[Syl]

Bonjour,

Je pense avoir trouvé une solution à ton problème.

Chez moi ça fonctionne



Sub imprimertableau()
' Remise à zero du numéro d'exemplaire
Range("B1").Value = 0

nbcopies = InputBox("combien d'exemplaires veux tu ? Mathieu", _
"IMPRESSION NUMEROTEES", 0)
If nbcopies = ("") Then GoTo Suite

For i = 1 To nbcopies
' Incrémentation du numéro
Range("B1").Value = Range("B1").Value + 1

' Sélection du tableau et impression
Range("A2:I100").Select
Selection.PrintOut Copies:=1, Collate:=True

Next
' imprimertableau Macro
' Macro enregistrée le 22/08/2003 par m
'
Suite:
'
End Sub

 

[Syl]

Re bonjour, le fil et mathieu

Je pense qu'on peut le simplifier en le modifiant ainsi tout en le rendant plus rapide

Bonne journée à toi et bon W.E.

Syl

Sub imprimertableau()
' Remise à zero du numéro d'exemplaire
Range("B1").Value = 0

Nbcopies = InputBox("combien d'exemplaires veux tu ? Mathieu", _
"IMPRESSION NUMEROTEES", 0)
If Nbcopies = ("") Then GoTo Suite


' Sélection du tableau et impression
Range("A2:I100").Select
Selection.PrintOut Copies:=Nbcopies, Collate:=True


' imprimertableau Macro
' Macro enregistrée le 22/08/2003 par m
'
Suite:
'
End Sub

 

[mathieu]

merçi beaucoup de votre gentillesse ,c'est sympa .

je gardes pour ne pas faire de jaloux ,vos deux formules .
je vais imprimer le fichier ,et comme celà ,je peux avoir d'autres idées et en faire profiter d'autres internautes ,si ,vous n'etes pas présent .

encore ,merçi . d'un débutant ;-))

 

[mathieu]

ouah , j'ai essayer la macro de Syl , extra rapide pas de problème .

merçi