cacher une colonne

Question

bonjour,

j'ai un pgr  qui cr&#233;e des feuilles par rapport a un mod&#232;le, simplement pour imprimer le feuille il faut supprimer la colonne C, dc j'aimerais savoir comment faire pr ke qd la feuille se cr&#233;e , se cree un bouton, et qd on voudra imprimer la feuille on clique sur le bouton, la colonne C se cache et le bouton aussi de mani&#232;re a ne pas voir le bouton sur la feuille imprim&#233;e

merci de rep c urgent
salut

jpleroisse · Answer

Essaie cette m&#233;thode (le bouton est invisible &#224; l'impression)

Sub AjouterFeuille()
Sheets.Add
    Application.CommandBars("Forms").Visible = True
    ActiveSheet.Buttons.Add(361.5, 24.75, 59.25, 16.5).Select
    ActiveSheet.Buttons.Caption = "Cacher"
    Selection.OnAction = "CacherColonne"
End Sub

Sub CacherColonne()
If ActiveSheet.Buttons.Caption = "Cacher" Then
Columns("C:C").Select
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Buttons.Caption = "R&#233;tablir"
ElseIf ActiveSheet.Buttons.Caption = "R&#233;tablir" Then
Columns("C:C").Select
Selection.EntireColumn.Hidden = False
    ActiveSheet.Buttons.Caption = "Cacher"
End If


End Sub

jpleroisse

Cacher une colonne

1 réponse

Discussions similaires