J
Jean Marc
Guest
Bonsoir le forum,
je pense que certains vont se reconnaitre dans le code suivant
merci encore a eux
Pour certain ce code va paraitre un peu 'bidouille' j'ai adapté tant bien que mal avec ce que j'avais
si y'a moyen de simplifié ne pas hésiter !!
mé là je séche complétement
dans la partie qui suit les **** je souhaiterais avoir un message du genre msgbox ('cette feuille n'existe pas ! ') si la feuille n'est pas trouvée par For each
j'ai essayé de maintes façon mé sans résultat
je voue remercie par avance
JM
Sub Pagegarde()
Sheets('Pagegarde').Select
Range('h1').ClearContents
Dim saison As String
Dim WS As Object
Dim edition As String
Dim PlageBaseD1 As Range
Dim PlageBaseF1 As Range
saison = InputBox('Quelle saison voulez vous éditer ?', 'Edition page de garde + Impression')
If saison = '' Then Call Menu
************
For Each WS In Worksheets
If WS.Name = saison Then
Range('H1').Value = saison
edition = MsgBox('Lancer l'impression de la saison ?', vbYesNo + vbQuestion, 'IMPRESSION')
If edition = 7 Then Call Menu
Exit Sub
With Sheets(WS.Name)
Set PlageBaseD1 = .Range('C7:C' & .Range('C65536').End(xlUp).Row)
Set PlageBaseF1 = .Range('Y7:Y' & .Range('Y65536').End(xlUp).Row)
End With
With Sheets('Synt')
.Range('C13') = Application.WorksheetFunction.Sum(PlageBaseD1)
.Range('I13') = Application.WorksheetFunction.Sum(PlageBaseF1)
End With
Sheets('Synt').PrintOut
'Sheets(WS.Name).PrintOut
'Sheets('Pagegarde').PrintOut
Sheets('Menu').Select
Range('A1').Select
Exit Sub
End If
Next WS
End Sub
je pense que certains vont se reconnaitre dans le code suivant
merci encore a eux
Pour certain ce code va paraitre un peu 'bidouille' j'ai adapté tant bien que mal avec ce que j'avais
si y'a moyen de simplifié ne pas hésiter !!
mé là je séche complétement
dans la partie qui suit les **** je souhaiterais avoir un message du genre msgbox ('cette feuille n'existe pas ! ') si la feuille n'est pas trouvée par For each
j'ai essayé de maintes façon mé sans résultat
je voue remercie par avance
JM
Sub Pagegarde()
Sheets('Pagegarde').Select
Range('h1').ClearContents
Dim saison As String
Dim WS As Object
Dim edition As String
Dim PlageBaseD1 As Range
Dim PlageBaseF1 As Range
saison = InputBox('Quelle saison voulez vous éditer ?', 'Edition page de garde + Impression')
If saison = '' Then Call Menu
************
For Each WS In Worksheets
If WS.Name = saison Then
Range('H1').Value = saison
edition = MsgBox('Lancer l'impression de la saison ?', vbYesNo + vbQuestion, 'IMPRESSION')
If edition = 7 Then Call Menu
Exit Sub
With Sheets(WS.Name)
Set PlageBaseD1 = .Range('C7:C' & .Range('C65536').End(xlUp).Row)
Set PlageBaseF1 = .Range('Y7:Y' & .Range('Y65536').End(xlUp).Row)
End With
With Sheets('Synt')
.Range('C13') = Application.WorksheetFunction.Sum(PlageBaseD1)
.Range('I13') = Application.WorksheetFunction.Sum(PlageBaseF1)
End With
Sheets('Synt').PrintOut
'Sheets(WS.Name).PrintOut
'Sheets('Pagegarde').PrintOut
Sheets('Menu').Select
Range('A1').Select
Exit Sub
End If
Next WS
End Sub