Formulaire sous Word Résolu

Question

Bonsoir,
Je créais un formulaire sous Word et je n'arrive pas pour l'appellation Numéro de téléphone comment faire pour que lorsque la personne saisisse son numéro, ce dernier s'affiche pas tranche de 2 chiffre et un espace qui sépare les 10 chiffresj du genre (00 00 00 00 00). De même, pour l'appellation Numéro de Sécurité Sociale. Comment faire pour qu'à la saisie les espaces se mettent entre les chiffre (du genre : 0  00 00 00 000 000 00).
Je fais du télétravail (cf. confinement) et j'aimerai bien avancer sur cette création de formulaire. Merci pour vos lumières !

Raymond PENTIER · Answer

Bonjour.

Solution 1 = Faire le formulaire sous Excel, et non sous Word.
 

Solution 2 = Insérer des tableaux d'une ligne et 14 colonnes pour le téléphone, une ligne et 21 colonnes pour la SS. 
 
https://www.cjoint.com/c/JCzboGpVIu7

m@rina · Answer

Bonjour,

Tu parles de formulaire, mais on ne sait pas de quel type de formulaire tu parles. Or, il y en a au moins trois sortes. Donc, ce que tu veux faire est possible, mais cela dépend des contrôles utilisés.
https://faqword.com/index.php/word/formulaires-controles/911-le-point-sur-les-outils-de-formulaires

m@rina

CLOWNELLE · Answer

Bonsoir Marina,
Pour finir sur la macro antérieur.   Lorsque l'on saisi plus de 10 chiffres dans le tél ou un numéro de trop pour le numéro sécu (ce qui est possible actuellement) je voudrais savoir s'il est possible d'insérer dans la macro une consigne qui met un message d'erreur informant qu'il y a un chiffre de trop.
Possible ou pas ?
Encore merci.

m@rina · Answer

Bonjour,

Il faut savoir que ce que les possibilités dans un contrôle de contenu sont assez restreintes, contrairement à des contrôles de Userform ou même des ActiveX.

Comme tu l'as compris, les événements sont limités : on ne peut faire une action qu'à l'entrée du contrôle et à la sortie.
J'élimine tout de suite le message à l'entrée qui explique ce que l'on doit faire et qui va vite agacer tout le monde.

A la sortie, on peut vérifier le nombre de caractères, on peut aussi vérifier s'il s'agit de numérique. Le problème est que les espaces sont considérés comme faisant partie du format numérique.  Et si la personne saisit les espaces, ça va générer une erreur...

Je réfléchis à ce qu'on peut faire et je reviens vers toi.

m@rina

m@rina · Answer

Re...

Voici une macro qui annule et remplace la première. DOnc, tu vas dans tes macros et tu supprimes complètement la macro existante.

Cette macro va vérifier le nombre de chiffres saisis, que la personne ait tapé les espaces ou pas. Si le nombre est correct (10 pour le no de téléphone et 15 pour le no de sécu), le nombre sera formaté, sinon il y aura un message (que tu peux modifier si nécessaire). Si la personne a saisi les espaces, pas de problème, mais on peut prévenir que c'est inutile.

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim texte As String, i, Result, nb

texte = CC.Range.Text
If CC.ShowingPlaceholderText = False Then
    If Not IsNumeric(texte) Then GoTo fin:

    Select Case CC.Tag
        Case "tél"
        For i = 1 To Len(texte)
            If IsNumeric(Mid(texte, i, 1)) Then
            Result = Result & Mid(texte, i, 1)
            End If
            Next
            CC.Range = Result
            nb = CC.Range.Characters.Count

            If nb <> 10 Then
            MsgBox "le numéro n'est pas correct, il doit comporter 10 chiffres"
            Else: texte = Format(texte, "0# ## ## ## ##")
            CC.Range = texte
            End If

        Case "sécu"
        For i = 1 To Len(texte)
            If IsNumeric(Mid(texte, i, 1)) Then
            Result = Result & Mid(texte, i, 1)
            End If
            Next
            CC.Range = Result
            nb = CC.Range.Characters.Count

            If nb <> 15 Then
            MsgBox "le numéro n'est pas correct, il doit comporter 15 chiffres"
            Else: texte = Format(texte, "0 00 00 00 000 000 00")
            CC.Range = texte
            End If
    End Select

 End If
 Exit Sub
fin: MsgBox "Numéro incorrect"

End Sub

CLOWNELLE · Answer

CA FONCTIONNE !!!!!

C'est super que tu es créé un article sur le sujet.

Tu es un génie, je le dirai à mon directeur que ça à permis de créer un article.

Au plaisir.

Sandra

Formulaire sous Word

6 réponses

Discussions similaires

Newsletters