[VBA-E] Problème de tableau Error 5992

Version imprimable

Bonjour, Excel m'indique l'erreur suivante :

Erreur d'exécution 5592
Impossible d'accéder à des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différente.

Et là j'avoue être perdu.

Mon code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Sub DistanceParoi()
 
Dim rep
 
texte = "Doit-on compléter machin truc ? "
 
Call Word_Ouvrir_document(NomFichier, True)
 
For k = 1 To 4
    rep = MsgBox(texte & k, vbQuestion + vbYesNo + 256, "Attention")
    If rep = vbYes Then
        For I = 17 To 26
        valeur = Worksheets("Vitesse effluent Axe 1 et 2").Cells(I, 2).Value
        For J = 3 To 12
        ActiveDocument.Tables(k).Columns(1).Cells(J).Range.Text = valeur
        Next J
        Next I
    End If
Next k
 
End Sub

ben sous Word.. j'aurai pensé à :
Code:

1 2 ActiveDocument.Tables(k).Cells(J,1).Range.Text = valeur

06/07/2006, 11h32
sat478

Non cela ne fonctionne pas ainsi sous word, cela ressemble plus à une syntaxe excel
06/07/2006, 11h46
SfJ5Rpw8

Citation:

Envoyé par sat478

Non cela ne fonctionne pas ainsi sous word, cela ressemble plus à une syntaxe excel

à oui sous word il ne faut pas le s à cell ;)
06/07/2006, 11h58
sat478

oui c bien cela je ne sais pas pourquoi mon code ne fonctionnait pas, c'est celui que j'avais testé sur internet

enfin merci beaucoup