VBA conversion d'une valeur text. en valeur numéro de téléphone
Dam
-
Dam -
Dam -
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
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:
- VBA conversion d'une valeur text. en valeur numéro de téléphone
- Téléphone - Guide
- Méfiez-vous si ce petit point de couleur s'allume dans un coin de l'écran de votre téléphone - Accueil - Protection
- Se connecter à gmail sur téléphone - Guide
- Règle en cm sur téléphone - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée