Ajouter un mot à la fin d'un nombre

Résolu/Fermé

Utilisateur anonyme - 13 mai 2020 à 15:32
Utilisateur anonyme - 13 mai 2020 à 20:04

Bonjour, le forum
Je n’ai pas pu simplifier le code ci-dessous exemple faire boucle sur des nombres entiers qui indiquent l’ancienneté en ajoutant après chaque nombre saisi le mot « an » (pour 0 rien et pour 1 c’est « an ») pour le reste « ans » dans un textbox nommé f_ent13 ( ce textbox doit afficher exemple : 10 ans ou 1 an ou …)

Private Sub f_ent13_Change()
If f_ent13.Value = "" Then
f_ent13 = f_ent13 & ""
ElseIf f_ent13.Value = 1 Then
f_ent13 = f_ent13 & " an"
ElseIf f_ent13.Value = 2 Then
f_ent13 = f_ent13 & " ans"
Else
    If f_ent13.Value = 3 Then
    f_ent13 = f_ent13 & " ans"
End If
End If
End Sub

Merci d'avance
Cordialement

A voir également:

Ajouter un mot à la fin d'un nombre
Piratage facebook changer mot de passe - Guide
Mettre un mot de passe sur un dossier - Guide
Ajouter un profil netflix payant - Guide
Ajouter un compte gmail - Guide
Ajouter un compte whatsapp - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
13 mai 2020 à 19:55

Bonjour,

s’effectue au doubleclic

Option Explicit
Private Sub f_ent13_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Select Case f_ent13.Text
Case Is = 0
f_ent13.Text = f_ent13.Text & " an"
Case Is = 1
f_ent13.Text = f_ent13.Text & " an"
Case Is > 1
f_ent13.Text = f_ent13.Text & " ans"
End Select
End Sub

Réponse 2 / 2

Utilisateur anonyme
13 mai 2020 à 20:04

bonjour cs_Le pivert,
Merci bien

Discussions similaires

programme qui n'affiche pas le mot secret

Trouver le mot réellement écrit en lettres capitales PIX

Retrouver l'image originale après avoir fait des modifications ?

Mot de passe administrateur Freebox : où le trouver ?

Discussions similaires

Newsletters