Bonjour à tous,
J'utilise dans un fichier des zones de texte pour commander des macros, le choix des zones de texte par rapport aux boutons de commande n'est qu'un problème de présentation (bouton de commande que je n'arrive pas à placer où je veux)
Ma question est la suivante, est ce que je peux à la fin de mon code correspondant à ma zone de texte désactiver cette zone de texte (la garder visible mais qu'elle n'est plus d'incidence sur le fchier)
J'ai bien essayé avec "sheets("feuil1").textbox68.enabled = false" mais ça ne marche pas.
Ci dessous un de codes à modifier :
Public Sub D1_D2()
'Suppression de la protection
Sheets("Feuil1").Unprotect Password:="mdp"
'Validation du bon remplissage de D1
If Range("CD24") <> 5 Then
UserForm2.Show
Exit Sub
End If
'Affichage de l'étape D2
Rows("25:40").Select
Selection.EntireRow.Hidden = False
==> 'Désactivation textbox D1_D2
==> sheets("feuil1").textbox69.enabled = false
'Remise en place de la protection
Sheets("Feuil1").Protect UserInterfaceOnly:=True, Password:="mdp", Scenarios:=True
End Sub
Merci de votre aide.
Jack
J'utilise dans un fichier des zones de texte pour commander des macros, le choix des zones de texte par rapport aux boutons de commande n'est qu'un problème de présentation (bouton de commande que je n'arrive pas à placer où je veux)
Ma question est la suivante, est ce que je peux à la fin de mon code correspondant à ma zone de texte désactiver cette zone de texte (la garder visible mais qu'elle n'est plus d'incidence sur le fchier)
J'ai bien essayé avec "sheets("feuil1").textbox68.enabled = false" mais ça ne marche pas.
Ci dessous un de codes à modifier :
Public Sub D1_D2()
'Suppression de la protection
Sheets("Feuil1").Unprotect Password:="mdp"
'Validation du bon remplissage de D1
If Range("CD24") <> 5 Then
UserForm2.Show
Exit Sub
End If
'Affichage de l'étape D2
Rows("25:40").Select
Selection.EntireRow.Hidden = False
==> 'Désactivation textbox D1_D2
==> sheets("feuil1").textbox69.enabled = false
'Remise en place de la protection
Sheets("Feuil1").Protect UserInterfaceOnly:=True, Password:="mdp", Scenarios:=True
End Sub
Merci de votre aide.
Jack