1. #1
    Membre à l'essai
    Femme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    février 2016
    Messages
    29
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : février 2016
    Messages : 29
    Points : 17
    Points
    17

    Par défaut VBA Word 2010 - Fractioner les cellules de la 1ere colonne d'un tableau

    Bonjour,

    J'ai besoin de modifier de la même façon un très grand nombre de documents Word, tous conçus avec le même format.
    Une des actions consiste à fractionner en 3 cellules toutes les cellules de la 1ere colonne du 4eme tableau du document, pour obtenir 3 colonnes à la place de la première.

    J'ai essayé de transformer avec une boucle "For Next", un code fait avec l'enregistreur de macro (fractionnement de la 2eme cellule), mais mon adaptation ne fonctionne pas.
    Pourriez-vous me souffler une solution ?

    D'avance tous mes remerciements,
    Cordialement,
    Marie-Noëlle

    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
     
    Sub Fractionner()
    '
    ' Fractionner Les lignes du Tableau 4
     
        'ActiveDocument.Tables(4).Cell(2, 1).Split NumColumns:=3     - ca marche pour cellule 1 de la ligne 2
     
        Dim i As Long
     
        With ActiveDocument.Tables(4)
     
            For i = 1 To rows.Count
            .cell(i, 1).Split NumColumns:=3
            Next
     
        End With
     
    End Sub

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    2 924
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 2 924
    Points : 7 600
    Points
    7 600
    Billets dans le blog
    19

    Par défaut

    Citation Envoyé par Marino69 Voir le message
    Bonjour,

    A tester :
    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
    19
    20
    21
    22
    23
     
    Sub TestFractionnerEn3Colonnes()
     
        FractionnerEn3Colonnes ActiveDocument, 4
     
    End Sub
     
     
    Sub FractionnerEn3Colonnes(ByVal MonDoc As Document, ByVal NumeroTable As Integer)
     
    Dim MaTable As Table
     
        With MonDoc
             If .Tables.Count >= NumeroTable Then
                Set MaTable = .Tables(NumeroTable)
                With MaTable
                    .Columns(1).Cells.Split NumRows:=1, NumColumns:=3, MergeBeforeSplit:=False
                End With
                Set MaTable = Nothing
             End If
        End With
     
    End Sub
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Membre à l'essai
    Femme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    février 2016
    Messages
    29
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : février 2016
    Messages : 29
    Points : 17
    Points
    17

    Par défaut

    Merci beaucoup Eric de t'intéresser à ma difficulté

    Je viens de tester la 1ère suggestion :
    Il y a un message d'erreur " Erreur de compilation - Sub ou Fonction non définie"
    Le titre est surligné en jaune

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub Fractionner_3_colonnes()
    '
    ' Fractionner_3_colonnes Macro
     
        FractionnerEn3Colonnes ActiveDocument, 4
     
    End Sub
    J'ai bien copié le code de la 2ème suggestion, mais elle n'apparait pas dans la fenêtre d'affichage des Macros et du coup je ne peux pas l'exécuter.

    Je crois bien que j'ai encore besoin de tes conseils,

    Marie-Noëlle

  4. #4
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    2 924
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 2 924
    Points : 7 600
    Points
    7 600
    Billets dans le blog
    19

    Par défaut

    Citation Envoyé par Marino69 Voir le message
    Dans ton module contenant tes macros, tu as juste à faire un copier coller les deux procédures et lancer TestFractionnerEn3Colonnes.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  5. #5
    Membre à l'essai
    Femme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    février 2016
    Messages
    29
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : février 2016
    Messages : 29
    Points : 17
    Points
    17

    Par défaut

    Bonsoir Eric,

    Ton code fonctionne parfaitement ! Merci beaucoup de ton aide
    Il ne me reste plus qu'a comprendre sa structure.

    En attendant je vais l'utiliser, et l'archiver précieusement.

    Cordialement,
    Marie-Noëlle

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

Discussions similaires

  1. [VBA][Word]Sauvegarder sans les macros
    Par Oui-Oui MB dans le forum VBA Word
    Réponses: 3
    Dernier message: 23/07/2007, 12h29
  2. [VBA-E] condition dans les cellules
    Par ricachu dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 09/08/2006, 09h45
  3. [VBA-E]function dans les cellules
    Par bibidi dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 21/05/2006, 13h55
  4. Réponses: 1
    Dernier message: 07/01/2006, 23h33
  5. VBA Word - Aide sur les "Retours" dans tableaux
    Par wouebmaster dans le forum VBA Word
    Réponses: 5
    Dernier message: 29/12/2005, 10h08

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