Discussion :

[foudesbois]

Bonjour,

Voici mon problème : je cherche à compter le nombre ligne d'une colonne bien précise dans une table

J'ai tout d'abord testé cette solution qui fonctionne parfaitement pour une table où toutes les colonnes ont le même nombre de 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
 
Function rechercheLigne(motCle As String, ByVal doc As Document, nTable As Integer, nCol As Integer) As Integer
    Dim i As Integer
    Dim x
 
    x = doc.Tables(nTable).Rows.Count
 
    For i = 1 To doc.Tables(nTable).Rows.Count Step 1
        If (doc.Tables(nTable).Cell(i, 1).Range.Text Like motCle) Then
        rechercheLigne = i
        Exit For
        End If
    Next i
End Function

Cela ne fonctionne plus si ma colonne contient moins de ligne que ma table ...

[carden752]

Bonjour,

L'information est directement disponible avec cette ligne de code ou col représente l'index de la colonne à compter.

Code :

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

doc.Tables(1).Columns(col).Cells.Count

[foudesbois]

Merci de ta réponse carden.

Ceci me paraissait une bonne solution mais finalement cette ligne génère l'erreur d'exécution '5992'

"Impossible d'accéder à des colonnes individuelles de cette collection car le tableau possède des cellules de largueur différentes"

[carden752]

Bonjour,

Le problème venait du fait que certaines cellules étaient fusionnés avec d'autres de colonnes différentes, il faut donc ruser.

En se basant sur les indices de range des cellules, on peut y arriver.
Pouvez-vous le tester et le confirmer. L'erreur générée est la 5941

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
16
17
18
19
20
21
Function nbligcol(doc As Document, col As Integer) As Integer
Dim d As Cell
Dim start As Long
nbligcol = 0
start = 0
For i = 1 To doc.Tables(1).Rows.Count
Set d = doc.Tables(1).Cell(i, col)
On Error GoTo plus
nbligcol = nbligcol + 1
start = d.Range.start
Next
Exit Function
plus:
If start <> d.Range.start And Err.Number = 5941 Then
nbligcol = nbligcol + 1
start = d.Range.start
End If
i = i + 1
Resume
 
End Function

[foudesbois]

Effectivement cette solution fonctionne.

Merci beaucoup !!