Masque de saisie

Question

Bonsoir à tous,

J'aimerais appliquer un masque pour la saisie d'un numéro de téléphone de la sorte :

"011 __ __ __"

Un code ici :

http://www.excel-downloads.com/forum/175704-masque-de-saisie.html#post1079963

Mais reste à bien traiter la touche "Suppr".

Merci d'avance.

ucfoutu · Answer

BONJOUR?

1) je suis assez enclin à m'opposer à de tels procédés, alors qu'il est bien plus simple de forcer la saisie de chiffres uniquement (de très nombreux exemples sur ce forum) et leur nombre (MaxLength) puis de formater à la sortie.

2) je vois que tu reviens chez nous après 4 ans d'absence et uniquement après avoir tenté en vain sur un site que tu fréquentes bien plus souvent (on se demande pour quelle vraie raison )

Ce n'est alors que pour m'amuser que je t'invite à voir ce que ferait ceci (par exemple) :

Private Sub TextBox1_Change()
  Dim masque As String, plein As String
  Static anc As String
  masque = "### ## ## ##"
  plein = "000 00 00 00"
  If (TextBox1.Text & Mid(plein, Len(TextBox1.Text) + 1)) Like masque Then
    If Mid(masque, Len(TextBox1) + 1, 1) = " " Then
      If TextBox1.Text >anc Then TextBox1.Text TextBox1.Text & " "
    End If
    anc = TextBox1.Text
    Exit Sub
  End If
  TextBox1.Text = anc
End Sub

qui te met, dans la foulée, à l'abri de copier/coller non en conformité
Il est perfectible. J'ai par exemple limité l'effacement aux seuls backspaces entamés depuis la fin.

Voilà. A toi de jouer à le perfectionner, si tu le veux...
A toi, également, de voir "où l'on est mieux chez soi" 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_Jack · Answer

Salut

As-tu seulement regardé dans le menu Format, Cellule, onglet Nombre et Catégorie Spécial ?
Ça existe déjà.
Si cela ne te convient pas, enregistre une macro pendant que tu utilises un des format prévu et regarde le code + apporte des modifications.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

ucfoutu · Answer

Bonjour, Jack,

apz a simplement été moins précis sur ce forum qu'il ne l'a été sur au moins deux autres sites. 

C'est dan une textbox, qu'il souhaite faire ce contrôle de saisie.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Bonjour ucfoutu, jack

je vois que tu reviens chez nous après 4 ans d'absence et uniquement après avoir tenté en vain sur un site que tu fréquentes bien plus souvent (on se demande pour quelle vraie raison ) 

Il n'y a pas de mal de revenir après tant d'années ici ou sur d'autres forums.

Et c'est ma première application vba que je tente de réaliser après 4 ans de rupture avec la programmation VBA, comme que tu l'as cité.

En ce qui concerne ma problématique, alors je cherche à appliquer un masque de saisie d'un numéro de téléphone sur une TextBox, sous forme de tirets à la place des chiffres.
("___ __ __ __").

Mais je rencontrais un problème dans le traitement des touches "BACKSPACE" et "Suppr".

Maintenant, il reste le problème de la touche "Suppr" quand elle supprime les chiffres : le curseur avance au fur et à mesure de la suppression, mais en voulant ressaisir des nouveaux chiffres à la place de ceux supprimés, le curseur ne revient pas à la position d'ou à commencer la suppression, mais reste à la position du dernier chiffre supprimé.

Alors, J'aimerais mémoriser la position d'ou à commencer la suppression et y revenir à la détection de saisie du premier nouveau chiffre.

Option Explicit
Dim Posinex As Byte, SuppInd As Byte
Dim tablo(1 To 12) As String * 1
 
Private Sub TextBox1_Change()
Label2.Caption = TextBox1.SelStart 'Posinex
End Sub
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'___ __ __ __
'123456789012
 
If KeyCode = 8 Then '-- BackSpace Key
Posinex = TextBox1.SelStart
 
Label4.Caption = Posinex
Select Case TextBox1.SelStart
    Case 1, 2, 3, 6, 9, 12
        tablo(TextBox1.SelStart) = "_"
        consttext
        TextBox1.SelStart = Posinex - 1
    Case 5, 8, 11
        tablo(TextBox1.SelStart) = "_"
        consttext
        TextBox1.SelStart = Posinex - 2
    Case 4, 7, 10
        tablo(TextBox1.SelStart) = " "
        consttext
        TextBox1.SelStart = Posinex - 1
End Select
KeyCode = 0
End If
 
'___ __ __ __
'123456789012
 
If KeyCode = 46 Then '-- DEL Key
Posinex = TextBox1.SelStart
SuppInd = TextBox1.SelStart
 
Label6.Caption = Posinex
Select Case TextBox1.SelStart
    Case 0, 1, 4, 7, 10, 11
        tablo(TextBox1.SelStart + 1) = "_"
        consttext
        TextBox1.SelStart = Posinex + 1
    Case 2, 5, 8
        tablo(TextBox1.SelStart + 1) = "_"
        consttext
        TextBox1.SelStart = Posinex + 2
 
    Case 3, 6, 9
        tablo(TextBox1.SelStart + 1) = " "
        consttext
        TextBox1.SelStart = Posinex + 1
 
End Select
 
KeyCode = 0
End If
End Sub
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
If KeyAscii < 48 Or KeyAscii > 57 Or _
 Len(Replace(TextBox1, "_", "")) = 12 Then
    KeyAscii = 0
    Exit Sub
End If
 
Posinex = TextBox1.SelStart
Label10.Caption = SuppInd
 
'___ __ __ __
'123456789012
 
Label8.Caption = Chr(KeyAscii)
 
Select Case TextBox1.SelStart
    Case 0, 1, 4, 7, 10, 11
        tablo(TextBox1.SelStart + 1) = Chr(KeyAscii)
        consttext
        TextBox1.SelStart = Posinex + 1
    Case 2, 5, 8
        tablo(TextBox1.SelStart + 1) = Chr(KeyAscii)
        consttext
        TextBox1.SelStart = Posinex + 2
End Select
KeyAscii = 0
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Byte
    For i = 1 To 12
    tablo(i) = "_"
    Next i
    tablo(4) = " "
    tablo(7) = " "
    tablo(10) = " "
    consttext
    TextBox1.SelStart = 0
End Sub
Private Sub consttext()
Dim i As Byte
TextBox1 = ""
For i = 1 To 12
    TextBox1 = TextBox1 & tablo(i)
Next i
End Sub

Merci d'avance.

ucfoutu · Answer

