Discussion :

[DanielBretelles]

Bonjour le monde !
Bon weekend pascal, même si ce n'est pas votre prénom !
J'ai bien compris que les codes définissant une marque de fin de cellule sont "Chr(13) & Chr(7)" et ai pu les intégrer dans une macro, mais...
Non di ch'toupette pas moyen de trouver l'équivalent pour une marque de fin de ligne dans un tableau Word.
Si quelqu'un de l'honorable assistance pouvait m'aider, je voudrais éviter le classique "On Error Resume Next"
à bientôt, j'espère,
Daniel Bretelles

[cerede2000]

Bonjour à toi,

Que penses tu de ceci :

Code :

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

1
2
3
4
5
6
7
8
  Dim oTbl As Table
  Set oTbl = ActiveDocument.Tables(1)
 
  For Each oRow In oTbl.Rows 'Chaque ligne du tableau
    For Each oCell In oRow.Cells 'Chaque colonne de la ligne
        Debug.Print oCell.Range.Text
    Next
  Next

[DanielBretelles]

Hello cerede2000 ,
Bien aimable pour la tentative, mais...
J'ai un scrongneugneu de document Word que je dois examiner caractère par caractère, d'où mon interrogation sur les codes ASCII !
Voili, voilà,
Bonne journée et bien merci de Belgique

[cerede2000]

Ah oui !
Dans ce cas je comprends
Une ligne se termine par le même ensemble qu'une cellule.
Donc dernière cellule de la ligne : <valeur de la cellule> Chr(13) Chr(7) Chr(13) Chr(7)

[DanielBretelles]

Hello cerede2000 ,
Malheureusement cela ne fonctionne pas
Le document sur lequel je travaille est ici
À noter que la détection de fin de cellule fonctionne parfaitement. Il n'en est pas de même avec la détection de fin de ligne de tableau
Si je m'équipe du célébrissime "On Error Resume Next", tout fonctionne comme je veux, mais... Je voudrais me passer de cet artifice.
À toi et au monde entier, par avance, merci.
Cordialement,
Daniel Bretelles

[DanielBretelles]

À tous présents et à venir, salut (J'aime bien dire ça )
Le problème est contourné en supprimant une instruction que j'avais mise, je ne sais plus pourquoi, damned !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If Asc(Selection) = 123 Then
            While Asc(Selection) <> 125
                Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
                Selection.Delete
            Wend
            'Suppression de l'accolade fermante
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
            Selection.Delete
        Else
            'Selection = Selection
End If

J'ai donc mis un Rem devant Selection=Selection.
Merci à tous ceux qui se seraient penchés sur mon ch'ti problème.
À bientôt,
Daniel Bretelles

[cerede2000]

Et du coup, comment détermine tu la fin de ta ligne de tableau ?
Car dans le code posté je ne vois rien la dessus ??

[DanielBretelles]

Hello la France et cerede2000
Effectivement, mon code saute l'obstacle sans vraiment l'identifier. Malheureusement je n'ai pas le temps d'investiguer plus, il faut que je continue le travail qui m'est demandé.
Si par bonheur tu trouves une solution plus "intelligente" que la mienne, je prends avec un plaisir et une humilité non dissimulé.
Bonne continuation,
Daniel Bretelles

[cerede2000]

Ben je comprends pas ce qui te manque, essaye ceci :

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
Sub parcours()
    Dim letter
    Dim precLetter
 
    For Each letter In ActiveDocument.Range.Characters
        If letter = Chr(13) & Chr(7) Then
            If precLetter = Chr(13) & Chr(7) Then
                Debug.Print "EOL marker" 'fin de ligne detectée
            Else
                Debug.Print "EOC marker" 'fin de cellule detectée
            End If
        Else
            Debug.Print letter
        End If
        precLetter = letter
    Next
End Sub

Je parcours le document caractère par caractère et je détecte les fin de cellules et les fin de lignes indépendamment

[DanielBretelles]

Je vais essayer ! Promis
D'autant plus que cela me donne des idées pour la suite de mon travail
De toutes les manières, merci
Daniel