Mots répèter dans un textbox

[maval]

Bonjour,


J'ai un petit souci avec un Texbox, j'ai mis un format personalisé comme ceci

Public Sub UserForm_Activate()
'
   T7 = T7 & " (Km²)"
   T9 = T9 & "  " & " (Hab/Km²)"
   T8 = T8 & "  " & " (Hab)"
End Sub

et j'ai deux fois le mots (Km²) ou (Hab/Km²) et (Hab)" comme ceci2*283 (Km²) (Km²) si vous avait une solution.

je vous remercie d'avance.

 

[Pierrot93]

Re : Mots répèter dans un textbox

Bonjour,

pourquoi utiliser l'événement "activate" de "l'userform", perso j'eusse plutôt joué avec les événements "enter" et "exit" des "textbox"...
A voir selon ton projet...
bon après midi
@+

 

[maval]

Re : Mots répèter dans un textbox

Bonjour Pierrot,

Je te remercie de ton intervention quel code tu mettrais?
Les infos dans les textbox viennent de ma feuille "Base de données".
@+

 

[Pierrot93]

Re : Mots répèter dans un textbox

Re,

peut être ceci :

Private Sub TextBox1_Enter()
TextBox1 = Replace(TextBox1, " (Km²)", "")
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then TextBox1 = TextBox1 & " (Km²)"
End Sub

 

[maval]

Re : Mots répèter dans un textbox

Re,

Le probléme il est que je doit cliquer dedans. alors que j'aimerai qui s'affiche directement?

 

[Pierrot93]

Re : Mots répèter dans un textbox

Re,

pas tout compris... si tu veux qu'à l'ouverture du usf il y ait d'indiqué
" (Km²)", rajoute ceci :

Private Sub UserForm_Initialize()
TextBox1 = " (Km²)"
End Sub

 

[maval]

Re : Mots répèter dans un textbox

Re,

Non sa fonctionne tojours pareil

 

[Pierrot93]

Re : Mots répèter dans un textbox

Re,

pas compris le fonctionnement attendu... donc... mets un tout petit fichier en pièce jointe ne reprenant que le problème posé....

 

[camarchepas]

Re : Mots répèter dans un textbox

Bonjour Pierrot , Maval,

Je crois que sans le formulaire , c'est chercher une aiguille dans un champ de blé ....

Mais à chaque fois que tu active ton userform tu fais T7 = T7 & " (Km²)", donc si T7 contient KM2, à la seconde activation effectivement tu as Km2 Km2 .

il faudrait conditionner la concaténation : if instr(1,T7,"Km²")=0 then t7 = t7 & " (Km²)"

 

[maval]

Re : Mots répèter dans un textbox

Bonsoir Nono

Sa fonctionne Nickel je te remercie et te souhaite une bonne soirée