Easy-Micro

ESPACEMEMBRE Formulaire
TextBox
Le contrôle zone de texte

VBA Sélectionner du texte

• Pour sélectionner du texte dans une textbox
Txtbox.SelStart= premier_caractère
Txtbox.SeLength=longueur_de_la_sélection

• Exemple sur un champ texte nommé txt_annee :
txt_annee.SetFocus
txt_annee.SelStart = 0
txt_annee.SelLength = Len(txt_annee.Text)

Remarque :
Mettre la propriété HideSelection sur True pour voir la sélection lorsque la textbox n'est pas en focus.

VBA Donner le focus

• Donner le focus sur un champ texte
txt_nom.SetFocus

VBA Supprimer le texte

• Vider un champ de texte
txt_nom.Value = ""

VBA Valeur par défaut

txt_nom.Text = "Easy-Micro"

VBA Convertir une zone de texte en nombre

• Pour que le chiffre saisie dans une zone de texte de formulaire ne soit pas interprété comme du texte par Excel, on utilise la fonction CInt (Convert INTeger)

Voir toute les fonctions de conversion VBA

int_numcommande = CInt(txt_numero_de_commande)

Sheets(1).Range("A" & int_numligne).Value = CInt(frm_nouvelle_commande.txt_numero_de_commande)

VBA Incrémenter une zone de texte

• A saisir dans une procédure événementielle de type UserForm_Activate
Private Sub UserForm_Activate()
' Incrémentation automatique d'un champ de formulaire.
' Ici, c'est le numéro de commande qui est incrémenté

Static int_numcommande As Integer ' Variable Static

txt_numero_de_commande.Value = int_numcommande
int_numcommande = CInt(txt_numero_de_commande) 'CInt = Convert Integer
int_numcommande = int_numcommande + 1
txt_numero_de_commande.Value = int_numcommande

End Sub

Est utilisé ci-dessus, une Variable Static pour que la variable ne soit pas réinitialisée à chaque appel de procédure. Autre technique : on la déclare en Public en dehors de la procédure

< Page précédente FORMULAIRE Page suivante >