Désolé, mais je ne "prends pas le relais" (ce n'est pas dans mes habitudes) d'un code et d'une pensée de mécanisme que je n'ai pas élaborés.
Je t'ai dit deux choses, plus haut :
1) je suis assez enclin à m'opposer à de tels procédés, alors qu'il est bien plus simple de forcer la saisie de chiffres uniquement (de très nombreux exemples sur ce forum) et leur nombre (MaxLength) puis de formater à la sortie. 
et 
2) après t'avoir montré nonobstant comment j'envisage personnellement le début d'un mécanisme (mon ode) :
Il est perfectible. J'ai par exemple limité l'effacement aux seuls backspaces entamés depuis la fin.

Voilà. A toi de jouer à le perfectionner, si tu le veux... 
Ce que je t'ai montré est dans mon esprit le début d'une petite usine à gaz
Le code que tu montres est celui du début d'une énorme usine à gaz.

Petite ou grande, une usine à gaz n'en est pas moins une et je n'aime pas participer à sa construction.
Bonne chance.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Salut,

Je t'ai montré le code que je m'en sers actuellement.

S'il y'a un chemin plus cours à parvenir à l'idée finale, je suis preneur.

Si tu veux développer la tienne, on travaillera dessus.

ucfoutu · Answer

Si tu veux développer la tienne, on travaillera dessus
= >>
Si  tu  veux développer la mienne, tu travailleras dessus
s'il te plait.
Voilà !


____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Enfin, quoi !

Lorsque je parle d'usine à gaz, ce n'est ni pour me moquer, ni pour te décourager, mais simplement pour te rappeler aux sens des réalités.
Même Microsoft, qui, pourtant, développe avec des langages d'un niveau nettement plus "bas", a choisi d'éviter les lourdeurs de tells "usines" !
Regarde donc, si tu veux t'en convaincre, comment l'on peur changer l'heure système (entre autres, car idem pour les clés d'activation)
Et constate les choix faits 

Mais si tu tiens vraiment à construire une usine de ce genre :
- rien ne t'empêche de le faire :
---- soit en continuant/compliquant le bout de code que je t'ai montré
---- soit en "construisant" ton propre contrôle personnalisé, composé de plusieurs textboxes
---- soit en restant sur l'idée d'une usine et en utilisant une textbox superposée à une autre (et avec moult calculs tenant compte de nombreux aspects, dont celui de la taille de la police de caractères)

Je te rappelle également l'existence du contrôle activex "Masked Edit".

Je voudrais également te rappeler que les égarements en tous genres ne sont pas les meilleurs "perfectionnements". D'autres choses beaucoup plus utiles révèlent en général mieux la qualité d'une application 
Amitiés



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

OK !

Alors, pour le début, se service des tirets comme masque de saisie est difficile de le faire ou c'est impossible ?

ucfoutu · Answer

Ce n'est pas "impossible" ! Rien ne l'est en développement informatique dès lors que cela peut s'appuyer sur un raisonnement logique. Tout ce qui se pense logiquement peut être exprimé de la même manière (logiquement).

La question qui demeure, cependant est de ce type :
"suis-je prêt à dépenser n'importe quoi (ressources et lenteurs) pour faire en sorte que je puisse utiliser un fil, plutôt qu'un couteau, pour couper du beurre ?"
Car : certes, on pourrait utiliser un fil (en prenant moult précautions) ... mais avec quel bénéfice réel et "mesurable" ????? ==>> moi, vois-tu , je choisis le couteau 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Autre exemple : celui du robot polyvalent que mon épouse a voulu avoir il y a plusieurs années, déjà :

Il lui faut (à elle) beaucoup plus de temps pour le sortir de son placard, l' "armer" pour la fonction "lamelles de pommes de terre", l'utiliser, le nettoyer, le remettre dans son placard, etc ... qu'il ne m'en faut pour ne me servir que des pommes de terres et d'un couteau.
Le pire : elle se sera fatiguée bien avant moi !

Il reste vrai que s'il s'agissait de traiter ainsi 50 kgs de pommes de terre (mais à quelle occasion rare ?) elle aurait raison d'utiliser le robot dont il s'agit.
As-tu là ta réponse ? 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Re,

Un raisonnement tout à fait logique.

Donc, tu me suggères de me contenter d'un simple masque sans tirets ?

D'accord

ucfoutu · Answer

Non !
relis-moi : je te conseille de ne contrôler que la saisie de chiffres et de la longueur et de ne formater qu'en sortant 
Tout le reste est pure ... fantaisie alourdissante.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Inspire-toi par exemple de ce que fait ceci, avec une textbox nommée TexBox4, sans limiter son MaxLength

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = 8 Then Exit Sub
  If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If Not Replace(TextBox4.Text, " ", "") Like "#########" Then
   MsgBox "saisie erronée - saisissez 8 chiffres"
   Cancel = True
 End If
   TextBox4.Text = Format(TextBox4.Text, "### ## ## ##")
End Sub

Ce n'est qu'un exemple.
Tu verras ce qui se passe en quittant la textbox.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Pardon 9 et pas "8 chiffres", hein ...


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Bonjour ucfoutu,

Ne pas appliquer de masque en début facilite bien l'utilisation des touches "Suppr" et "BackSpace".

Mais quand même, j'aimerais bien avoir le masque appliqué au fur et à mesure de la saisie

ucfoutu · Answer

Ben ...
Si, comme je te l'ai déjà dit deux fois, tu es à ce point attiré par ce genre de gadget (qui ne m'intéresse personnellement pas), amuse-toi, mais sans moi (je ne dépense en général mon temps que pour ce qui a un réel intérêt. Et jamais si, de surcroît, on doit construire une "usine à gaz"). 
Amuse-toi bien. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et si tu veux vraiment faire ce gadget : alors sois sérieux et fais un contrôle personnalise (activex). Il te faudra cependant autre chose que VBA.
Et si tu veux à tout prix faire un "ersatz" à l'aide de VBA === >> usine à gaz ( ter  repetita).


____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et pour ton info (égalemernt répété) . Ce contrôle personnalisé existe. Il a pour nom "MaskedEdit" et c'est l'activex MSMASK32.OCX 
Si tu te sens vraiment la force de faire mieux (surtout avec VBA) nous te couronneront super-champion.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Salut,

Non, je voulais dire par masque celui avec des espaces.

Exemple :

Private Sub TextBox1_Change()
    Dim Val As String
    Val = TextBox1.Text
    If Len(Val) 3 Or Len(Val) 6 Or Len(Val) = 9 Then
        Val = Val & " "
    End If
    TextBox1.Text = Val
End Sub




-----------------------------------------
Debutant Excel/VBA, PHP/SQL, Delphi

Club de correspondance :
http://membres.lycos.fr/elatlasclub
-----------------------------------------

ucfoutu · Answer

