sheinks
Nouveau membre
bonjour
j'ai une macro dans excel qui m'imprime des formulaires
elle fonctionne bien mais je voudrai lui ajouter une comande pour q'elle
test une colonne d'une feuille d'une autre feuille est au lieu d'imprimer le formulaire
actif une seule fois comme elle le fait deja ,
elle imprimerais ce meme formulaire autant de fois que la valeure le la cellule testee
exemple si a la cellule contien la valeure 3, elle imprimerai la feuille active 3 fois.
merci d'avance pour votre aide
------------------------------------------------------------------------
Public Const APPNAME As String = "Shoe Riser"
Option Explicit
Sub PrintForms()
Dim StartIndex As Integer
Dim EndIndex As Integer
Dim Msg As String
Dim i As Integer
Dim n As Integer
Sheets("Form").Activate
StartIndex = Range("StartIndex")
EndIndex = Range("EndIndex")
If StartIndex > EndIndex Then
Msg = "ERROR" & vbCrLf & "The starting row must be less than the ending row!"
MsgBox Msg, vbCritical, APPNAME
End If
For i = StartIndex To EndIndex
Range("RowIndex") = i
ActiveSheet.PrintOut
Next i
End Sub
Sub EditData()
Worksheets("Data").Activate
Range("A1").Select
End Sub
j'ai une macro dans excel qui m'imprime des formulaires
elle fonctionne bien mais je voudrai lui ajouter une comande pour q'elle
test une colonne d'une feuille d'une autre feuille est au lieu d'imprimer le formulaire
actif une seule fois comme elle le fait deja ,
elle imprimerais ce meme formulaire autant de fois que la valeure le la cellule testee
exemple si a la cellule contien la valeure 3, elle imprimerai la feuille active 3 fois.
merci d'avance pour votre aide
------------------------------------------------------------------------
Public Const APPNAME As String = "Shoe Riser"
Option Explicit
Sub PrintForms()
Dim StartIndex As Integer
Dim EndIndex As Integer
Dim Msg As String
Dim i As Integer
Dim n As Integer
Sheets("Form").Activate
StartIndex = Range("StartIndex")
EndIndex = Range("EndIndex")
If StartIndex > EndIndex Then
Msg = "ERROR" & vbCrLf & "The starting row must be less than the ending row!"
MsgBox Msg, vbCritical, APPNAME
End If
For i = StartIndex To EndIndex
Range("RowIndex") = i
ActiveSheet.PrintOut
Next i
End Sub
Sub EditData()
Worksheets("Data").Activate
Range("A1").Select
End Sub