Insertafter.paste sur cellule tableau word depuis Excel
A
Bonjour à tous,
Depuis un userform excel je remplis un word, qui contient un tableau A (tbltemp) avec plusieurs lignes, et un tableau B (tbl1) à 1 seule ligne.
Le tableau A ses lignes remplies, et je souhaite faire un couper coller de ces dernières les unes à la suite des autres dans la ligne du tableau B, en gardant la mise en forme source.
Avec le code suivant, le .range.paste fonctionne mais supprime à chaque fois l'action précédente, j'aimerais trouver un moyen de faire une sorte de insertafter pour ne pas tout supprimer.
Merci de votre aide !
Depuis un userform excel je remplis un word, qui contient un tableau A (tbltemp) avec plusieurs lignes, et un tableau B (tbl1) à 1 seule ligne.
Le tableau A ses lignes remplies, et je souhaite faire un couper coller de ces dernières les unes à la suite des autres dans la ligne du tableau B, en gardant la mise en forme source.
Avec le code suivant, le .range.paste fonctionne mais supprime à chaque fois l'action précédente, j'aimerais trouver un moyen de faire une sorte de insertafter pour ne pas tout supprimer.
Merci de votre aide !
Do While ligtbltemp < 51 Or nbactueldelignes = 0
nbactueldelignes = Application.WorksheetFunction.Sum(myarray)
tbltemp.Columns(1).Cells(ligtbltemp).Range.Cut
If nbactueldelignes > nbtotaldelignes / 2 Then
tbl1.Columns(1).Cells(1).Range.Paste
Else
tbl1.Columns(2).Cells(1).Range.Paste
myarray(ligtbltemp - 1, 0)
End If
ligtbltemp = ligtbltemp + 1
LoopBonjour une essai,
Dim tbltemp As Table
Dim tbl1 As Table
Dim ligtbltemp As Integer
Dim nbactueldelignes As Integer
Dim nbtotaldelignes As Integer
Dim myarray() As Integer
Set tbltemp = ThisDocument.Tables("tbltemp")
Set tbl1 = ThisDocument.Tables("tbl1")
ligtbltemp = 1
' Assume que nbtotaldelignes est défini ailleurs dans votre code
Do While ligtbltemp < 51 Or nbactueldelignes = 0
nbactueldelignes = Application.WorksheetFunction.Sum(myarray)
tbltemp.Rows(ligtbltemp).Range.Cut
If nbactueldelignes > nbtotaldelignes / 2 Then
tbl1.Rows(tbl1.Rows.Count).Range.Paste
Else
tbl1.Rows(tbl1.Rows.Count).Range.Paste
End If
ligtbltemp = ligtbltemp + 1
LoopBonn journée
Oiseau bleu