Macro sous Word copié sur ce Forum, avec résultat "Attendu : Fin d'instruction"

Version imprimable

15/06/2017, 18h59
camelor12

1 pièce(s) jointe(s)

Macro sous Word copié sur ce Forum, avec résultat "Attendu : Fin d'instruction"

Bonjour,

Tout est presque dans l'intitulé.
Mais d'abord, je dois solliciter votre bienveillance, si je poste dans un Forum inadapté. C'est mon 1er post ici.
Ensuite, il me faut préciser que je n'ai jamais effectué la moindre Macro ! Pire, je sais à peine ce dont il s'agit.
Pour le reste :
Ayant un fichier Word, importé de Excel (je devrais dire, bidouillé) j'ai un tableau de 409 lignes dont un grand nombre sont vierges. Je ne parviens pas, pour les supprimer, à sélectionner plusieurs lignes à la fois en agissant comme d'habitude sur "ctrl".
J'ai vu sur l'un des Forums de ce Site, une macro répondant exactement à mon problème. Je le mets en pièce jointe sous le nom de "Modèle". (Je ne parviens pas à mettre 2 pièces jointes. J'essaierai de la poster autrement.)
J'ai essayé de le copier exactement sur la feuille Microsoft Visual Basic. %ais j'obtiens un message d'erreur de compilation ainsi que "Attendu : Fin d'instruction". Je mets ce résultat en pièce jointe, sous le nom de "ERREUR".

J'ai conscience de poser ici une question ... basique, sans doute assez ridicule ! Mais à 81 ans, on ne doute de rien...

Merci par avance si une aide est possible, et de surcroît, si elle m'est compréhensible.
15/06/2017, 19h05
camelor12

1 pièce(s) jointe(s)

Suite du post : Macro sous Word copié sur ce Forum, avec résultat "Attendu : Fin d'instruction"

Juste pour joindre le "Modèle" trouvé sur ce Forum.
15/06/2017, 21h25
clementmarcotte

Bonjour,

Efface ta ligne en rouge avec sub essai1(1)

Il manque un End Sub pour fermer cette sub-là

Il est impossible d'imbriquer des subs

P.S. Il est préférable de mettre le code directement dans la question au lieu de mettre une image. Le forum accepte les copier-coller. Également, il vaut mieux continuer le sujet initial que d'en ouvrir un autre, tant et aussi longtemps que c'est lié à la question initiale.

Bonjour,

Si c'est un tableau que tu as dans ton document, ta macro ne fonctionnera pas. C'est une macro pour effacer les lignes vides d'un texte. Pas d'un tableau.

Voici la macro que j'utilise pour enlever toutes les rangées vides d'un tableau. C'est une macro qui vient du site MVP :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub Effacer_lignes_vides()
'Deleting all empty rows in a table
 
    ''Note that you could delete the empty rows from all tables in a document by replacing the line:
    ''    Set oTable = Selection.Tables(1)
    ''With the line
    ''    For Each oTable In ActiveDocument.Tables
    ''and adding the line:
    ''    Next oTable
    ''just Before:
    ''    Application.ScreenUpdating = True
 
Dim oTable As Table, oRow As Range, oCell As Cell, Counter As Long, _
NumRows As Long, TextInRow As Boolean
 
' Specify which table you want to work on.
Set oTable = selection.tables(1)
' Set a range variable to the first row's range
Set oRow = oTable.Rows(1).Range
NumRows = oTable.Rows.count
Application.ScreenUpdating = False
 
For Counter = 1 To NumRows
 
    StatusBar = "Row " & Counter
    TextInRow = False
 
    For Each oCell In oRow.Rows(1).Cells
        If Len(oCell.Range.Text) > 2 Then
            'end of cell marker is actually 2 characters
            TextInRow = True
            Exit For
        End If
    Next oCell
 
    If TextInRow Then
        Set oRow = oRow.Next(wdRow)
    Else
        oRow.Rows(1).delete
    End If
 
Next Counter
 
Application.ScreenUpdating = True
 
End Sub

Bonne chance!

Souriane