bonjour
j'ai un petit probleme avec mon format telephone
dans le format cellule je mets format spéciale telephone
mais si dans la celluleje tape 012345, il n'y a pas d'erreur alors qu'il
faut 10 chiffres poue un format francais
j'ai essayé de le controler avec
'N° de telephone
If Not Intersect(Target, Range("TELEPHONE")) Is Nothing Then
If Target.Value = "" Then Exit Sub
If Len(Format(Target, "0# ## ## ## ##")) <> 14 Then
MsgBox "N° de téléphone incorrecte", vbInformation
End If
End If
mais dans ce cas il le controle sous la forme 00 00 01 23 45, il n'y a pas
d'erreur et dans la cellule cela donne 0 1 23 45
merci pour votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gerard
bonjour excusez, mais apres reflexion il y a peut être des N° a 5 chiffres, il faut peut être pas que je me prenne la tête merci pour vos reponses ge "gerard" a écrit dans le message de news:bu8a0i$pn7$
bonjour j'ai un petit probleme avec mon format telephone dans le format cellule je mets format spéciale telephone mais si dans la celluleje tape 012345, il n'y a pas d'erreur alors qu'il faut 10 chiffres poue un format francais j'ai essayé de le controler avec
'N° de telephone If Not Intersect(Target, Range("TELEPHONE")) Is Nothing Then If Target.Value = "" Then Exit Sub If Len(Format(Target, "0# ## ## ## ##")) <> 14 Then MsgBox "N° de téléphone incorrecte", vbInformation End If End If
mais dans ce cas il le controle sous la forme 00 00 01 23 45, il n'y a pas d'erreur et dans la cellule cela donne 0 1 23 45 merci pour votre aide
ge
bonjour
excusez, mais apres reflexion il y a peut être des N° a 5 chiffres, il faut
peut être pas que je me prenne la tête
merci pour vos reponses
ge
"gerard" <gerard.v@wanadoo.fr> a écrit dans le message de
news:bu8a0i$pn7$1@news-reader3.wanadoo.fr...
bonjour
j'ai un petit probleme avec mon format telephone
dans le format cellule je mets format spéciale telephone
mais si dans la celluleje tape 012345, il n'y a pas d'erreur alors qu'il
faut 10 chiffres poue un format francais
j'ai essayé de le controler avec
'N° de telephone
If Not Intersect(Target, Range("TELEPHONE")) Is Nothing Then
If Target.Value = "" Then Exit Sub
If Len(Format(Target, "0# ## ## ## ##")) <> 14 Then
MsgBox "N° de téléphone incorrecte", vbInformation
End If
End If
mais dans ce cas il le controle sous la forme 00 00 01 23 45, il n'y a pas
d'erreur et dans la cellule cela donne 0 1 23 45
merci pour votre aide
bonjour excusez, mais apres reflexion il y a peut être des N° a 5 chiffres, il faut peut être pas que je me prenne la tête merci pour vos reponses ge "gerard" a écrit dans le message de news:bu8a0i$pn7$
bonjour j'ai un petit probleme avec mon format telephone dans le format cellule je mets format spéciale telephone mais si dans la celluleje tape 012345, il n'y a pas d'erreur alors qu'il faut 10 chiffres poue un format francais j'ai essayé de le controler avec
'N° de telephone If Not Intersect(Target, Range("TELEPHONE")) Is Nothing Then If Target.Value = "" Then Exit Sub If Len(Format(Target, "0# ## ## ## ##")) <> 14 Then MsgBox "N° de téléphone incorrecte", vbInformation End If End If
mais dans ce cas il le controle sous la forme 00 00 01 23 45, il n'y a pas d'erreur et dans la cellule cela donne 0 1 23 45 merci pour votre aide
