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+