Non seulement je pense avoir tout dit de ce qu'il fallait dire, mais, en plus, ce bout de code n'est pas de moi (et ne risque pas de l'être .... je n'aurais JAMAIS commis une telle bourde de rigidité par rapport à la souplesse supposée d'un masque ! ).
Bon...
continue donc à t'amuser, si tu veux  A défaut d'atteindre un but valable et utile, cela te permettra de t'habituer à jongler 
___________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Pour que tu comprennes mieux le sens exact de mon dernier message :
Je ne sais pas d'où tu tiens le bout de code montré, mais réfléchis donc un peu ! cela voudrait dire qu'il te faudrait faire autant de codes différents que de masques différents ! === >> C'est, sinon totalement absurde, tout au moins  très très très  éloigné de l'esprit informatique. 


____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Avec un tel code, par exemple et entre autres : 
1) que demain la numérotation change de structure dans ton pays, et tu peux jeter ton code à la poubelle.
2) si l'on se "foule" à développer une saisie contrôlée sur la base d'un masque, ce "foulage" n'est justifié que s'il suffit de définir n'importe quel masque pour que le code s'y conforme.
Toute autre approche serait du pipeau - l'infini.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

le code de mise sur rail que je t'ai montré dès vendredi soir dernier (à 22 h 47) s'affranchit pae exemple d'une telle rigidité. On change le masque ? ===>> le code suit toujours.
Je t'ai précisé qu'il n'était qu'une "mise sur rail". Si tu tiens à te "fouler", ce sera sur ces "rails" qu'il te faudra apporter tes perfectionnements (pou des rails du même type, mais en aucun cas comme le montre ton dernier bout de code montré, qui est "figé" par des positions "arrêtées".)
Voilà 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Bonjour,

J'ai modifié cette ligne  (ajouté le touche retour suppression) :

If KeyAscii 8 Or KeyAscii 46 Then Exit Sub

et modifié le masque de sortie en :

TextBox1.Text = Format(TextBox1.Text, "0## ## ## ##")

Le code :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  
  If KeyAscii 8 Or KeyAscii 46 Then Exit Sub
  If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
  
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If Not Replace(TextBox1.Text, " ", "") Like "#########" Then
   MsgBox "saisie erronée - saisissez 9 chiffres"
   Cancel = True
 End If
   TextBox1.Text = Format(TextBox1.Text, "0## ## ## ##")
End Sub

ucfoutu · Answer

D'ac

Et ?

Es-tu ainsi satisfait du résultat ?


=> si oui ===>> parfait
=>> si non : pourquoi ?

Ceci étant dit :
1) je t'ai signalé l'existence d'un ocx déjà "tout cuit"
3) tu as "insisté" sur l'amour voué à la présence de tes "_"
2) je t'ai parlé "d'usines à gaz"
Alors :
1) ou tu es disposé à te servir de ce qui existe (l'ocx tout cuit), mais qui ne sera pas "de toi"
2) ou tu veux écrire du "perso" et alors : écris-le toi-même ... vas-y
3) ou tu veux qu'on écrive pour toi "ta chose", mais alors : si ce sont d'autres qui l'écrivent pour toi, elle ne sera plus du tout "ta chose" et nous nous trouverions là face à un paradoxe assez drôle, non ?

Pour ton information : les rails que je t'ai donnés  dès le départ me paraissant assez valables, je me suis amusé à continuer à "circuler sur ces rails-là", tout en m'efforçant d'éviter d'aboutir à une usine imbuvable, juste pour "voir". J'y suis parvenu ===>> par deux astuces additionnelles. Pourquoi y suis-je parvenu ? ===>> parce-que je suis un "emmerdeur" et un "guerrier" (les deux à la fois).
Or, il ne s'agit pas là d'un intérêt qui serait le mien, mais bien d'une démarche que tu voudrais la tienne ! Curieux, non ?

Conclusion : je te laisse quelques jours pour tenter de "jongler" seul sur la base de ce que je t'ai montré vendredi dernier. Au delà ===>> tu l'auras, ce source, mais, dans un tel cas ===>> je le déposerai et il ne sera plus le tien du tout du tout ... hein !
A toi de voir ! "Quelques jours", c'est beaucoup et beaucoup plus que les quelques 30 minutes qui m'ont suffi ce matin ===>> alors ===>>> "jongle" et tu seras un "propriétaire" ou abandonne le "jonglage". (choix à faire).
Amitiés
 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Salut ucfoutu,

Après tes conseils d'éviter d'escalader une falaise sans cordes, j'ai décidé d'abandonner de masquer mon numéro de téléphone avec des tirets.

Mais une petite question (peut-être tout bête) :

A quoi sert d'avoir un masque de saisie si on ne l'obtient qu'après que TextBox  perd le focus ? 

Parce que le formatage des données on peut l'avoir avec du code VBA avant insertion dans la feuille ? Non ? 

Pour l'OCX, j'aimerais bien le connaitre et l'utiliser (As-tu lien de cours ?) 

Je viens sur les forums pour apprendre, le code viendra de moi ou d'un bénévole m'importe peu 

Pour ta surprise, j'attendrais ces jours qui restent avec impatience

ucfoutu · Answer

