Syntaxe VBA pas fiable
Bonjour Forum,
J'utilise une saisie Textbox et je voulais avoir les bons Formats de saisie
' On teste la saisie de Tel'
With Me.Tel
If Not IsNumeric(Me.Tel.Text) And Me.Tel.Text <> "" Then
MsgBox "Vous devez saisir un numéro de Téléphone !"
Me.Tel.Text = ""
Me.Tel.SetFocus
Exit Sub
End If
End With
Pour le bon Format j'ai mis ça
' Format cellule Tel'
Columns("F:F").Select
Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Mais y a une Faille quand je ne saisie pas de n° de Tel ici :
Range("F65536").End(xlUp).Offset(1, 0).Value = CDec(Tel)
erreur'104' en Débogage.
Sans le CDec Finalement Selection.NumberFormat ne donne rien
Et CDec Bloc quand j'ai aucune saisie
Encore beaucoup de lacunes...
A+
Salut le forum
Callou essaye ceci
' On teste la saisie de Tel
With Me.Tel
If Not IsNumeric(.Text) And .Text <> "" Then
MsgBox "Vous devez saisir un numéro de Téléphone !"
.Text = ""
.SetFocus
Exit Sub
End If
End With
If Tel = "" Then Range("F65536").End(xlUp).Offset(1, 0).Value = "" Else Range("F65536").End(xlUp).Offset(1, 0).Value = Format(Tel, "0#"" ""##"" ""##"" ""##"" ""##")
Mytå