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

Neutraliser une touche pour l'enselmble des textbox

  • Initiateur de la discussion Initiateur de la discussion Goufra
  • Date de début Date de début

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 !

Goufra

XLDnaute Occasionnel
Bonjour à tous,


J'utilise ce code pour neutraliser 3 touches lors du servi du textbox

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 27 Or KeyCode = 46 Then
MsgBox "Cette touche provoque une erreur." & _
Chr(10) & "vous ne pouvez pa l'utiliser" 'Vous venez d'appuyer sur la touche ""Backspace"""
KeyCode = 0
End If
End Sub

Existe - t - il un moyen pour ne pas avoir à répéter 50 fois ce code dans un userform.
Je pense à une fonction qu'il faudrait mettre dans une routine, mais
je ne sais pas comment faire ni où placer la routine..

Je vous remercie par avance pour l'aide que vous pourrez m'apporter
bonne journée.
GOUFRA
 
Re : Neutraliser une touche pour l'enselmble des textbox

Merci Papou-net

Donc pour chaque each la dimension du tableau TBox() augmente de 1 et contient un nouveau textbox.


Je ne comprends pas la signification et le fonctionnement du code avec
Set TBox(Nb).Tboxes = ctl

Qui est une copie comme dit précédemment

Je loupe une marche mais laquelle ?
Je suis navré d'être aussi peu compréhensif

Merci encore
Cordialement
Goufra
 
Re : Neutraliser une touche pour l'enselmble des textbox

RE

Donc pour chaque each la dimension du tableau TBox() augmente de 1 et contient un nouveau textbox.
Oui, c'est bien ça.

Je ne comprends pas la signification et le fonctionnement du code avec
Set TBox(Nb).Tboxes = ctl
Affecte le TextBox ctl à la position nb du tableau TBox, lui-même rattaché à la collection TBoxes.

Je ne sais pas si les termes sont justes mais l'esprit est là.

A +

Cordialement.
 
- 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

Réponses
2
Affichages
960
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…