Pour l'OCX, j'aimerais bien le connaitre et l'utiliser (As-tu lien de cours ?)
Pas de cours nécessaire pour lui (je n'en ai jamais vu un pour si peu). Totalement intuitif !

A quoi sert d'avoir un masque de saisie si on ne l'obtient qu'après que TextBox perd le focus ?
A question amusante ===>> réponse amusante : à quoi sert le masque, en cours de saisie ? === >> A quasiment rien (un utilisateur, une dactylo, frappent d'ailleurs en général sans regarder)
Mais qu'à cela ne tienne :
Les tirets, eux, ne servent rigoureusement à rien, y compris pour ceux qui regardent en cours de frappe, dès lors (et c'est ce que fait le code montré vendredi) que leur frappe va spontanément incrémenter la chaîne au bon endroit 
A toi d'y aller, hein, à partir de ce code, pour le perfectionner.

Pour ton information (et j'insiste), j'en suis en ce qui me concerne (et précisément en continuant sur la lancée de mon propre code) à travailler pour le rendre polyvalent (seul le masque changeant). J'ai même traité  avec les tirets  (hé oui !). 

J'attends encore deux jours et dépose cette source, que j'assortirai toutefois d'un commentaire pour dire à quel point je désapprouve, mais qu'elle constitue un exemple d'acrobatie et d'astuces telles (tu verras lesquelles et elles ne résultent pas de la connaissance de VBA, mais de l'utilisation de l'esprit humain) non dénué d'intérêt pour les amateurs de jonglage. Tout le reste, à part cet intérêt-là, ne vaut rigoureusement rien pour moi.
A plus.

____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

Salut,

J'ai même traité avec les tirets 

En fin des tirets sans avoir à monter une usine à gaz 

J'ai ajouté le formatage des chiffres en cours de frappe :

Private Sub TextBox1_Change()
    Dim Txt As String

    Txt = TextBox1.Text
    v = Len(Txt)
    If v 3 Or v 6 Or v = 9 Then Txt = Txt & " "
    TextBox1.Text = Txt

End Sub

ucfoutu · Answer

En fin des tirets sans avoir à monter une usine à gaz

Oui, mais tu verras . ===>>> des tirets genre "fantômes ecossais", qui je ne mets même pas dans ma textbox, bien que tu les y verras et uniquement là où non rempli, au fur et à mesure de la saisie (et que je n'ai donc même pas à gérer réellement... des fantômes, quoi !)... 
If v 3 Or v 6 Or v = 9 Then Txt = Txt & " "
tu n'as rien compris, manifestement, à ce que je t'ai dit plus haut à propos de cette "bourde de rigidité" ! Tu continues avec ce code trouvé je ne sais où et qui dénote un esprit assez peu informatique.... !
Un tel bout de code ne sera valable que pour un seul masque et tu seras obligé de tout recalculer si par bonheur (car je l'espère pour ton pays) le nombre des abonnés au téléphone croissait (comme partout ailleurs) au point de passer d'une numéroration à 9 chiffres à une numérotation à 10 chiffres (entre autres, hein ...). Et ce n'est pas tout ...
Mais je ne vais tout de même pas me répéter sans cesse, à tous mes messages ...
Bref. Tu attendras le dépôt annoncé. Mais je te préviens : mon code et mes fantômes seront difficiles à suivre. 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut,

D'après ce que j'ai compris, il faudrait créer un tableau de variables de la longueur du texte et y enregistrer le code ascii tapé (ou le chiffre directement) avant de remplacer les caractères par des "_".

Sinon j'ai mal compris le problème. 

Cordialement




CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Bonjour, Acive,

Non, c'est plus complexe que cela.
Mais si cela t'amuse également et que tu es à la fois acrobate, jongleur et chasseur de fantômes, tu vas bien rigoler en voyant ce que je déposerai dans deux jours (de l'innattendu garanti)
Ce sera plus compliqué (à suivre) que de chasser la viscacha dans la pampa. Promis juré  


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut Uc,

Comme tu as (et bien) fait:
J'ai par exemple limité l'effacement aux seuls backspaces entamés depuis la fin. 
 
Il faut de même interdire les déplacements au milieu du texte, puisque si tu effaces un "_" dans le texte, ça ne reste qu'un "_" d'effaçé et le nombre sera erroné.

Mais moi, étant aux Antilles, j'ai la habitude des pirates des caraïbes, pourquoi pas me lancer dans la chasse aux fantômes écossais aussi?... 
Je suis curieux  




CF2i - Guadeloupe
Ingénierie Informatique

cs_apz · Answer

J'attendrais ton code, et entre temps je solliciterais un chasseur de fantômes pour m'épauler à comprendre ton petit projet

ucfoutu · Answer

[u]Il faut de même interdire les déplacements au milieu du texte, puisque si tu effaces un "_" dans le texte, ça ne reste qu'un "_" d'effaçé et le nombre sera erroné.

/u

et toute l'astuce, pour y parvenir, et justement ici : y montrer ces tirets (là où il faut et quel que soit l'état de la saisie, y compris si effacements par backspace ou autre), sans jamais les y écrire. un inssaisissabler fantôme est là pour le faire et il le fait bien.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut les gars, Alors je vous ai fait une vrai usine à gaz, désaffectée puisque il y a des fantômes Ça fonctionne bien avec les chiffres mais j'arrive pas encore à gérer les erreurs de frappe correctement. Je suis fatigué (je sais c'est encore une excuse), mais j'ai mangé et bu quelques verres Ça c'est une excuse!... Pour la suppression aussi je ne me suis pas trop pris la tête, vous allez voir... Dim NuméroTel As String Dim Change As Boolean Private Sub Form_Load() Text1.MaxLength = 12 Change = False End Sub Private Sub Text1_Change() If Change = True Then Change = False Else NuméroTel = NuméroTel & Right(Text1.Text, 1) Form1.Caption = "Ton numéro est le : " & NuméroTel If IsNumeric(Right(Text1.Text, 1)) = True And Len(Text1.Text) > 4 Then Change = True Text1.SelStart = Len(Text1.Text) - 1 Text1.SelLength = 1 Text1.SelText = "_" End If End If End Sub Private Sub Text1_Click() SendKeysFin End Sub Private Sub Text1_DblClick() SendKeysFin End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 8 Then Text1.Text = "": NuméroTel = "" Form1.Caption = "" Exit Sub End If Dim i As Integer For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) <> "_" And Mid(Text1.Text, i, 1) <> " " And IsNumeric(Mid(Text1.Text, i, 1)) = False Then Text1.Text = Replace(Text1.Text, Mid(Text1.Text, i, 1), "") End If Next i If Len(Text1.Text) 3 Or Len(Text1.Text) 6 Or Len(Text1.Text) = 9 Then Text1.Text = Text1.Text & " " SendKeysFin End Sub Private Sub SendKeysFin() Text1.SelStart = Len(Text1.Text) Text1.SelLength = 0 End Sub CF2i - Guadeloupe Ingénierie Informatique

ucfoutu · Answer

Bonjour, Acive,

Ah ! Je vois que tu t'es pris au jeu 
Trois petits problèmes, toutefois :
- Le premier est mineur (car transposition possible) : ce que tu montres est pour du VB6 et ne va pas, sans adaptations (assez faciles) sous VBA.
- Le deuxième est plus gênant : tu n'as pas compris ce qui est attendu en matière de tirets/masque 
- cette ligne de code :
If Len(Text1.Text) 3 Or Len(Text1.Text) 6 Or Len(Text1.Text) = 9 Then Text1.Text = Text1.Text & " "
présente le même défaut que celui que j'ai dénoncé plus haut pour la ligne de code présenté par apz :
If v 3 Or v 6 Or v = 9 Then Txt = Txt & " "
(rigidité et obligation d'un code différent pour chaque masque).
PS : j'espère déposer mon fantôme (un vrai) ce soir : il est terminé. Juste une question, maintenant, de rédaction de sa présentation.

A plus
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

j'espère déposer mon fantôme (un vrai) ce soir : il est terminé. Juste une question, maintenant, de rédaction de sa présentation. 

Pas vraiment certain car je viens de m'attaquer également à la saisie contrôlée des mots de passe (avec remplacement par passwordchar) et des raison évidentes de discrétion font que je veux éviter d'en montrer la longueur, bien que cette longueur soit déterminée par le masque 
J'y travaille en ce moment même (et vais y parvenir car je suis têtu comme pas deux)

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut Jacques, 

Oui c'est du vb6, j'ai oublié de le dire
D'ailleurs ça fait quelques 6/7 ans que j'ai pas touché à vb6...

Un moment je me suis embrouillé les pinceaux, c'est la raison de la fameuse formule:
If v 3 Or v 6 Or v = 9 Then Txt = Txt & " "
que je ne voulais absolument pas utiliser.

Alors, en ce qui concerne le masque, désolé j'ai toujours pas complètement compris... (je suis aux DOM, ils m'ont contaminé )

Tu veux dire qu'on doit laisser la possibilité à l'utilisateur de modifier le masque?
Par exemple, si telecom ajoute des chiffres.
Format(Text1.text, "### ## ## ##") ou
Format(Text1.text, "## ## ## ## ##") ?




CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Oui, Acive,
- D'une part, le masque doit pouvoir être modifié et être utilisé sans rien changer au code (un seul code pour tous les cas de masque)
- Le masque doit pouvoir être composé de plusieurs élément :
-- un séparateur éventuel, forcer à des caractères numériques ou alphanumériques (ou un mélange des deux)
-- permettre l'insertion de caractères "forcés", alphanumériques ou non
- D'autre part ( le "coup" des tirets ) : des tirets doivent remplacer, tout au long de la saisie et à la position voulue les caractères non encore frappés. La gestion de la saisie doit par ailleurs être telle que le curseur ne doit se placer (prêt pour la saisie) qu'aux endroits où l'on attend un caractère à saisir).
Et tout cela : en réduisant autant que faire ce peut le caractère "usine à gaz" de l'ensemble 
Tu vois le "truc" ? 
En résumé et comme je ne cesse de le répéter : beaucoup d'efforts pour un gadget dont l'utilité réelle reste à démontrer. ===>> et je vais déposer un source, non pour l'utilité, mais pour l'exemple de "jonglage" (rien d'autre). Et puisque d'amour du "jonglage" il s'agit ===>> je n'assortirai mon code d'aucune ligne de commentaire, juste pour laisser aux "amoureux du jonglage ludique" le "plaisir" de "décortiquer" ce mécanisme de fou.  (on est jongleur ? alors on jongle ou, au moins, on "décortique" ! Sinon : on s'abstient )



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Re:

beaucoup d'efforts pour un gadget dont l'utilité réelle reste à démontrer.
Tu m&#8217;étonnes ... je ne te le fais pas dire 

Ok on reprend alors...




CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Faut pas s'inquiéter si je demande maintenant quelques heures de plus.
Justification de ce retard : je suis en train d'y ajouter maintenant (tout le reste est fini) de quoi "empoisonner l'existence" des amoureux de la moulinette/robot/craqueur-mot-de-passe , dans la foulée.
(un autre petit jonglage, donc) 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut,

Moi aussi je suis dessus ça commence à prendre forme...

Cordialement





CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Te voilà "servi", apz ===>>
Clique donc ici tu y trouveras à la fois ton bonheur et beaucoup de malheur.
Si tu veux tenter d'analyser : munis-toi du matériel recommandé : un casque, une escopette à canons juxtaposés, une bonne paire de jumelles, du sparadrap (si tu te grattes la tête) et quelques cachets d'aspirine (environ un par heure). 
Bonne chance et bon week-end. 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Alors, La chasse aux fantômes est ouverte! Jacques j'ai vu ce que tu as fait (et bien) et soit j'ai toujours rien compris du résultat attendu, soit j'ai encore picolé un verre de trop... Bon, par contre toujours en vb6, je le voyais différemment, le masque de saisie... testez-le et vous me dites ce qui est correct (à mon avis c'est plus simple que de dire ce qui n'est pas correct )... Dim Masque, Caractère, St As String Dim ChrsAffichés, Compteur, i, Rt As Integer Dim ToucheSupp As Boolean Private Sub Form_Load() Masque = "### ## ## ##" Caractère = "_" ChrsAffichés = 3 Formate Text1.SelStart = 0 Text1.SelLength = 1 Text1.MaxLength = Len(Masque) Text5.MaxLength = 1 Text4.MaxLength = 1 End Sub Private Sub SelectNext() St = Text1.Tag St = Replace(St, " ", "") Compteur = 0 'On sélectionne le prochain emplacement For i = 1 To Len(Text1.Text) If Mid(Text1.Text, i, 1) <> " " Then Compteur = Compteur + 1 If Compteur > Len(St) Then Text1.SetFocus Text1.SelStart = i - 1 Text1.SelLength = 1 Exit For End If End If Next i 'Si le numéro est complet on déselectionne le texte 'et le contenu de Text1.Tag est prêt à être utilisé If Len(Text1.Tag) = Len(Masque) Then Text1.SelStart = Len(Text1.Text) Text1.SelLength = 0 'List1.AddItem Text1.Tag End If End Sub Private Sub Text1_Change() If Len(Text1.Text) < Len(Masque) Then If ToucheSupp = False Then St = Text1.Tag If Len(St) > 0 Then St = Replace(St, " ", "") St = Left(St, Len(St) - 1) Text1.Tag = St End If End If Formate End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then ToucheSupp = True Else ToucheSupp = False End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) SelectNext End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If IsNumeric(Chr(KeyAscii)) True Or KeyAscii 8 Then If KeyAscii <> 8 Then Text1.Tag = Text1.Tag & Chr(KeyAscii) Formate 'Si le nombre de chiffres à afficher est atteint on les remplace par le caratère If IsNumeric(Mid(Text1.Text, ChrsAffichés, 1)) True Then KeyAscii 0 End If Else KeyAscii = 0 End If If Len(Text1.Tag) Len(Masque) And KeyAscii <> 8 Then KeyAscii 0 End Sub Private Sub Formate() Compteur = 0 St = "" Text1.Tag = Replace(Text1.Tag, " ", "") For Rt = 1 To Len(Masque) If Mid(Masque, Rt, 1) = "#" Then Compteur = Compteur + 1 If Compteur > Len(Text1.Tag) Then Exit For St = St & Mid(Text1.Tag, Compteur, 1) Else St = St & " " End If Next Rt Text1.Tag = St St = "" For Rt = 1 To Len(Masque) If Mid(Masque, Rt, 1) = " " Then St = St & " " Else If Rt <= Len(Text1.Tag) Then If Rt <= ChrsAffichés Then St = St & Mid(Text1.Tag, Rt, 1) Else St = St & Caractère End If Else St = St & Caractère End If End If Next Rt Me.Caption = "Le numéro est le: " & Text1.Tag Text1.Text = St End Sub CF2i - Guadeloupe Ingénierie Informatique

acive · Answer

Pardon,
le Text4 et le Text5 dans le Form_Load n'ont rien à faire la dedans, c'était pour mes tests...

Il faut juste une Form et un TextBox (Text1).




CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Re-pardon,

Il y a des erreurs si l'on augmente la valeur de ChrsAffichés, et je pense que si l'on change le format aussi (Masque), si ça convient à la demande je vais le rectifier demain matin tête fraîche (il est 22h20 chez moi). 

Je voulais aussi dire qu'on pourrait aussi utiliser:
Text1.Tag = Format(Text1.Tag, Masque)
Ça fonctionne, mais le problème c'est qu'il supprime les zéros au début du texte, et les numéros de tel commencent par zéro (0033 par exemple) c'est pour ça que je le fais manuellement.

Cordialement



CF2i - Guadeloupe
Ingénierie Informatique

cs_apz · Answer

Bonjour ucfoutu, acive

Un premier test de ton code ucfoutu, j'ai remarqué qu'il y a un blocage de la touche flèche gauche (pour se positionner sur le chiffre à supprimer). 

Elle ne fonctionne que pour un seul caractère.

Acive -> j'ai fait quelques modifications sur ton code pour qu'il fonctionne sous vba et j'ai vu que seuls les trois premiers chiffres qui s'affichent dans le TextBox et que le tout s'affichent dans l'intitulé de la forme.

Egalement la touche flèche gauche ne fonctionne que pour un seul caractère.

ucfoutu · Answer

A apt.

Ce blocage est délibéré et correspond à une ligne précise et volontaire du code : il a pour vocation de ne pas permettre de se "promener" au delà à l'intérieur de ce qui est déjà saisi, que ce soit pour effacer ou pour remplacer.
Si tu veux supprimer plus : à faire avec backspace, ou à sélectionner de droite à gauche puis suppr.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

En d'autres termes : je ne permets aucune suppression, aucun remplacement, etc ... qui ne serait ou n'inclurait pas le dernier caractère saisi. (et pour cause !)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut APZ,

D'abord excuse moi pour le VB6 mais j'ai un peu du mal avec les anciens langages.

J'ai aussi pensé que tu voulais afficher que les trois premiers numéros, (comme la saisie d'un numéro de compte bancaire, pour éviter que la personne derrière le rédacteur ne puisse pas le lire).

Ceci-dit, mon code permet l'affichage de tous les chiffres, il suffit de faire ChrsAffichés = Len(Masque), mais hier je me suis aperçu d'une erreur quand cette valeur dépasse 3 (je vais rectifier ça).

Sinon, j'ai voulu gérer le déplacement avec les flèches, mais ça se complique pas mal, car il faut connaitre la position du curseur, y compris quand on clique avec la souris, je vais voir comment on peux faire.

Pour l'instant on peux effacer uniquement avec Backspace.




CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Et tu as bien raison, acive, de ne pas permettre autre chose que cette possibilité 
Si cela échappe à apt, c'est qu'il est donc très loin d'avoir "cerné" les contraintes, les conséquences, et tutti quanti ....
Et je sais maintenant qu'il est par ailleurs incapable de pister les fantômes et ce qu'ils empêchent (alors que cette manoeuvre d'empêchement est la plus visible, pourtant, dans le labyrinthe qu'il a eu le loisir de lire)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut Jacques,

Mais je pense que c'est gérable, même avec déplacement du curseur avec un clique de souris, je m'y pencherais plus tard.

Mais en réfléchissant bien, avec ma logique (celle de cacher les chiffres tapés), si le gars efface un chiffre au milieu du texte sans savoir trop ce qu'il efface, ça peux que compliquer la saisie.

Je crois que t'as raison il faut utiliser uniquement le backspace, car on connait tous les numéros de tel toujours dans l'ordre (069038...), donc s'il a un doute il vaux mieux recommencer tout le numéro.
Sinon ce n'est plus des chiffres fantôme, c'est carrément toute la maison hantée... 

Je pense que je vais ajouter une source avec mon code (une fois terminé), ça pourrait servir à quelqu'un pour la saisie des numéros de compte.

Cordialement



CF2i - Guadeloupe
Ingénierie Informatique

cs_apz · Answer

D'accord, si vous voyez que c'est mieux d'effacer seulement avec le BackSpace.

Mais il faut penser à informer l'utilisateur qu'il ne doit utiliser que cette procédure pour rectifier sa saisie (Il sera surement étonner que les touches flèche gauche et "Suppr" ne fonctionnaient plus )

Et merci encore de votre patience

acive · Answer

Ça dépend si l'utilisateur voit ce qu'il efface ou pas...

Je vais te le faire mais tu verras les erreurs qu'ils vont commettre à la saisie, tandis que de la façon qu'on l'a fait, tu n'as pas à informer l'utilisateur, il n'aura pas le choix, il va bien s'en rendre compte que c'est le seul moyen pour effacer.

Pour l'instant je rectifie l'erreur des caractères visibles




CF2i - Guadeloupe
Ingénierie Informatique

cs_apz · Answer

Et pour la non découverte de ton "fameux fantôme" c'est parce que je n'ai pas encore décortiqué le code.

En tout cas j'espère bien le trouver

ucfoutu · Answer

En tout cas j'espère bien le trouver


C'est le seul intérêt de tout ce bout de code. Trouver ce fantôme, c'est en comprendre le mécanisme. Tout le reste n'est que du pipeau 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Re:

Ça y est, le mien est fonctionnel en vb6, téléchargeable ICI.

Cordialement



CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Très bon travail sous VB6, acive 
Juste un petit truc (rien à voir avec le mécanisme du code) :

Retourne et débride la longueur des textbox 4 et 5 ici :
Text5.MaxLength = 1
Text4.MaxLength = 1
de sorte à ne pas te limiter à 9 chiffres.
Monte cette barre à 2, ce qui te permettra de formater des nombre bien plus grands, sans rien changer d'autre.
Toutes mes félicitations pour ce travail


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Oui, pardon je l'avais mis au début, je l'ai enlevé pour vous envoyer le code et j'ai oublié de le remettre...

Merci pour le "bon travail", du coup je me sens un peu moins "rouillé" en VB6 (ça fait des années que j'y touchais plus)  

Sinon en revenant au problème de apz, on pourrait éventuellement prévoir la remise en route de la touche Supp et des flèches une fois que tout le texte s'affiche à l'utilisateur uniquement.

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Non. 
1) C'est bien et c'est largement suffisant tel quel.
2) Je tiens à saluer le fait que la méthode est de manière évidente le résultat de ton seul  esprit de création. C'est ce fait, que j'apprécie avant tout 




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_apz · Answer

