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

[Marino69]

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

[Eric KERGRESSE]

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

[Marino69]

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

[Eric KERGRESSE]

Dans ton module contenant tes macros, tu as juste à faire un copier coller les deux procédures et lancer TestFractionnerEn3Colonnes.

[Marino69]

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