Modifier des tableaux sous WORD en VBA [Résolu]
A voir également:
- Modifier des tableaux sous word en vba
- Word bookmark vba ✓ - Forum - Visual Basic
- Creer/ajouter text, image, tableau wordart word document en vb.net - Codes sources - Visual Basic / VB.NET (Tutoriels)
- Visual Basic / VB.NET : Ajouter des tableaux dans word - CodeS SourceS - Guide
- Visual Basic / VB.NET : [Word][Macro VBA] Insérer image depuis scanner - CodeS SourceS - Guide
- Modifier un entête dans Word ✓ - Forum - VBA Office (Excel, Word ...)
4 réponses
Bonjour !
Une boucle For me parait plus adapté
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
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
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
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
Bonsoir !
Regarde ici ! tu devrais trouver ton bonheur ( je ne suis pas spécialiste en VBA) : https://word.developpez.com/faq/?page=tableaux-VBA
Regarde ici ! tu devrais trouver ton bonheur ( je ne suis pas spécialiste en VBA) : https://word.developpez.com/faq/?page=tableaux-VBA
Ca y est j'ai trouvé sur le forum developpez .com pourquoi :
"Nous avons vu comment ajouter un contenu à une cellule et un exercice pour le récupérer. Lors de cette récupération, vous aurez probablement remarqué que le texte récupéré est plus long que le texte ajouté. Ce phénomène est dû aux caractères non imprimables qui délimitent la cellule. Pour remédier à cet inconvénient, nous allons fabriquer une petite fonction utilisant certaines fonctions que nous avons vues dans les chapitres précédents "
https://heureuxoli.developpez.com/office/word/vba-word/#LVI
voir VI -A- 3
"Nous avons vu comment ajouter un contenu à une cellule et un exercice pour le récupérer. Lors de cette récupération, vous aurez probablement remarqué que le texte récupéré est plus long que le texte ajouté. Ce phénomène est dû aux caractères non imprimables qui délimitent la cellule. Pour remédier à cet inconvénient, nous allons fabriquer une petite fonction utilisant certaines fonctions que nous avons vues dans les chapitres précédents "
https://heureuxoli.developpez.com/office/word/vba-word/#LVI
voir VI -A- 3
- Messages postés
- 2026
- Date d'inscription
- samedi 11 janvier 2014
- Statut
- Contributeur
- Dernière intervention
- 20 janvier 2020
80Les lettres ( A, B, C, etc...) , les chiffres (0, 1,2,etc....) et certains caractères ( deux-points, virgule, parenthèses, etc....:) sont imprimables eux ;