Format spécial dans une cellule

[rcmelanie]

Bonjour,

Je dois imposer un format dans une cellule.

Il faut que l'on saisisse un numéro de 6 chiffres.

Cependant, les personnes peuvent saisir plusieurs numéros a 6 chiffres dans la meme cellule tant qu'ils sont espacé d'un seul espace.

Dans "valdiation" et "personnalisé" il n'y a aucune indication pour entrée un format rien ne fonctionne.

Auriez vous une solution ?

Merci d'avance.

 

[rcmelanie]

Re : Format spécial dans une cellule

Moi qui attend une réponse, j'avais pas vu la 2ème page, une vrai blonde ...

Bon je dois donc enlever target ... c'est ça ??

 

[rcmelanie]

Re : Format spécial dans une cellule

Par rapport au poste #12 j'ai réussi a le mettre dans ma zone E8 a E202 cependant si j'ecris : 123456 123456 ça ne fonctionne pas.

2 séries ce n'est pas possible ?

Le bouton d'alerte est super joli

 

[rcmelanie]

Re : Format spécial dans une cellule

Pour clôturer ce sujet, je vous remercie pour toutes vos réponses

Et vous donne le mix de macro que j'ai réussi à faire

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E8:E202")) Is Nothing Then
TestFormat6Chiffres Target
End If
End Sub
Private Function TestFormat6Chiffres(Plage As Range)

Dim r As Range, Valeur As String, Tronque As String

For Each r In Plage
Valeur = r.Value
Tronque = Valeur

If Valeur = "" Then FormatOK r

If Valeur Like "* *" Then
FormatErreur r
GoTo CelluleSuivante
End If

While Valeur <> ""
If InStr(1, Valeur, " ", vbTextCompare) <> 0 Then
Tronque = Left(Valeur, InStr(1, Valeur, " ", vbTextCompare))
If Not Tronque Like "######" & " " Then FormatErreur r Else FormatOK r
Valeur = Replace(Valeur, Tronque, "")
Else
If Not Valeur Like "######" Then FormatErreur r Else FormatOK r
GoTo CelluleSuivante
End If
Wend
CelluleSuivante:
Next r
End Function


Private Function FormatErreur(Cel As Range)
Cel.Interior.ColorIndex = 3
MsgBox "Vous devez entrer des séries de 6 chiffres consécutifs séparées par un seul espace !", 48
Target = ""

End Function




Private Function FormatOK(Cel As Range)
Cel.Interior.ColorIndex = xlNone
End Function

 

[job75]

Re : Format spécial dans une cellule

Bonjour le fil,

Par rapport au poste #12 j'ai réussi a le mettre dans ma zone E8 a E202 cependant si j'ecris : 123456 123456 ça ne fonctionne pas.

Comprends pas voir fichier joint...

A+

 

[rcmelanie]

Re : Format spécial dans une cellule

C'est vrai que ça fonctionne j'ai du faire un mauvais copier coller.

D'où l'utilité des fichier exemple

En tous cas je vous ai piqué l'idée du bouton que mon patron va adorer

Je vous remercie

 

[job75]

Re : Format spécial dans une cellule

Re,

Merci pour la rectification.

En tous cas je vous ai piqué l'idée du bouton que mon patron va adorer

Je comprends que votre patron vous rémunère au nombre de lignes que vous écrivez

Mais mieux vaut utiliser le vocabulaire idouane, ce n'est pas un bouton mais une MsgBox

A+