En premier, tu crées une Textbox ensuite tu clones toute la forme.

Donc le "Fantôme" est la 8eme TextBox (TextBox8) créée dans laquelle on manipule les masques.

Corriges-moi si je me trompe

acive · Answer

Salut apz,
si j'ai bien compris tu programmes uniquement en VBA? Je vais donc essayer de te créer un XLS avec le tout.

Merci pour vos commentaires 



CF2i - Guadeloupe
Ingénierie Informatique

cs_apz · Answer

Salut acive,

J'utilise le VBA/Excel.

acive · Answer

Salut apz et Uc, J'ai commencé la conversion de vb6 en VBA Excel mais je m'y perds, entre les enregistrements au 50.000 formats, les macros et les classeurs... VBA c'est pas trop mon truc, vous pouvez y jeter un oeuil? Il faut créer une userform avec 5 textbox textbox1 => rien textbox2 => "### ## ## ##" Textbox3 => "9" textbox4 => "3" textbox5 => "_" Le code: (il subsistent des erreurs) Dim Masque, Caractère, St As String Dim ChrsAffichés, Compteur, i, Rt As Integer Dim ToucheSupp As Boolean Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) SelectNext End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If IsNumeric(Chr(KeyAscii)) = True Then If KeyAscii <> 8 Then TextBox1.Tag = TextBox1.Tag & Chr(KeyAscii) Formate End If Else If KeyAscii = 8 Then St = TextBox1.Tag If Len(St) > 0 Then St = Replace(St, " ", "") St = Left(St, Len(St) - 1) TextBox1.Tag = St Formate End If End If End If 'L'unique touche qui sera validée sera le BackSpace, le reste sera traité ci-dessus If KeyAscii = 8 Then If Len(TextBox1.Tag) < 1 Then KeyAscii = 0 Else KeyAscii = 0 End If End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 46 Then Formate SelectNext End Sub Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) SelectNext End Sub Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'On prend en compte uniquement la touche Backspace, les espaces et les "#" If KeyAscii <> 35 And KeyAscii <> 32 And KeyAscii <> 8 Then KeyAscii = 0 End Sub Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'On supprime les éventuelles erreurs de double espaces TextBox2.Text = Replace(TextBox2.Text, " ", " ") Masque = TextBox2.Text Formate End Sub Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'on prend en compte uniquement les chiffres et la touche BackSpace If IsNumeric(Chr(KeyAscii)) False And KeyAscii <> 8 Then KeyAscii 0 End Sub Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Au changement de la valeur on inscrit automatiquement le masque 'A l'utilisateur d'y inscrire les espaces après If IsNumeric(TextBox3.Text) = True Then TextBox2.Text = "" For Rt = 1 To Val(TextBox3.Text) TextBox2.Text = TextBox2.Text & "#" Next Rt Masque = TextBox2.Text Formate End If End Sub Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If IsNumeric(Chr(KeyAscii)) False And KeyAscii <> 8 Then KeyAscii 0 End Sub Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Determine le nombre de caractères qui doivent rester visibles au début du texte If IsNumeric(TextBox4.Text) = True Then If Val(TextBox4.Text) > Val(TextBox3.Text) Then TextBox4.Text = Val(TextBox3.Text) ChrsAffichés = Val(TextBox4.Text) Formate End If End Sub Private Sub TextBox5_Change() 'Determine le caractère de substituition du masque Caractère = TextBox5.Text Formate End Sub Private Sub TextBox5_Enter() TextBox5.SelStart = 0 TextBox5.SelLength = 1 End Sub Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii 8 Then KeyAscii 0 End Sub Private Sub UserForm_Initialize() Masque = TextBox2.Text Caractère = TextBox5.Text ChrsAffichés = Val(TextBox4.Text) Formate TextBox1.SelStart = 0 TextBox1.SelLength = 0 TextBox1.MaxLength = Len(Masque) TextBox5.MaxLength = 1 TextBox4.MaxLength = 1 End Sub Private Sub SelectNext() St = TextBox1.Tag St = Replace(St, " ", "") Compteur = 0 'On sélectionne le prochain emplacement For i = 1 To Len(TextBox1.Text) If Mid(TextBox1.Text, i, 1) <> " " Then Compteur = Compteur + 1 If Compteur > Len(St) Then TextBox1.SetFocus TextBox1.SelStart = i - 1 TextBox1.SelLength = 0 Exit For End If End If Next i 'Si le numéro est complet on déselectionne le texte 'et le contenu de textbox1.Tag est prêt à être utilisé If Len(TextBox1.Tag) = Len(Masque) Then TextBox1.SelStart = Len(TextBox1.Text) TextBox1.SelLength = 0 'List1.AddItem textbox1.Tag End If End Sub Private Sub Formate() i = 0 St = "" 'On supprime les espaces TextBox1.Tag = Replace(TextBox1.Tag, " ", "") 'On remet le tout au format pré-défini For Rt = 1 To Len(Masque) If Mid(Masque, Rt, 1) = "#" Then i = i + 1 If i > Len(TextBox1.Tag) Then Exit For St = St & Mid(TextBox1.Tag, i, 1) Else St = St & " " End If Next Rt TextBox1.Tag = St 'Affichage du chiffre à titre d'exemple Me.Caption = "Le numéro est le: " & TextBox1.Tag 'On remet le textbox1 au même format mais avec les caractères de 'subtituition et en tenant compte des chiffre qui doivent rester visibles St = "" TextBox1.Text = "" i = 0 For Rt = 1 To Len(TextBox1.Tag) If Mid(TextBox1.Tag, Rt, 1) = " " Then St = St & " " Else i = i + 1 If i > ChrsAffichés Then St = St & Caractère Else St = St & Mid(TextBox1.Tag, Rt, 1) End If End If Next Rt 'On remplit le restant du textbox1 conformément au masque If Len(TextBox1.Tag) < Len(Masque) Then For Rt = Len(TextBox1.Tag) + 1 To Len(Masque) If Mid(Masque, Rt, 1) = " " Then St = St & " " Else St = St & Caractère End If Next Rt End If TextBox1.Text = St End Sub Merciii!.... CF2i - Guadeloupe Ingénierie Informatique

