1. #1
    Candidat au Club
    Homme Profil pro
    Responsable de compte
    Inscrit en
    février 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Nouvelle-Calédonie

    Informations professionnelles :
    Activité : Responsable de compte
    Secteur : Finance

    Informations forums :
    Inscription : février 2017
    Messages : 2
    Points : 3
    Points
    3

    Par défaut Insérer une ligne dans un tableau renseigné avec des champs de formulaire

    Bonjour,
    Je vous sollicite après plusieurs jours de vaines tentatives.
    J'ai créé un tableau de suivi pour répertorier toutes les interventions auprès des clients. Chaque colonne est renseigné par le biais de champs de formulaire. Pour toute nouvelle intervention, une nouvelle ligne est insérée automatiquement et la ligne 2 est recopiée dans cette nouvelle ligne. Pour permettre l'exécution de la macro, la protection doit être désactivée puis réactivée. Ces deux actions ont pour conséquence de réinitialiser tous les champs du document (formulaire). La question est de savoir comment empêcher cette réinitialisation lors de l'ajout d'une ligne ?
    En vous remerciant par avance.

  2. #2
    Membre averti Avatar de Souriane
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    septembre 2009
    Messages
    327
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2009
    Messages : 327
    Points : 432
    Points
    432

    Par défaut

    Bonjour,

    Voici le code que j'utilise dans mes macros :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
     
    'Enlève la protection du fichier seulement si protégé, sinon, rien.
    Dim aprotege As Boolean
        If ActiveDocument.ProtectionType <> wdNoProtection Then
            aprotege = True
            ActiveDocument.Unprotect Password:=""
        Else
        End If
     
     
    [PLACER RESTE DE LA MACRO ICI]
     
     
    'Si document était protégé au départ le remet en mode protégé
                    If aprotege = True Then
                      ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
                        Else
                    End If

    Il a l'avantage de toujours vérifié s'il s'agit ou non d'un document protégé.

    Aussi, c'est le "NoReset:=True" dans la deuxième partie qui empêche de remettre les champs à zéro.

    Bonne chance!

    Souriane
    __________________________________
    Une question bien posée est à moitié résolue!

    Merci de ne pas oublier de mettre RÉSOLU quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche

  3. #3
    Candidat au Club
    Homme Profil pro
    Responsable de compte
    Inscrit en
    février 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Nouvelle-Calédonie

    Informations professionnelles :
    Activité : Responsable de compte
    Secteur : Finance

    Informations forums :
    Inscription : février 2017
    Messages : 2
    Points : 3
    Points
    3

    Par défaut

    Merci Souriane, solution approuvée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 01/01/2017, 16h55
  2. Insérer une ligne dans un tableau avec un bouton
    Par Aenema123 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/06/2015, 20h05
  3. Réponses: 2
    Dernier message: 06/09/2012, 11h37
  4. Word insérer une ligne dans un tableau
    Par offspring dans le forum VSTO
    Réponses: 0
    Dernier message: 12/10/2011, 12h33
  5. probleme bizarre de hauteur auto d'une ligne dans un tableau
    Par zax-tfh dans le forum Balisage (X)HTML et validation W3C
    Réponses: 5
    Dernier message: 18/01/2005, 00h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo