Sur le site de Frédéric SIGONNEAU
j'ai récupérer cette fonction
'>>>Feuilles et classeurs
'ChoisirUneFeuille.bas
Comment la modifier de façon à éviter d'aller sur la feuille selectionnée
mais de marquer le nom de cette feuille dans une cellule.
Je pense qu'il faut modifier içi mais le macro et moi, ca fait deux.
' Affiche la boîte de dialogue
FeuilleDépart.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
Application.ScreenUpdating = False
For i = 1 To SheetCount
If PrintDlg.OptionButtons(i).Value = xlOn Then
Worksheets(PrintDlg.OptionButtons(i).Caption).Activate
'autre code selon besoin
End If
Next i
End If
Else
MsgBox "Toutes les feuilles sont vides."
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonjour,
Essaye cette modif :
' Affiche la boîte de dialogue FeuilleDépart.Activate Application.ScreenUpdating = True If SheetCount <> 0 Then If PrintDlg.Show Then Application.ScreenUpdating = False For i = 1 To SheetCount If PrintDlg.OptionButtons(i).Value = xlOn Then ' Worksheets(PrintDlg.OptionButtons(i).Caption).Activate 'autre code selon besoin Sheets("Feuil1").Range("A1").Value = _ PrintDlg.OptionButtons(i).Caption End If Next i End If Else MsgBox "Toutes les feuilles sont vides." End If
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
David T. a écrit:
Bonsoir
Sur le site de Frédéric SIGONNEAU j'ai récupérer cette fonction
'>>>Feuilles et classeurs 'ChoisirUneFeuille.bas
Comment la modifier de façon à éviter d'aller sur la feuille selectionnée mais de marquer le nom de cette feuille dans une cellule. Je pense qu'il faut modifier içi mais le macro et moi, ca fait deux.
' Affiche la boîte de dialogue FeuilleDépart.Activate Application.ScreenUpdating = True If SheetCount <> 0 Then If PrintDlg.Show Then Application.ScreenUpdating = False For i = 1 To SheetCount If PrintDlg.OptionButtons(i).Value = xlOn Then Worksheets(PrintDlg.OptionButtons(i).Caption).Activate 'autre code selon besoin End If Next i End If Else MsgBox "Toutes les feuilles sont vides." End If
Merci de votre aide
Bonjour,
Essaye cette modif :
' Affiche la boîte de dialogue
FeuilleDépart.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
Application.ScreenUpdating = False
For i = 1 To SheetCount
If PrintDlg.OptionButtons(i).Value = xlOn Then
' Worksheets(PrintDlg.OptionButtons(i).Caption).Activate
'autre code selon besoin
Sheets("Feuil1").Range("A1").Value = _
PrintDlg.OptionButtons(i).Caption
End If
Next i
End If
Else
MsgBox "Toutes les feuilles sont vides."
End If
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
David T. a écrit:
Bonsoir
Sur le site de Frédéric SIGONNEAU
j'ai récupérer cette fonction
'>>>Feuilles et classeurs
'ChoisirUneFeuille.bas
Comment la modifier de façon à éviter d'aller sur la feuille selectionnée
mais de marquer le nom de cette feuille dans une cellule.
Je pense qu'il faut modifier içi mais le macro et moi, ca fait deux.
' Affiche la boîte de dialogue
FeuilleDépart.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
Application.ScreenUpdating = False
For i = 1 To SheetCount
If PrintDlg.OptionButtons(i).Value = xlOn Then
Worksheets(PrintDlg.OptionButtons(i).Caption).Activate
'autre code selon besoin
End If
Next i
End If
Else
MsgBox "Toutes les feuilles sont vides."
End If
' Affiche la boîte de dialogue FeuilleDépart.Activate Application.ScreenUpdating = True If SheetCount <> 0 Then If PrintDlg.Show Then Application.ScreenUpdating = False For i = 1 To SheetCount If PrintDlg.OptionButtons(i).Value = xlOn Then ' Worksheets(PrintDlg.OptionButtons(i).Caption).Activate 'autre code selon besoin Sheets("Feuil1").Range("A1").Value = _ PrintDlg.OptionButtons(i).Caption End If Next i End If Else MsgBox "Toutes les feuilles sont vides." End If
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
David T. a écrit:
Bonsoir
Sur le site de Frédéric SIGONNEAU j'ai récupérer cette fonction
'>>>Feuilles et classeurs 'ChoisirUneFeuille.bas
Comment la modifier de façon à éviter d'aller sur la feuille selectionnée mais de marquer le nom de cette feuille dans une cellule. Je pense qu'il faut modifier içi mais le macro et moi, ca fait deux.
' Affiche la boîte de dialogue FeuilleDépart.Activate Application.ScreenUpdating = True If SheetCount <> 0 Then If PrintDlg.Show Then Application.ScreenUpdating = False For i = 1 To SheetCount If PrintDlg.OptionButtons(i).Value = xlOn Then Worksheets(PrintDlg.OptionButtons(i).Caption).Activate 'autre code selon besoin End If Next i End If Else MsgBox "Toutes les feuilles sont vides." End If
