Re : Remplir un tableau Word via un tableau excel
Bonjour ian29
Tu dois utiliser deux compteurs un pour excel et un pour word
Teste cette solution, je ne l'ai pas essayé.
Dim pft As Integer
compteword=1
For pft = 2 To NL
If Sheets("Pertes traitées").Range("B" & pft).Value > 3 Then
WordDoc.Tables(1).Columns(1).Cells(compteword).Range.Text = Range("A" & pft)
compteword=compteword+1
End If
Next pft