Format spécial dans une cellule

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 ??

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 🙂

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

Re : Format spécial dans une cellule

Bonjour le fil,

rcmelanie à dit:

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.

Cliquez pour agrandir...

Comprends pas 😕 voir fichier joint...

A+

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

Re : Format spécial dans une cellule

Re,

Merci pour la rectification.

rcmelanie à dit:

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

Cliquez pour agrandir...

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+