Suppression d'une ligne vide sur excel

Salut tout le mode,

Si notre ami Vaucluse voit juste, pour ma part après la gnôle qui rend les idées claires, un code sur le fichier de Vaucluse

https://www.cjoint.com/?kypLlPqjm0

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Re Mike
on met d'abord un point pour le travail et on fait les remarques aprfès (du moins "la "remarque) étant donné que nous n'avons pas bu la goutte:
on note dans ta solution que s'il n'y a pas d'espace entre les lignes différentes celles ci sont mises bout à bout:
cf/ AAAAAABBBBBBBBB et CCCCCCCC dans la première cellule de mon modèle
Why?
Là je chipote, mais c'est samedi!
Bien amicalement

Peux-tu reformuler ta question ?
En effet une ligne est formée de cellules placées côte-à-côte horizontalement, une colonne est formée de cellules placées côte-à-côte verticalement.
Il ne peut donc pas y avoir de "ligne vide dans une cellule".
Peut-être voulais-tu dire "une ligne vide dans une feuille de calcul" ? Dans ce cas, si la ligne est vraiment vide, tu peux la supprimer sans crainte ; tu la sélectionnes, tu fais clic-droit dedans et tu choisis Supprimer.
Par contre, une ligne vide, ça se voit à l'écran ; ça ne se cherche pas de manière automatique. Il n'y a pas l'équivalent de la recherche d'un saut de paragraphe ¶ dans Word.

Un conseil : Avant de faire tes essais de suppression, crée d'abord une copie de secours de ton fichier !

Bonjour

Peut être aussi avez vous dans une cellule plusieurs lignes superposées dont une vide?
je ne pense pas que l'on puisse traiter ble problème sur Excel du moins si il se présente comme je le pense.Tout au plus peut on évoquer le format de cellule "alignement" et décocher retour à la ligne. Ceci vous mettra les lignes l'une derrière l'autre sans espace, mais je ne vois rien d'autre.
crdlmnt

Crdlmnt

Bonjour
c tres simple
clique a droite sur le bouton de la sourie
puis sur supprimer
alors une boite sera affichee, selectionne "decaler vers la haut"
basta c fini

:)

Bonjour, adf.
Donc, il s'agit bien d'une cellule dans laquelle tu as beaucoup de texte ?
Cette cellule a reçu le Format/Cellule/Alignement/Renvoyer à la ligne automatiquement ?
Et tu constates qu'il y a une ligne de ce texte qui est vide ? Alors tu utilises la touche [suppr].
Je confirme qu'il n'y a pas l'équivalent de Word pour l'effacer, car la gestion des caractères dans une cellule d'Excel, ce n'est pas un traitement de texte aussi évolué que Word.
La proposition du post 2 est à prendre en considération. Pas celle du post 3.
Cordialement.

Tant mieux !
Mais nous, nous ne saurons jamais de quoi tu parlais, puisque cette fois encore tu expliques
"J'ai tout simplement copier/coller d'Excel vers word les cellules que je voudrais corriger, et puis je fais le nécessaire pour enlever les lignes vides, afin de copier/coller à nouveau sur de Word vers Excel les cellules sans les lignes vides" ! Et on aurait beaucoup aimé voir ou savoir à quoi ressemblent tes fameuses cellules ...

Salut,

C'est nouveau, ça vient de sortir

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Salut les copains bon WE
Voila ci joint ce que je crois pouvoir comprendre quand on parle de cellule avec des lignes vides.
Dans le fond, ça reste logique et justifié comme appelation,, mais ça n'est pas facile à traiter par formule.
Allez Mike, une macro?... avant l'apèro?
Attention enlève les vides en gardant la configuration des autres, (j'ai déja proposé de les coller l'une derrière l'autre au message 2)
http://www.cijoint.fr/cjlink.php?file=cj200910/cijT9CHtfs.xls
Il semble que le demandeur aie résolu son problème en passant apr Word.
Bien amicalement

re,

A jeun j'y penserai,
avec vbCrLf ou vbCr ou encore vbLf avec un Replace ça devrai le faire

Bonne aprés midi

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Bonsoir,

Cette question, je l'ai déjà posé...

https://forums.commentcamarche.net/forum/affich-1829397-excel-comment-supprimer-des-retours-chariot

un résumé:

Sub quelcaractere()
Dim old_text As String
Dim new_text As String

For i = 2 To 15444
    
    If Range("AD" & i).Value <> "" Then
    old_text = Range("AD" & i).Value
    new_text = Replace(old_text, Chr(10), " - ")
    new_text = Replace(new_text, Chr(13), " - ")
    new_text = Replace(new_text, "  ", " ")
    Range("AC" & i).Value = new_text
    End If
Next
End Sub

Cela retire l'ensemble des retours chariot présent dans les cellules de la colonne AD de la ligne 2 à 15444

dit moi si cela peut te servir?

@+
Laurent

Salut,

Me revoilà,

pour l'exemple de adf sur son post 6, en supposant que la zone à traiter est sur la plage A1 à A50

coller ce code dans un module et l'associer à un bouton ou l'intégrer dans les propriétés d'un bouton

Un exemple est plus parlant, (à la tienne Vaucluse)

https://www.cjoint.com/?kBrYekgTlU

Sub Macro5()
Dim CL As Range
For Each CL In Range("A1:A50")
CL = Replace(CL, Chr(10), "¶")
CL = Replace(CL, "¶¶¶¶¶¶", Chr(10))
CL = Replace(CL, "¶¶¶¶¶", Chr(10))
CL = Replace(CL, "¶¶¶¶", Chr(10))
CL = Replace(CL, "¶¶¶", Chr(10))
CL = Replace(CL, "¶¶", Chr(10))
CL = Replace(CL, "¶", Chr(10))
CL.Rows.AutoFit
Next
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

RE,

sur ce fichier un code simple et plus direct

https://www.cjoint.com/?kCr7rHxwtY

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)