Modifier des tableaux sous WORD en VBA Résolu

Question

Bonjour, 

Je recherche à aller dans tous les tableaux qui existent dans mes tableaux du document word afin de les modifier.
Mon code tourne à l'infini visiblement.
Merci de l'aide.
Dim strcp As StringDim i As IntegerDim rgeTable As RangeDim temp As StringDim stTemp As StringDim NetText As StringWith ActiveDocument    Do While .Tables.Count > 0        'Set range to first table        Set rgeTable = .Tables(1).Range       '.Tables(1).Range.Select        strcp = .Tables(1).Cell(1, 1).Range.Text        temp = "MonTexte"        If strcp = temp Then            .Tables(1).Rows(4).Delete            .Tables(1).Rows(5).Delete            .Tables(1).Rows(6).Delete            stTemp = .Tables(1).Cell(2, 1).Range.Text            NetText = Mid(stTemp, 3, 8)            'NetText = Left(stTemp, Len(stTemp - 20))            .Tables(1).Cell(1, 1).Range.Text = NetText        End If    LoopEnd WithEnd Sub

vb95 · Answer

Bonjour !
Une boucle For me parait plus adapté

Dim strcp As String
Dim i As Integer
Dim rgeTable As Range
Dim temp As String
Dim stTemp As String
Dim NetText As String
For i = 1 to  ActiveDocument.Tables.Count
    With ActiveDocument.Tables(i) ' pour chaque tableau
        'Set range to first table
        Set rgeTable = .Range
        '.Range.Select
        strcp = .Cell(1, 1).Range.Text
        temp = "MonTexte"
        If strcp = temp Then
            .Rows(4).Delete
            .Rows(5).Delete
            .Rows(6).Delete
            stTemp = .Cell(2, 1).Range.Text
            NetText = Mid(stTemp, 3, 8)
            'NetText = Left(stTemp, Len(stTemp - 20))
             .Cell(1, 1).Range.Text = NetText
        End If
    End With
Next i
 

Pour poster ton code, merci de lire et d’appliquer ce qui est décrit dans ce petit tuto ( ton code sera bien plus lisible et coloré )  --> https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

cocopops · Answer

Hello
Merci de l'aide et de la recommandation ; c'est en effet plus agrébale à lire.
Sinon la macro tourne mais il ne se passe rien sur mes tableaux.
Apres un pas à pas , il semblerait que mes variable strcp n'est jamais identique à temp => du coup je ne rentre jamais dans la boucle If.
Cela est lié au fait que strcp="Mon Texte°" et temp ="Mon Texte" il y a un caractère supplémentair dans strcp ( d'ailleurs d'ou vient il ??? ).

J'ai essayé de m'en débarasser avec la fonction suivante trouvé sur forum mais ça marche pas 

Public Function NetText(stTemp As String) As String
'Nous utilisans les caractères de la chaîne sans les deux derniers
NetText = Left(stTemp, Len(stTemp) - 1)
End Sub

vb95 · Answer

Bonsoir ! 
Regarde ici ! tu devrais trouver ton bonheur ( je ne suis pas spécialiste en VBA) : https://word.developpez.com/faq/?page=tableaux-VBA

vb95 · Answer

Je crois savoir que ce sont des retour-chariot qui sont ajoutés par Word lui-même

Modifier des tableaux sous WORD en VBA

4 réponses

Votre réponse

Discussions similaires