Merci c'est super. par contre, si jai 965071038A, il me met pas le bon format... moi je voudrais 96 507 103 8A...
-----Message d'origine----- Salut,
Un exemple de format possible : 00" "000" "000" "00
A+ Nicolas B.
Albator V wrote:
bonjour, je voudrais mettre en forme 9650710380 pour obtenir 96 507 103 80. comment faire svp ? merci davance .
AV
Merci c'est super. par contre, si jai 965071038A, il me met pas le bon format... moi je voudrais 96 507 103 8A...
Pour les cellules de la plage A1:A10 (à adapter) A mettre dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Range) If Not Intersect(zz, [A1:A10]) Is Nothing Then Application.EnableEvents = False zz = Left(zz, 2) & " " & Mid(zz, 3, 3) & " " & Mid(zz, 6, 3) & " " & Right(zz, 2) Application.EnableEvents = True End If End Sub
AV
Merci c'est super. par contre, si jai 965071038A, il me
met pas le bon format... moi je voudrais 96 507 103 8A...
Pour les cellules de la plage A1:A10 (à adapter)
A mettre dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Range)
If Not Intersect(zz, [A1:A10]) Is Nothing Then
Application.EnableEvents = False
zz = Left(zz, 2) & " " & Mid(zz, 3, 3) & " " & Mid(zz, 6, 3) & " " &
Right(zz, 2)
Application.EnableEvents = True
End If
End Sub
Merci c'est super. par contre, si jai 965071038A, il me met pas le bon format... moi je voudrais 96 507 103 8A...
Pour les cellules de la plage A1:A10 (à adapter) A mettre dans le module de la feuille
Private Sub Worksheet_Change(ByVal zz As Range) If Not Intersect(zz, [A1:A10]) Is Nothing Then Application.EnableEvents = False zz = Left(zz, 2) & " " & Mid(zz, 3, 3) & " " & Mid(zz, 6, 3) & " " & Right(zz, 2) Application.EnableEvents = True End If End Sub
