× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Ajouter automatiquement un mot dans un textBox
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
delta70
  Posté le 19/05/2020 @ 17:50 
Aller en bas de la page 
Petit astucien

Bonjour le forum,

J’ai créé un userform qui contient des textbox dont un pour insérer un nombre (2 chiffres de 01 à 40) indiquant l’ancienneté de travaille.

Je voudrais que lorsque l'utilisateur écrit les 2 chiffres, un mot (an ou ans) s'insère automatiquement pendant l'écriture

J’utilise le code suivant qui marche bien, mais (condition pour chaque nombre, c’est douloureux).

Je n’arrive pas à le simplifier par exemple une boucle…

Private Sub TextBox13_Change()

If TextBox13.Value = 0 Then

TextBox13 = TextBox13 & ""

ElseIf TextBox13.Value = 1 Then

TextBox13 = TextBox13 & " an"

ElseIf TextBox13.Value = 2 Then

TextBox13 = TextBox13 & " ans"

ElseIf If TextBox13.Value = 3 Then

TextBox13 = TextBox13 & " ans"

Else

If TextBox13.Value = 40 Then

TextBox13 = TextBox13 & " ans"

End If

End If

End Sub

Je vous remercié d'avance



Modifié par delta70 le 19/05/2020 17:53
Publicité
m12
 Posté le 20/05/2020 à 07:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Teste comme ceci

Private Sub TextBox13_Change()

If TextBox13.Value = 0 Then

TextBox13.Value = TextBox13.Value

ElseIf TextBox13.Value = 1 Then

TextBox13.Value = Format(TextBox13.Value, " 00 an")

Else

TextBox13.Value = Format(TextBox13.Value, " 00 ans")

End If

End Sub

delta70
 Posté le 20/05/2020 à 14:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour m12,

Merci bien pour ta réponse.

tu m'a donnés une idée je vais l'adapter à mon projet.

Je fais et je comprend (Conficius)

Merci

corinthien
 Posté le 20/05/2020 à 18:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Un exemple avec ce lien, c'est un petit fichier Excel contenant un mini formulaire (TextBox13 et un bouton pour quitter)

https://send.firefox.com/download/d3ccfe671bbc8d4b/#MZvXttxOD9PejJUACva6bQ



Modifié par corinthien le 23/05/2020 19:12
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
19,99 €Ensemble clavier + souris sans fil Logitech MK270 à 19,99 €
Valable jusqu'au 30 Octobre

Amazon fait une promotion sur l'ensemble clavier + souris sans fil Logitech MK270 qui passe à 19,99 € alors qu'on le trouve habituellement autour de 35 €. Cet ensemble est composé d'un clavier sans fil Logitech avec des touches silencieuses et d'une souris sans fil adaptée à la forme de la main qui convient aux droitiers comme aux gauchers. Un seul récepteur USB vous permettra d'utiliser ces 2 périphériques sans fil. La livraison en point relais est gratuite.


> Voir l'offre
19,99 €Clé USB 3.0 Sandisk Ultra 128 Go à 19,99 €
Valable jusqu'au 29 Octobre

Amazon propose la clé USB Sandisk Ultra d'une capacité de 128 Go à 19,99 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> Voir l'offre
33,99 €Souris Logitech M720 Triathlon (bluetooth, unifying) à 33,99 €
Valable jusqu'au 30 Octobre

Amazon fait une belle promotion sur la souris Logitech M720 Triathlon qui passe à 33,99 € livrée gratuitement alors qu'on la trouve ailleurs autour de 50 €. Avec la technologie Easy-Switch de la Logitech M720 Triathlon Mouse, associez votre souris à 3 ordinateurs puis basculez entre eux sans transition sur simple pression d'un bouton idéalement situé sous votre pouce. Et pour savoir à quel appareil vous êtes connecté, la M720 dispose de trois chiffres sur le dessus qui vont s'illuminer. Le défilement ultra-rapide de la molette de la souris vous sera très utile pour survoler les longs documents et page Web. Arrêtez-vous instantanément, ou passez au défilement clic par clic lorsque vous avez besoin de précision.


> Voir l'offre

Sujets relatifs
ajouter automatiquement une ligne dans tableau
Gmail, les courriers envoyés vont automatiquement dans la corbeille
reporter nombre dans une autre cellule automatiquement
ajouter de langue dans google docs
3 comptes messagerie dans Outlook avec même mot de passe - commente regroup
outlook: mettre automatiquement une phrase dans Objet
Supprimer mot dans une cellule
Ajouter texte sur 1 photo dans Word
supprimer mot dans un index
Comment ajouter un mot de passe à un fichier
Plus de sujets relatifs à Ajouter automatiquement un mot dans un textBox
 > Tous les forums > Forum Bureautique