Bonjour la communauté,
Je souhaite créer un nombre de feuille (des copies de ma feuille "Chiffrage liens") en fonction d'une variable entrée par l'utilisateur.
Pour l'instant j'ai ça :
Sub Photocopieuse(Sh As Worksheet, N As Integer)
'
' Photocopieuse Macro
'
Dim I As Integer
For I = 1 To N
Worksheets("Chiffrage liens").Copy After:=Sheets(Sheets.Count)
Next
End Sub
Sub PhotocopieSaisie()
'
' PhotocopieSaisie Macro
'
Dim reponse As String
Do
reponse = InputBox("Nombre de copies", "Multicopie")
If reponse = "" Then Exit Sub
Loop While Not IsNumeric(reponse)
Photocopieuse Worksheets("Chiffrage liens"), CInt(N)
'
End Sub
La commande de saisie du nombre de page fonctionne par contre la copie ne se fait pas.. Si quelqu'un à la solution il me sera d'un grand secours.
Bien cordialement,
RémiP
Je souhaite créer un nombre de feuille (des copies de ma feuille "Chiffrage liens") en fonction d'une variable entrée par l'utilisateur.
Pour l'instant j'ai ça :
Sub Photocopieuse(Sh As Worksheet, N As Integer)
'
' Photocopieuse Macro
'
Dim I As Integer
For I = 1 To N
Worksheets("Chiffrage liens").Copy After:=Sheets(Sheets.Count)
Next
End Sub
Sub PhotocopieSaisie()
'
' PhotocopieSaisie Macro
'
Dim reponse As String
Do
reponse = InputBox("Nombre de copies", "Multicopie")
If reponse = "" Then Exit Sub
Loop While Not IsNumeric(reponse)
Photocopieuse Worksheets("Chiffrage liens"), CInt(N)
'
End Sub
La commande de saisie du nombre de page fonctionne par contre la copie ne se fait pas.. Si quelqu'un à la solution il me sera d'un grand secours.
Bien cordialement,
RémiP