Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer les lignes vides mais pas les sauts de page

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion C@thy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

C@thy

XLDnaute Barbatruc
Bonjour,

cette macro supprime les lignes vides, mais les sauts de page aussi 😡

Code: 
Public Sub SupprimerLignesVides()
Dim para As Paragraph
Dim i As Integer
Dim y As Integer
 
i = 0
For Each para In ActiveDocument.Paragraphs
    i = i + 1
    para.Range.Select
    y = Len(Selection.Words(1))
    If y = 1 Then Selection.Delete
Next para
End Sub

Cette macro ne supprime pas les paragraphes vides isolés

Code: 
Public Sub SupprimerParagraphesVides()
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^013{2;}"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Avez-vous une soluce???

Merci

C@thy
 
Trier par date Trier par votes
Re : Supprimer les lignes vides mais pas les sauts de page

coucou (re)

ben ça je l'ai déjà fait, (c'est ce que fait la 2ème macro que j'ai mise)
c'est pour ceux qui restent tout seuls


Bises

C@thy
 
Vote positif 0 Vote négatif
Re : Supprimer les lignes vides mais pas les sauts de page

Re

J'avais pas vu (pas l'habitude des expressions régulières)

Une piste car en regardant Dico, j'ai déduis, peut-être à tort, qu'il s'agit des fin de paragraphes qui suivent les tableaux.

Si c'est le cas
Code: 
Sub Macro2()

Selection.HomeKey Unit:=wdStory
y = ActiveDocument.Tables.Count

For i = 1 To y
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.Tables(1).Select
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    x = Selection.Characters.Count
    If x = 1 And Selection = Chr(13) Then Selection.Delete
 Next
End Sub
A utiliser après celle qui enlève les doubles.

Sinon précise car je ne vois pas les para isolés.
 
Vote positif 0 Vote négatif
Re : Supprimer les lignes vides mais pas les sauts de page

OK, Chris, tu m'as bien aidée, j'ai peaufiné la chose :

Public Sub SupprimerLignesVides()
Dim para As Paragraph
Dim i As Integer
Dim y As Integer

i = 0
For Each para In ActiveDocument.Paragraphs
i = i + 1
para.Range.Select

y = Len(Selection.Words(1))
If y = 1 And Selection = Chr(13) Then Selection.Delete
If y = 1 And Selection = Chr(12) & Chr(13) Then
Selection.MoveStart Unit:=wdCharacter, Count:=1
Selection.Delete
End If
Next para
End Sub

Un grand MERCI à toi et bonne journée

Bises

C@thy
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Supprimer les lignes vides mais pas les sauts de page

Bonjour

Décidément je n'ai pas assez regardé tes macros hier et me suis concentrée sur la compréhension du problème ! 🙄

Cela me replonge dans le VBA word (je n'ai pas eu l'occasion d'en faire depuis longtemps et j'en ai fait peu car j'avais surtout développé du Word Basic) : un peu de gym à neurones ne fait pas de mal.

Bonne journée
 
Vote positif 0 Vote négatif
Re : Supprimer les lignes vides mais pas les sauts de page

et voici la version définitive :

Code: 
Public Sub SupprimerLignesVides()
Dim para As Paragraph
Dim i As Integer
Dim y As Integer
 
i = 0
For Each para In ActiveDocument.Paragraphs
    i = i + 1
    para.Range.Select
 
    y = Len(Selection.Words(1))
    If y = 1 And Selection = Chr(13) Then Selection.Delete
    If y = 1 And Selection = Chr(12) & Chr(13) Then
       Selection.MoveStart Unit:=wdCharacter, Count:=1
       Selection.Delete
    End If
     If y = 1 And Selection = Chr(13) & Chr(12) Then
       Selection.MoveEnd Unit:=wdCharacter, Count:=1
       Selection.Delete
     End If
 
 
Next para
End Sub

Et là, ça fait tout ce que je veux

Un grand Merci à toi

Bises

C@thy
 
Vote positif 0 Vote négatif
Re : Supprimer les lignes vides mais pas les sauts de page

Arf! Je vais mettre un ElseIf ça fera plus joli!😛

If y = 1 Then
If Selection = Chr(12) & Chr(13) Then
Selection.MoveStart Unit:=wdCharacter, Count:=1
ElseIf Selection = Chr(13) & Chr(12) Then
Selection.MoveEnd Unit:=wdCharacter, Count:=1
End If
Selection.Delete
End If

Bonne journée

C@thy
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
532
patricktoulon
R
  • Question Question
Word Variable de bloc with non définie
Réponses
6
Affichages
900
Staple1600
  • Question Question
Microsoft 365 [VBA] Enchaîner déplacer lignes + supprimer les lignes vides.
Réponses
3
Affichages
858
ARMAEL
A
M
  • Résolu(e)
Supprimer une ligne d'un tableau selon la valeur d'une cellule sous VBA (sans supprimer les lignes au dessus)
Réponses
14
Affichages
9 K
MaDesn
M
K
  • Question Question
Supprimer ligne avec condition
Réponses
14
Affichages
1 K
ketzakoalt
K
S
  • Question Question
Word formattage italique et insertion lien hypertexte dans W2007
Réponses
0
Affichages
1 K
stephsteph
S
  • Question Question
Macro supprimer lignes vides
Réponses
11
Affichages
7 K
good57
B
  • Question Question
Macro pour supprimer les lignes entièrement vides d'un tableau Excel
2
Réponses
17
Affichages
7 K
job75
M
  • Question Question
SUPPRIMER TOUTES LES COLONNES DE H à T ne comprenant pas la valeur choisie
Réponses
7
Affichages
971
Merlin258413
M
C
  • Question Question
Controler Word à partir d'excel --> remplacer ^p
Réponses
0
Affichages
789
claire_la_geek
C
S
  • Question Question
Supprimer les lignes vides jusqu'à la fin de la feuille
2
Réponses
24
Affichages
23 K
laetitia90
L
P
  • Question Question
importer plusieurs tableau word en gérant les sauts de lignes
Réponses
1
Affichages
869
pierre3401
P
M
  • Question Question
supprimer lignes vides d'une plage sans supprimer les lignes de la feuille
Réponses
10
Affichages
9 K
MaLoNeurons
M
  • Question Question
VBA Recherche d'un mot/signet dans word et le supprimer.
Réponses
1
Affichages
9 K
tototiti2008
  • Question Question
Recherche un mot dans word et le supprimer.
Réponses
3
Affichages
2 K
thom02
O
  • Question Question
Suppression de lignes d'après les checkbox d'un userform
Réponses
11
Affichages
2 K
Oldevi
O
G
  • Question Question
[Resolu] pas de mise a jour apres suppression de lignes avec SpecialCells(xlLastCell)
Réponses
2
Affichages
2 K
g.milano
G
A
  • Question Question
Ne pas supprimer lignes si non vides et couleur
Réponses
5
Affichages
941
ascal44
A
S
  • Question Question
Macro fonctionne en 2007, mais pas en 2003...besoin d'aide
Réponses
11
Affichages
2 K
sim
S
  • Question Question
Word : rechercher/remplacer
Réponses
1
Affichages
3 K
C@thy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…