ucfoutu · Answer

A apt :
En premier, tu crées une Textbox ensuite tu clones toute la forme.

Donc le "Fantôme" est la 8eme TextBox (TextBox8) créée dans laquelle on manipule les masques.

Corriges-moi si je me trompe

- j'adore "tu clones toute la form" ! je n'ai même pas la moindre idée de ce que tu veux dire par là !
- il n'y a pas de textbox nommée Textbox8
Il est manifeste que tu n'as pas "chassé" (analysé), te contentant d'avoir des "impressions", à l'aide d'une lecture en diagonale. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

je te confirme cependant que fantome est bien évidemment une bien une textbox, tel que la ligne de code suivante ne le cache absolument pas, bien au contraire :
Set fantome = F.Controls.Add("Forms.TextBox.1")

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Bonjour, acive,

L'un de tes problèmes résulte d'une différence de comportement entre VB6 et VBA.
La touche Backspace (8), par exemple, n'est pas, contrairement à VB6, interceptée par l'évènement KeyPress, mais par l'évènement Keydown sous VBA (et retourne le paramètre Keycode avec la valeur 8 également).
Amitiés
Jacques


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Les codes Keycode retournés par l'évènement Keydown étant, notamment pour les chiffres, de même valeur que ceux du paramètre Keyascii retourné par l'évènement KeyPress, il te suffira d'utiliser KeyDown à la place de Keycode, partout où u utilises KeyPress (en changeant bien sur KeyAscii par Keycode).

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

