Rendre invisible une textbox à l'ouverture du classeur

Résolu/Fermé

Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 - Modifié le 8 sept. 2017 à 13:43
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 - 8 sept. 2017 à 16:00

Bonjour à tous,

J'essais de rendre invisibles mes textbox à l'ouverture de mon classeur mais mon code ne fonctionne pas, je l'ai placé dans ThisWorkbook :

Private Sub Workbook_Open()

  Application.OnKey "{ESCAPE}", "" ' touche Echap inactive
  Application.DisplayFullScreen = True ' affichage plein écran
  ActiveWindow.DisplayWorkbookTabs = False ' onglets masqués
  ActiveWindow.DisplayHorizontalScrollBar = False 'barre de défilement masquée
  ActiveWindow.DisplayVerticalScrollBar = False 'barre de défilement masquée
  CacheBOutils ' masque les barres d'outils
  ActiveWindow.Zoom = 100
  ActiveSheet.ScrollArea = "A1:O32"
  
     
  With Me.TextBox1.Visible = False
     Me.TextBox2.Visible = False
     Me.TextBox3.Visible = False
     Me.TextBox4.Visible = False
     Me.TextBox5.Visible = False
  End With
  
  With Worksheets("KiKiFé").Me.ComboBox2
  .Select
  .Activate
  End With

End Sub

Sub CacheBOutils()
  Dim CmdB As CommandBar
  For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
  Next CmdB
End Sub

Ce n'est pas la bonne façon de l'écrire peut être?

A voir également:

Activewindow.displayworkbooktabs
Clé usb invisible - Guide
Rendre un fichier moins volumineux - Guide
Étiquette classeur a imprimer gratuit excel - Forum Excel
Rendre un dossier invisible - Guide
Rendre une cle usb bootable - Guide

1 réponse

Réponse 1 / 1

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
8 sept. 2017 à 16:00

Bonjour,

Apparemment c'est ton WITH qui est mal écrit, essaye ceci :

  With Me.
     TextBox1.Visible = False
     .TextBox2.Visible = False
     .TextBox3.Visible = False
     .TextBox4.Visible = False
     .TextBox5.Visible = False
  End With

Cdlmnt
Via

Discussions similaires

Caractère invisible ou vide pour pseudo invisible

comment faire le caractère invisible L allongé?

caractère invisible

Word, caractere invisible °

Adobe Reader X - documents inaccessibles

Discussions similaires

Newsletters