Discussion :

[fb62840]

Bonjour à toutes et à tous,

Voici le problème pour lequel je sollicite votre aide :

Dans un document Microsoft Word depuis Excel je créée un tableau Word
Et dans ce tableau je place des données.

J'ai 2 problèmes :
Avec le code ci-dessous, je ne parviens pas à enregistrer la première série de données de la listbox (je n'obtiens les données qu'à compter de la 2nde ligne de la listbox)
Avec le code ci-dessous, je parviens à enregistrer la seconde série de données et les autres mais j'ai un problème car les données devraient se placer sur 2 lignes et donc, pour chaque ligne de la listbox il faut placer les 5 données en colonne dans les 4 cases du tableau word ligne i et dans la 1ère case de la ligne i + 1
En fait ce qui se passe apparemment c'est que les données de la ligne sont enregistrées puis sur la ligne suivante la dernière donnée, mais ensuite la saisie des données suivantes commence à la place où est située la dernière saisie ce qui a pour effet de l'effacer

Merci pour votre aide

[QuestVba]

Bonjour,

Avec le code ci-dessous...

Où est le code ? Ou y avait un fichier ?

[fb62840]

Désolé,

J'ai progressé, je parviens désormais à placer les données aux bons endroit mais il me reste un problème, je ne sais pas comment fusionner une ligne dans un tableau word.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Derligne = mytbl.Rows.Count
With mytbl
mytbl.Cell(Derligne, 1).Range.Text = me.Lbsynthfrm.Column(0)
mytbl.Cell(Derligne, 2).Range.Text = me.Lbsynthfrm.Column(1)
mytbl.Cell(Derligne, 3).Range.Text = me.Lbsynthfrm.Column(2)
mytbl.Cell(Derligne, 4).Range.Text = me.Lbsynthfrm.Column(3)
End with
mytbl.Rows.Add
Derligne = mytbl.Rows.Count - 1
with mytbl
mytbl.Cell(Derligne + 1, 0).Range.Text = me.Lbsynthfrm.Column(4)
'C'est ici qu'il faudrait ajouter le code pour fusionner la ligne dans laquelle on 'vient de placer me.lbsyntfrm.Column(4)

Merci pour votre aide

Bonjour,



Où est le code ? Ou y avait un fichier ?

[QuestVba]

Bonjour,

voici un code pour fusionner les cellules 1 à 5 de la colonne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveDocument.Tables(1)
    .Cell(1, 1).Merge Mergeto:=.Cell(5, 1)
End With

et pour fusionner les cellules 1 à 3 de la ligne1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveDocument.Tables(1)
    .Cell(1, 1).Merge Mergeto:=.Cell(1, 3)
End With

[fb62840]

Re Bonjour,

J'ai corrigé mon code et je parviens à fusionner avec votre code que j'ai du un peu corriger :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
mtytl.Cell(derligne, 1).Merge Mergeto:=mytbl.Cell(derlinge, 4)

Ensuite j'insère une nouvelle ligne et de fait elle est également fusionnée et il faudrait alors que je la fractionne en 4 cellules

Une idée ?

Merci

Bonjour,

voici un code pour fusionner les cellules 1 à 5 de la colonne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveDocument.Tables(1)
    .Cell(1, 1).Merge Mergeto:=.Cell(5, 1)
End With

et pour fusionner les cellules 1 à 3 de la ligne1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveDocument.Tables(1)
    .Cell(1, 1).Merge Mergeto:=.Cell(1, 3)
End With

[QuestVba]

Re-,

Permet de scinder la cellule en 2 cellules (2 colonnes sur 1 ligne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Cells.Split NumRows:=1, NumColumns:=2, MergeBeforeSplit:=True

[fb62840]

Merci pour votre aide mais je n'y arrive pas avec votre code

SI je modifie ainsi le mien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
mytbl.Rows.Add
derligne=mytbl.Rows.Count
Selection.Cells.Split NumRows:=1, NumColumns:=4, MergeBeforeSplit:=true

J'obtiens une erreur d'exécution 438 Propriété ou méthode non gérée par cet objet.

EN fait je dois faire une erreur relative à la sélection de la dernière ligne qu'il faut fractionner.

Merci pour votre aide encore une fois.

Re-,

Permet de scinder la cellule en 2 cellules (2 colonnes sur 1 ligne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Cells.Split NumRows:=1, NumColumns:=2, MergeBeforeSplit:=True

[QuestVba]

Re-

Comme ceci(scinde la cellule 1,1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveDocument.Tables(1)
   .Cell(1, 1).Split NumRows:=1, NumColumns:=2
End With

[fb62840]

Non ça ne marche toujours pas car avec le code ci-dessous ce qui se produit est étrange
les 2 premières lignes sont correctes (elles contiennent les données de la listbox col 1, 2, 3, 4, 5 pour la ligne 1 de cette liste box
Ensuite
une ligne est créée
puis la première cellule de cette ligne est fractionnée en 4 colonnes et les données de la seconde ligne de la listbox se placent dans les 4 colonne créées dans la 1ère cellule de la 3ème et 4ème ligne

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
 
For Z = 0 to Me.LB.Synthese_frm.ListCount - 1
derligne = mytbl.Rows.Count
Me.LbSynthese_frm.Selected(z) = true
With mytbl
mytbl.Cell(derligne, 1).Range.Text = Me.LBsynthese_frm.Column(0)
mytbl.Cell(derligne, 2).Range.Text = Me.LBsynthese_frm.Column(1)
mytbl.Cell(derligne, 3).Range.Text = Me.LBsynthese_frm.Column(2)
mytbl.Cell(derligne, 4).Range.Text = Me.LBsynthese_frm.Column(3)
End With
mytbl.Cell(derligne, 0).Range.Text = Me.LBsynthese_frm.Column(4)
mytbl.Rows.Add
derlign = mytbl.Rows.Count
Mytbl.Cell(derligne, 1).Split NumRows:=1, NumColumns:=4
Next Z

Re-

Comme ceci(scinde la cellule 1,1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveDocument.Tables(1)
   .Cell(1, 1).Split NumRows:=1, NumColumns:=2
End With

[QuestVba]

Bonjour,

Voici un code qui permet de se situer en dernière ligne du tableau d'y insérer un ligne (contenant une cellule) et de scinder cette ligne en 3 colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub insertion_une_ligne_et_fractionnement()
 
lig = ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables(1).Rows(lig).Select
Selection.InsertRowsBelow
Selection.InsertRowsBelow 1
Selection.Cells.Merge
Selection.Cells.Split NumRows:=1, NumColumns:=3
 
End Sub

[fb62840]

Bonjour,

Merci pour ces réponses qui m'aident vraiment à progresser.
Je suis malade depuis hier soir alors je vais devoir faire une petite pause. Je testerai et reviendrai vers le forum très vite.

Bonjour,

Voici un code qui permet de se situer en dernière ligne du tableau d'y insérer un ligne (contenant une cellule) et de scinder cette ligne en 3 colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub insertion_une_ligne_et_fractionnement()
 
lig = ActiveDocument.Tables(1).Rows.Count
ActiveDocument.Tables(1).Rows(lig).Select
Selection.InsertRowsBelow
Selection.InsertRowsBelow 1
Selection.Cells.Merge
Selection.Cells.Split NumRows:=1, NumColumns:=3
 
End Sub