oublie mon tout dernier (lui seul) message : il n'est pas exact.
Et il y a d'autres petites choses..
Je regarde en revenant de la pêche.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut Jacques,
Merci pour le Chr(8) je le cherchais ce petit...

Ça devrait fonctionner (j'ai pas encore testé) j'avais peur parce que je fais un keyascii = 0 pour toutes les touches sauf le Chr(8), ce qui annule la frappe.

Bonne pêche, moi aussi je parts en plongée... 


 


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

alors ? aucun baliste ne t'a soufflé ce que m'a soufflé un sar ? Et ce n'est pas évident du tout (merci petit poisson) Efface tout ce que tu as dans l'évènement KeyPresse (à ne pas utiliser) de textbox1 et remplace par ceci : Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode > 95 And KeyCode < 108 Then If KeyCode <> 8 Then TextBox1.Tag = TextBox1.Tag & Chr(KeyCode - 48) Formate End If Else If KeyCode = 8 Then St = TextBox1.Tag If Len(St) > 0 Then St = Replace(St, " ", "") St = Left(St, Len(St) - 1) TextBox1.Tag = St Formate End If End If End If 'L'unique touche qui sera validée sera le BackSpace, le reste sera traité ci-dessus If KeyCode = 8 Then If Len(TextBox1.Tag) < 1 Then KeyCode = 0 Else KeyCode = 0 End If End Sub Applique le même principe à toutes les textboxes où tu fais un test sur le backspace Autre chose : Remplace l'évènement textbox5_Gotfocus (inexistant en VBA) par Private Sub TextBox5_Enter() TextBox5.SelStart = 0 TextBox5.SelLength = 1 End Sub Voilà, en respectant ton code. Si tu as une difficulté ===>> MP (moi, j'ai fait) ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Re:
Merci Jacques,

