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

XL 2019 bouton commande accessible avec plusieurs condition

PETIT YANNICK

XLDnaute Occasionnel
Bonjour

Je souhaite que le commandbutton5 soit accessible quand TextBox1 jusqu'à textbox 9 renseigné et que textbox10 à 3 caractères renseignés
Je souhaite aussi avoir un label (label 26) qui clignote tant que textbox 10 n'a pas 3 caractères renseignés

Avez vous un idée pour coder ce cas?

Merci d'avance a tous
 

Pièces jointes

  • LISTE_PLAN_Z.xlsx
    9.9 KB · Affichages: 10
  • Products catalogue NRO.xlsm
    45 KB · Affichages: 13

Eric C

XLDnaute Barbatruc
Bonsoir le forum
Bonjour PETIT YANNICK

Essais ceci pour la vérification du remplissage de tes TextBoxs 1 à 10 :
VB:
Dim i As Byte
    For i = 1 To 10
        If Me.Controls("TextBox" & i) = "" Then
            Exit Sub
               End If
    Next i
A placer dans le code de ton CommandButton5
Cela est suffisant pour l'accès au CommanButton5
Sinon, c'est un peu l'anarchie dans le codage de ton UserForm - Revoie déjà tes TabIndex pour aller de contrôle en contrôle et soulage tes range et tes Unload (trop nombreux).
Bonne continuation
Bonne soirée à toutes & à tous
@+ Eric c
 
Dernière édition:

Eric C

XLDnaute Barbatruc
Re.
Chaque contrôle de ton UserForm possède une propriété "TabIndex". Cette propriété te permet de te déplacer de contrôle en contrôle via la touche "Tab" à condition de les indexer correctement. Pour exemple, lance ton appli et places toi sur le premier TextBox à renseigner (Description Fr (*)). Appuies sur "Tab" et tu vas constater que le déplacement entre les contrôles est plus qu'aléatoire. Essaies maintenant avec le fichier joint où j'ai repris tes TabIndex et tu devrais constater une différence. La progression arithmétique porte sur les contrôles qui servent à ton appli. 1er point. La suite demain.
@+ Eric c
 

Pièces jointes

  • Products catalogue NRO -TabIndex rangés.xlsm
    37 KB · Affichages: 9

Discussions similaires

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