Discussion :

[Tanoffy]

Bonjour à tous,

Me voilà de retour avec une nouvelle problématique: je dispose de tableaux dans un fichier Word. Ces tableaux sont du type de celui dans le fichier joint.

Mon but est de valider que les valeurs à tester sont inférieures à un seuil.

Je suis partie sur le principe d'une première boucle pour trouver la colonne à tester dont j'ignore a priori l'emplacement, j'en connais juste le titre. Première difficulté: du fait des cases fusionnées, il y a un décalage entre la première ligne et la troisième ligne pour la n-ième colonne.
En partant de la fin du tableau, je suis parvenue à contourner la difficulté mais je souhaiterais savoir s'il existe une autre solution, plus légère:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For Each oTab In ThisDocument.Tables
 
    While NetText(oTab.Cell(3, intTC1).Range.Text) <> "Reached RPN"
    intTC1 = intTC1 + 1
    Wend
    While NetText(oTab.Cell(3, intTC1 - intTC2).Range.Text) <> "Theorical RPN"
    intTC2 = intTC2 + 1
    Wend
    For intTR = 5 To oTab.Rows.Count
        MsgBox NetText(oTab.Cell(2, 1).Range.Text) & " " & NetText(oTab.Cell(intTR, oTab.Columns.Count - intTC2).Range.Text)
    Next intTR
Next oTab

Seconde difficulté ensuite: certaines cases de la colonne testée sont fusionnées sur plusieurs lignes (cf le fichier joint). Du coup, lors que la boucle arrive à une case comme celle-là, le programme se met en erreur car la case recherchée n'existe pas.

Comment puis-je faire pour contourner cette difficulté?

Merci d'avoir lu jusque là! Et merci à ceux et celles qui prendront le temps de réfléchir à mon problème

Bonne journée à vous,

Tanoffy