Je me suis débrouillé tout seul finalement... 

J'ai posté le XLS ICI

Du coup ma plongée est morte... 

Merci encore


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

C'est bien et le mécanisme est plus logique que le premier.

Juste une chose :

Rentre dans ton projet, dégrade-le pour versions antérieures (97 - 2003 *.xls) ==>> remplace ton zip
Sinon : seuls les utilisateurs de 2007 et supérieurs pourront ouvrir le classeur 
Amitiés


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Oui, c'est vrai je m'en occupe.
Tu as vu que j'ai rajouté le choix du caractère séparateur?

Je vais voir pour faire une DLL avec tout ça, de façon que ça fonctionne avec .Net aussi

Cordialement

 

CF2i - Guadeloupe
Ingénierie Informatique

cs_apz · Answer

Bonsoir ucfoutu,

Effectivement je parle de cette ligne (Le fantôme):

Set fantome =  F.Controls.Add("Forms.TextBox.1")

Si tu affiches son nom dans une boite de dialogue elle te renverra bien :  TextBox8 

Et cette TextBox est à chaque fois déplacée sur le TextBox active.

Pour le "Clonage de la forme", tu as bien fais :

Set Fac  = F

Et avec cette Fac que tu travailles ?

ucfoutu · Answer

Et ru appelles cela un clone ?
Assez inquiétant :
de l'aide en ligne, donc :
En règle générale, lorsque vous utilisez l'instruction Set pour associer une référence d'objet à une variable, aucune copie de l'objet n'est créée pour cette variable

Fac n'est pas un clone, mais l'userform lui-même
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Eh bien, 
je ne vois pas trop comment on est passé d'un masque de saisie au clonage...
Éloignons-nous(/vous) du sujet de départ? 

J'aimerais appliquer un masque pour la saisie d'un numéro de téléphone de la sorte : 
"011 __ __ __" 





CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

à acive :
apz, qui se réfère au code que j'ai déposé et qui concerne tout masque de saisie,  n'a tout simplement pas compris que fac n'était utilisé que par-ce-que tout le code était mis dans un module, de sorte à rendre plus clair celui de l'userform. Il en est à l'analyse du mécanisme impliquant un fantôme 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Apz: Alors, selon wikipédia, (une recherche sur google) -  dans ce lien:
Le terme module en programmation identifie une structure de programmation.
Ce qui fait que; si tu réfléchis en termes de bâtiment, la structure c'est ce qui supporte (et ce qui détermine les règles d'assemblage également) du restant des éléments du bâtiment.

Donc si tu as une structure qui permet l'ouverture d'une porte vers l'éxtérieur uniquement, c'est dans le "module" qui t'interdit de l'ouverture vers l'intérieur.

En programmation c'est la même, c'est un peu comme le code de la route, c'est publique, tout  le monde doit le connaitre, au cas échéant tu auras des erreurs ou tu es simplement incapable de pratiquer l'interdit (comme dans le code de la route tu as une ammende, même en chine  )


 


CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Je voudrais maintenant mettre un terme à la présente discussion, qui prend un volume démesuré pour ce qu'elle vaut === >>
Ceux qui me reliront  tant ici que dans les commentaires qui assortissent ce que j'ai déposé auront compris  :
- que je désapprouve ce genre de mécanisme, juste pour une mise en forme (il ne saurait selon moi être "un peu" justifié que pour des saisies précises, genre dates, nombres avec  nombre de décimales et séparateur décimales forcés)
- j'ai donc délibérément écrit un code assez ésotérique (et en disant pourquoi), en précisant que son seul intérêt était de forcer à analyser (et rien d'autre). J'ai été très clair sur ce point.
Mon dernier mot ici, dans de telles conditions :
Ceux (et uniquement ceux-là) qui auront réussi à déterminer ce que fait cet imbécile de fantôme, sauront (et très facilement) le renvoyer là où il mérite de faire ses farces à 4 sous  : nulle part !
Ils auront compris comment s'en débarrasser et faire sans lui ce qu'il fait pour "noyer le poisson" .
Voilà ! (je n'interviendrai maintenant plus dans la présente discussion) 
Amitiés à tous

____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Masque de saisie

81 réponses

Votre réponse

Discussions similaires