Discussion :

[patbold]

Bonjour serait il possible de me donner le code que je devrais utiliser pour dans un TextBox qui se trouve dans un UserForm pour saisir un numéro de la CPAM avec les espaces, et pour un numéro de téléphone,sachant que je reporte cette valeur dans une cellule et que je la récupére par la suite, et bien sur en gardent sa forme.

a l'avance je vous remerçi et bonne journée

[decondelite]

C'est quelque chose du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
macellule.Value=Userform.Textbox.Value ' Rentre la valeur
macellule.NumberFormat = "@" ' Cellule au format texte

Tu n'as plus qu'à remplacer macellule par une référence à la cellule que tu souhaites et rajouter des numéros derrière Userform et Textbox.

[ucfoutu]

Bonjour,

Utilise l'opérateur Like, à appliquer à ta saisie dans la textbox, de préférence au moment même de la saisie.
Commence par voir ce qu'est cet opérateur et comment on s'en sert (ton aide en ligne).
Puis écris ton code. Nous t'aiderons à le corriger au besoin.

[patbold]

merçi a decondelite pour sa réponse, mais ce n'est pas directement dans la cellule que je souhaite ce forma mes dans le textBox , qui par la suite sera recopier dans une cellule ou j'irais la recherche.Merçi a ucfoutu mes ce n'est pas non plus une comparaison que je souhaite faire.Je désire que la valeur sois directement forme dans le textBox sur l'Userform,qui sera reporter dans le même forma dans la cellule,que je pourrer récupérer par la suite toujours dans le même forma.L'UserForm est comme un formulaire donc si je pouvais rentrer la valeur, sans les espace, que cela ce face aprés être passer au conrôle suivant.
J'espére ne pas être trop exigeant.

[ucfoutu]

Je crois t'avoir répondu ....
As-tu ouvert ton aide en ligne sur le mot Like ????

EDIT :

Allez ... un exemple avec une Textbox nommée Text1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Text1_Change()
 filtre = "00-00"
 Static anc As String
 If Not Text1.Text & Mid(filtre, Len(Text1.Text) + 1) Like "##-##" Then
    Text1.Text = anc
    Beep
 Else
   anc = Text1.Text
   Text1.SelStart = Len(Text1.Text)
 End If
End Sub

Essaye donc d'y saisir ce qui ne serait pas de la forme ##-## ....

[decondelite]

@ucfoutu:

Le problème, mon cher, c'est que Like ne pourra pas empêcher le format standard de cellule de supprimer les 0 devant si le contenu est un nombre, ou encore de faire d'autres choses pas très correctes.

Like ne lui permettra que de vérifier que ses données saisies sont au bon format, pas de les recopier correctement.

Toutefois, tu as raison de dire qu'il aura besoin de like.

@patbold:
Je te suggère donc de prendre en considération la proposition de ucfoutu autant que la mienne.
Si je te conseille de mettre ta cellule au format texte c'est justement pour être sûr que tes saisies seront identiques dans la cellule.