vba saisie plaque d'immatriculation

[tallia64]

bonjour j'ai créais un code pour formater une textbox par rapport à un numéro de plaque d'immatriculation : ex "2112 LO 78"

Private Sub TextBox12_Change()
ActiveSheet.Cells(index, 12) = TextBox12
TextBox12 = Format(TextBox12, "####,##,##")
End Sub[/COLOR]

Mais il ne fonctionne pas pouvez vous m'aider s'il vous plait ?
Je vous remercie
Tallia

 

[jp14]

Re : vba saisie plaque d'immatriculation

Bonjour

Une procédure à tester.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim j As Integer
TextBox1.Value = Replace(TextBox1.Value, " ", "")

For i = 1 To Len(TextBox1.Value)
    If Not IsNumeric(Mid(TextBox1.Value, i, 1)) Then Exit For
Next i
    
 For j = i To Len(TextBox1.Value)
    If IsNumeric(Mid(TextBox1.Value, j, 1)) Then Exit For
Next j
    
TextBox1.Value = Mid(TextBox1.Value, 1, i - 1) & " " & Mid(TextBox1.Value, i, j - i) & " " & Mid(TextBox1.Value, j)
    
End Sub

JP

 

[tallia64]

Re : vba saisie plaque d'immatriculation

Bonjour merci pour votre message je viens de tester mais ça ne fonctionne pas.
Je vous remercie quand même pour votre aide.
Tallia

 

[jp14]

Re : vba saisie plaque d'immatriculation

Bonjour

Il faut mettre la procédure dans TextBox1_Exit et non dans TextBox1_Change.
Elle ne peut fonctionner que si le numéro est complet.

JP

 

[tallia64]

Re : vba saisie plaque d'immatriculation

OK merci je viens de tester au moment où je valide la fermeture de mon userform "recherche" je vois bien la modification par contre dés que je me retrouve dans ma feuille excel la modification ne s'est pas faite dans la cellule toujours "2112mp68".
Désolée je débute en vba merci pour votre aide.
Tallia

 

[BERRACHED said]

Re : vba saisie plaque d'immatriculation

Salut,Talia,jp14

Essayé d'adapter ca :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim nc As Integer, s As String
s = Trim(TextBox1): nc = Len(s)
If nc = 0 Then Exit Sub
If (nc <> 8 And nc <> 6) Or Not IsNumeric(s) Then
MsgBox "Vous devez entrer 8 ou 6 chiffres sans espaces", , "Immatriculation"
TextBox1 = ""
Else
TextBox1 = Format(s, IIf(nc = 8, "0000 00 00", _
"0000 00 00"))
End If
End Sub

Cordialement

 

[tallia64]

Re : vba saisie plaque d'immatriculation

voilà comment j'ai adapter le code que vous m'avez envoyé

Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim j As Integer
ActiveSheet.Cells(index, 12) = TextBox12
TextBox1.Value = Replace(TextBox12.Value, " ", "")

For i = 1 To Len(TextBox12.Value)
If Not IsNumeric(Mid(TextBox12.Value, i, 1)) Then Exit For
Next i

For j = i To Len(TextBox12.Value)
If IsNumeric(Mid(TextBox12.Value, j, 1)) Then Exit For
Next j

TextBox12.Value = Mid(TextBox12.Value, 1, i - 1) & " " & Mid(TextBox12.Value, i, j - i) & " " & Mid(TextBox12.Value, j)

End Sub

Merci Tallia

 

[jp14]

Re : vba saisie plaque d'immatriculation

Bonjour

Un exemple dans le fichier ci joint.

JP

 

[tallia64]

Re : vba saisie plaque d'immatriculation

bonjour said merci pour votre réponse je souhaiterais qu'il n'y est pas de message box que je puisse directement écrire sous le format : 2112 LO 98.
merci pour votre aide.
tallia

 

[jp14]

Re : vba saisie plaque d'immatriculation

Bonjour
Bonjour said
Il faut déplacer le code pour l'écriture dans la feuille.

Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
..........................
TextBox12.Value = Mid(TextBox12.Value, 1, i - 1) & " " & Mid(TextBox12.Value, i, j - i) & " " & Mid(TextBox12.Value, j)

ActiveSheet.Cells(index, 12) = TextBox12   
 
End Sub

Merci Tallia[/QUOTE]

JP

 

[tallia64]

Re : vba saisie plaque d'immatriculation

je viens d'essayer ce code ça fonctionne dans le userform mais quand il se ferme et que je reviens à mon tableau ma cellule est vide.
je vous remercie
tallia

 

[jp14]

Re : vba saisie plaque d'immatriculation

Bonjour

A rajouter

Private Sub UserForm_Initialize()
TextBox12 = ActiveSheet.Cells(index, 12) 
End Sub

ou 
Private Sub UserForm_Click()
TextBox12 = ActiveSheet.Cells(index, 12) 
End Sub

en fonction de l'application désirée.

JP

 

[tallia64]

Re : vba saisie plaque d'immatriculation

Désolée ça ne fonctionne pas je pensais peut être mettre un format spécifique directement dans la cellule de mon classeur excel mais j'ai essayé plusieurs format personnalisés mais sans succès.
merci pour votre aide.
tallia

 

[jp14]

Re : vba saisie plaque d'immatriculation

Bonjour

Un fichier avec la macro sans données confidentielles permettrait de t'aider à résoudre ton problème.

JP

 

[Lii]

Re : vba saisie plaque d'immatriculation

Bonjour Tous,

du genre ce que tu as essayé, avec ou sans espace lors de la saisie
et en attendant mieux...