Impression onglet a modifier

[laplayast]

Bonsoir,
Je viens de recupérer un fichier,pour gérer l'impression des onglets d'un classeur sur le forum.Mais je souhaiterai rendre inactif le bouton "supprimer les sélections"
Une solution,de votre part serait la bienvenue.🙂
Merci,à vous@+laplayast.

 

[jeanpierre]

Re : Impression onglet a modifier

Bonjour laplayast,

Sous VBE (Alt F8), Affichage/Explorateur de Projet.

Tu te positionnes sur ton classeur et tu ouvres l'USF (le petit plus), et là, sur l'USF, clic droit / Code et tu commentes ce code avec une apostrophe devant chaque ligne.

Private Sub CmdSupprimer_Click()
Dim Msg, Style, Title, Response
Unload Me 'FrmImprime
For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
With ActiveWorkbook.Sheets(LbFeuilles.List(I))
'Faites quelque chose
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = "Impression de Feuilles de calcul "
Msg = " Supprimez Feuille " & (LbFeuilles.List(I)) & " ? " & " "
Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then GoTo next0
If Worksheets(LbFeuilles.List(I)).Visible = False Then
MsgBox " Feuille Cachée ", vbInformation, "Impression de Feuilles de calcul"
Worksheets(LbFeuilles.List(I)).Visible = True
Application.DisplayAlerts = False
Worksheets(LbFeuilles.List(I)).Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Else
Application.DisplayAlerts = False
Worksheets(LbFeuilles.List(I)).Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
next0:
End With
'La fin fait quelque chose
End If
Next
Application.ScreenUpdating = True
End Sub

Soit aussi le supprimer purement et simplement. Tu peux, également, supprimer le bouton en te positionnant dessus.

Donc plusieurs solutions.

Bonne soirée.

Jean-Pierre

 

[laplayast]

Re : Impression onglet a modifier

Bonsoir,
La modification,comme tu me l'indiques en supprimant le bouton;n'est pas prise en compte.Peux-tu me remouliner le code, en supprimant"supprimer la selection"cela est trop risqué;erreur possible à l'utilisation.
merci de votre attention.
@+laplayast.

 

[jeanpierre]

Re : Impression onglet a modifier

Re,

Ton fichier.

En fait j'ai supprimé le code sous "Supprimer la selection", car comme son nom ne l'indique pas, il supprimait les feuilles et non les coches de la selection.

J'ai donc simplement rétabli au sens du nom du bouton.

Bonne soirée.

Jean-Pierre

 

[laplayast]

Re : Impression onglet a modifier

Bonsoir,
Merci,"JP" de ton aide;cela va nickel chrome!

laplayast@+