Nombre dans un textbox

[JLF47]

Bonjour à tous,

Je débute et j'ai besoin d'aide pour résoudre mon problème qui pourra vous sembler pas si compliqué que ça.
Voila, il s'agit d'un module que je voudrai personnaliser et pour cela il faudrait que le "textbox_code postal" une fois transféré dans mon tableau excel puisse être lu comme numérique et non pas texte.
Si quelqu'un à une solution à me proposer, je suis preneur.
Par avance merci!!!!





Sub MAJContacts(NomContact As String, PrenomContact As String)
Dim MaCel As Range
Dim i As Integer
'La zone de texte nom doit être renseignée
If Contacts.TextBox_Nom = "" Then
MsgBox "Contact Invalide, le nom doit être renseigné", vbInformation, "Contact"
Exit Sub
End If
Set MaCel = Range("[Adresse.xls]Contacts!A1")
If Contacts.CommandButton1.Caption = "OK" Then
'Si la valeur du bouton est "OK", c'est un nouveau contact
i = 1
Do While MaCel.Offset(i, 1) <> ""
If NomContact & PrenomContact < MaCel.Offset(i, 1) & MaCel.Offset(i, 2) Then
'Insertion d'une ligne dans le fichier Contacts pour avoir la liste en ordre alphabetique
Worksheets("Contacts").Rows(i + 1).Insert Shift:=xlDown
Exit Do
End If
i = i + 1
Loop
Else
'MAJ contact
'i récupère la ligne du fichier à partir de l'index de la listbox des contacts
i = FichAdresse.ListBoxContacts.ListIndex + 1
End If
With Contacts
MaCel.Offset(i) = .ComboBox_titre
MaCel.Offset(i, 1) = .TextBox_Nom
MaCel.Offset(i, 2) = .TextBox_Prénom
MaCel.Offset(i, 3) = .TextBox_Adresse
MaCel.Offset(i, 4) = .TextBox_CodePostal
MaCel.Offset(i, 5) = .TextBox_Ville
MaCel.Offset(i, 6) = .TextBox_Tel1
MaCel.Offset(i, 7) = .TextBox_Tel2
MaCel.Offset(i, 8) = .TextBox_mail
End With
'Réinitialise la listbox des contacts
ListeContacts
End Sub

 

[RENAUDER]

Re : Nombre dans un textbox

Bonjour,

Une piste

Private Sub CmdOK_Click()
    Sheets("Feuil1").Activate
    Sheets("Feuil1").Cells(6, 1).Value = Me.TextBox1.Text
    Sheets("Feuil1").Cells(6, 1).NumberFormat = "00000"
    Unload Me
End Sub

Tu peux faire un calcul avec le Code postal même s'il est affiché comme 02354

 

[JLF47]

Re : Nombre dans un textbox

Merci à tous, a bientôt.