Macro coller dans une même case d'un tableau
Bonjour,
Un autre épisode dans la série des sauts de lignes après collage.
Cette fois-ci je ne comprends pas du tout pourquoi cela ne marche pas. Voici mon problème :
Je fais une sélection d'une plage de cellule. Je souhaite copier/coller uniquement les cellules non vide dans une case d'un tableau word. J'arrive à sélectionner les cellules non vide mais lors du collage sur word, il colle toujours sur la même ligne.
Voici le code :
Set Plage = Range("Y6:Y15")
For Each Cell In Plage
If Cell <> "" Then
Cell.Copy
wordDoc.Tables(2).Columns(1).cells(1).Range.Text = Cell & vbcrlf
End If
Next Cell
J'ai certes un saut de ligne mais à la fin de la dernière cellule non vide ><
Une petite idée ?
Merci d'avance.
J'ai essayé avec Selection.TypeParagraph mais ça ne marche pas non plus
C'est bon j'ai réussi !
Enfin j'ai bidouillé pour copier mes cellule dans de nouvelles lignes à chaque collage.
Voici le code final :
i = 1
Set Plage = Range("Y6:Y15")
For Each cell In Plage
If cell <> "" Then
cell.Copy
wordDoc.Tables(2).Columns(1).cells(i + 0).Range.Text = cell
End If
i = i + 1
Next cell
J'ai amélioré le code comme ceci :
j = 1
Set Plage = Range("Y6:Y35")
For Each Cell In Plage
If Cell <> "" Then
wordDoc.Tables(2).Columns(1).cells(0 + j).Range.Text = Cell
j = 1 + j
End If
Next Cell
For Each para In ActiveDocument.Paragraphs
If para.Range.Text = vbCr Then para.Range.Delete
Next para
Cela me permet de coller les lignes une par une et d'effacer les lignes vides après le collage
Bonne aprèm !