VBA conversion d'une valeur text. en valeur numéro de téléphone

Fermé
Dam - 24 nov. 2020 à 12:12
 Dam - 24 nov. 2020 à 13:40
Bonjour à tous

Novice en VBA, je mets en place un formulaire de saisie de demandes d'intervention pour le travail.
Dans le formulaire, les agents saisissent notamment un numéro de téléphone.
Lors de l'enregistrement du formulaire, les données sont retranscrites dans le tableau.
Le format du numéro de téléphone étant en "texte" dans la VBA, je cherche la fonction de conversion en format 00 00 00 00 00.
Voici un extrait :
'Si tous les champs obligatoires sont saisis alors on peut sauvegarder dans le tableau Source
'On cherche la prochaine ligne vide du tableau source
Feuil2.Activate
Feuil2.Range("A1048576").End(xlUp).Offset(1, 0).Select
'On affecte les données du formulaire dans le tableau Source
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = CDate(Me.TxtDatesaisie)
ActiveCell.Offset(0, 2) = Me.CboNomAgent
ActiveCell.Offset(0, 3) = Me.TxtNom
ActiveCell.Offset(0, 4) = Me.TxtPrénom
ActiveCell.Offset(0, 5) = Me.TxtTéléphone
ActiveCell.Offset(0, 6) = Me.TxtEmail
ActiveCell.Offset(0, 7) = Me.TxtLieu
ActiveCell.Offset(0, 8) = Me.TxtDescription

Merci par avance pour votre aide
Dam
A voir également:

2 réponses

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 255
Modifié le 24 nov. 2020 à 12:31
Bonjour,

ActiveCell.Offset(0, 5) = CLng(Me.TxtTéléphone)


ou
ActiveCell.Offset(0, 5) = CLng(Replace(Replace(Me.TxtTéléphone, " ", ""), ".", ""))

si l'utilisateur a pu saisir des séparateurs espace et .

La colonne doit être au format voulu.
eric


1
Bonjour Eric

Super et merci pour ta réponse.
;)
Damien
0