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 :
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,
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 Subla 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: