Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 fermer TextBox en fermant Excel

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée 🙂

J'ai un souci de code qui beug et je n'arrive pas à trouver comment le modifier :
En feuille "Appels", pour faire des affichages de contenus de cellules, j'ouvre un TextBox1
Si oubli, je voudrais le fermer automatiquement en quittant Excel et j'ai fait ce code :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If TextBox1.Visible = True Then
    With TextBox1
        .Visible = False
    End With

    Sheets("Appels").Unprotect Password:=""
    With Sheets("Appels").Range("m1").Interior
        .ThemeColor = xlThemeColorDark1
    End With
    Sheets("Appels").Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
   
    ActiveWorkbook.Save
    ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub

la ligne qui bloque est : " If TextBox1.Visible = True Then"

Auriez-vous la solution ?
Si besoin, je ferais un petit fichier test.
Je vous remercie vivement,
Amicalement,
lionel,
 
Dernière édition:
Solution
re,

si la textbox est bien dans la feuille appels, cela devrait fonctionner comme cela.

Bien cordialement, @+
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Appels")
        If .TextBox1.Visible = True Then
            .TextBox1.Visible = False
            .Unprotect Password:=""
            .Range("m1").Interior.ThemeColor = xlThemeColorDark1
            .Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End With
    ActiveWorkbook.Save
End Sub
Trier par date Trier par votes
Bonjour Usine à gaz, le forum

il faut préciser l'emplacement de ta textbox pour la rattacher au parent, là, tu es dans une événementielle du workbook, pas dans la feuille concernée.

Bien cordialement, @+
 
Vote positif 0 Vote négatif
re,

si la textbox est bien dans la feuille appels, cela devrait fonctionner comme cela.

Bien cordialement, @+
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Appels")
        If .TextBox1.Visible = True Then
            .TextBox1.Visible = False
            .Unprotect Password:=""
            .Range("m1").Interior.ThemeColor = xlThemeColorDark1
            .Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End With
    ActiveWorkbook.Save
End Sub
 
Vote positif 0 Vote négatif
Solution
Bonjour Yeahou,

Merci pour ce code de bon matin 🙂
Grâce à toi, j'ai modifié comme suit :
VB: 
With Sheets("Appels")
        If .TextBox1.Visible = True Then
        .TextBox1.Visible = False
        .Unprotect Password:=""
            With [m1].Interior
                .ThemeColor = xlThemeColorDark1
            End With
        .Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End With
Bonne journée,
lionel 🙂
 
Vote positif 0 Vote négatif
Re_Yeahou,
Voilà une bonne remarque 🙂

Comme je te l'ai écrit, c'est grâce à ton code que j'ai pu modifier mais le code qui fonctionne est le code modifié.

Comment faire dans ce cas ?

Veux tu modifier ton code proposé et je le mettrait en solution ?,
lionel 🙂
 
Vote positif 0 Vote négatif
re,

je l'ai déjà modifié car j'ai vu l'erreur de suite pour le rattachement de Themecolor, tu n'as pas rafraichi ?
Il ne fonctionne pas comme cela ?

Bien cordialement, @+
 
Vote positif 0 Vote négatif
Re,
J'ai ton code en solution 🙂
Mais le code qui fonctionne est :
VB: 
With Sheets("Appels")
Sheets("Appels")
        If .TextBox1.Visible = True Then
        .TextBox1.Visible = False
        .Unprotect Password:=""
            With [m1].Interior
                .ThemeColor = xlThemeColorDark1
            End With
        .Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
        End If
    End
🙂
 
Vote positif 0 Vote négatif
Bonjour,


1- À quoi sert le Sheets("Appels") tout seul ?

2- Le monsieur t'a dit de mettre un point devant [M1]. 😉

3- Pourquoi mettre un deuxième With ?

Et tant que j'y suis, j'ajouterais que ton indentation n'est pas totalement irréprochable... 😁
 
Vote positif 0 Vote négatif
Bonjour Lionel, Yeahou, Marcel32,

Si l'on aime la simplicité :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Appels")
        .Protect UserInterfaceOnly:=True
        .TextBox1.Visible = False
        .Range("m1").Interior.Color = xlColorDark1
    End With
    Save
End Sub
A+
 
Vote positif 0 Vote négatif
Bonjour Gérard,

Merci d'avoir répondu à ce fil 🙂
Bizarrement "Usine à gaz" aime la simplicité lol
Et c'est nickel comme toujours.
Merci Gérard 🙂
lionel,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
577
NONO14
N
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
665
AtTheOne
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
707
Mody200
M
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
642
Usine à gaz
  • Résolu(e)
XL 2021 touches Ctrl+R pour revenir
Réponses
4
Affichages
539
TooFatBoy
  • Résolu(e)
XL 2019 Ne pas utiliser les MFC
Réponses
5
Affichages
589
Usine à gaz
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
506
vgendron
  • Résolu(e)
XL 2013 Ecriture de code condensé
Réponses
9
Affichages
635
ZAKAO
  • Question Question
XL 2019 Lien Hypertexte et Verrouillage Cellule
Réponses
9
Affichages
1 K
fanch55
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
577
un internaute
U
  • Question Question
Microsoft 365 simuler clic sur un bouton macro
Réponses
12
Affichages
1 K
Usine à gaz
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
677
Cheyenne_2021
C
R
  • Résolu(e)
XL 2016 Un petit coup de main pour un code VBA
Réponses
11
Affichages
886
ReneDav14000
R
B
  • Question Question
Microsoft 365 formulaire VBA problème
Réponses
3
Affichages
896
herve62
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
  • Question Question
Microsoft 365 Explorateur d'objets vba ouverture intempestive (pour moi)
2 3 4
Réponses
45
Affichages
4 K
TooFatBoy
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
616
Oneida
  • Résolu(e)
Microsoft 365 Revenir à la feuille "Appels" si TexTBox1 visible = true
Réponses
11
Affichages
825
Usine à gaz
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…