Enlever le 'carré' de retour à la ligne

[christian.bedere]

Bonsoir

Sur le fichier joint,je voudrais pouvoir imprimer ma feuille sans le symbole de retour à ligne saisis par vba "chr(10)" de façon à avoir dans chaque case de mon tableau un espace en haut et un espace en bas pour rendre la lecture claire, mais sans ce 'petit carré' qui n'apporte rien d'esthétique à mon fichier.

A défaut, une macro peut peut-être l'effacer sans supprimer la ligne... le tout est de ne plus le voir une fois couché sur le papier

J'espère que vous aurez une solution à mon problème, comme toujours

Un grand merci à vous
kiki

 

[pierrejean]

Re : Enlever le 'carré' de retour à la ligne

bonjour christian.bedere

Quelque chose comme cela

 

[allegro50]

Re : Enlever le 'carré' de retour à la ligne

bonsoir Christian, le Forum

Je ne vois pas de "petit carre" !!

bonne soiree

 

[christian.bedere]

Re : Enlever le 'carré' de retour à la ligne

Bonsoir pierrejean et allegro50

Content de voir sur ton exemple pierrejean que cela a fonctionné, mais j essaie de l'appliquer sur mon exemple et cela ne fonctionne pas.
Je te renvoie le fichier et si tu pouvais me fournir une explication car là vraiment je ne comprends pas
je te remercie beaucoup
Christian

 

[pierrejean]

Re : Enlever le 'carré' de retour à la ligne

Re

methode archi simpliste
Selectionner la cellule puis
dans la barre de formule sectionner le carré et taper sur la touche Suppr

 

[christian.bedere]

Re : Enlever le 'carré' de retour à la ligne

Rebonsoir pierrejean

Finalement, il n'y a aucune formule vba ni autre !
mais ce que j'aurais souhaité, c'est une formule qui le ferait d'une façon automatique.
connaitrais tu qqchose ?
merci encore

 

[Staple1600]

Re : Enlever le 'carré' de retour à la ligne

Bonsoir à tous


Un moyen détourné d'arriver à tes fins

Sub test()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
For i = 1 To Len(cell)
If Asc(Mid(cell, i, 1)) = 10 Or Asc(Mid(cell, i, 1)) = 13 Then
cell.Characters(i, 1).Font.Color = RGB(255, 255, 255)
End If
Next
Next
End Sub

Cette macro règle la police sur la couleur blanche pour
les chr(10) et et chr(13)

EDITION: en spécifiant plus précisément la plage de cellules

Sub test_II()
Dim cell As Range
Dim i As Integer
For Each cell In Range("B9:F12")
For i = 1 To Len(cell)
If Asc(Mid(cell, i, 1)) = 10 Or Asc(Mid(cell, i, 1)) = 13 Then
cell.Characters(i, 1).Font.Color = RGB(255, 255, 255)
End If
Next
Next
End sub

 

[christian.bedere]

Re : Enlever le 'carré' de retour à la ligne

Bonsoir Staple1600

Je ne pensais pas cela faisable, et tu l'as fait
Je suis très heureux de cette nouvelle
Un grand MERCI pour ta solution !

A bintôt

Kiki

 

[pierrejean]

Re : Enlever le 'carré' de retour à la ligne

Re

Salut Staple

Une version plus concise:

Sub test()
  For Each cel In ActiveSheet.UsedRange
    cel.Value = Replace(cel.Value, Chr(13), "")
  Next cel
End Sub

 

[Staple1600]

Re : Enlever le 'carré' de retour à la ligne

Bonjour pierrejean



J'avais testé la même idée que toi

mais dans ce cas, on perd la mise en forme des cellules.

de façon à avoir dans chaque case de mon tableau un espace en haut et un espace en bas pour rendre la lecture claire,

D'ou mon idée de mettre la police en blanc (pour garder la "présentation" des données dans les cellules, sans que Chr(10) et chr(13) apparaissent à l'impression ou à la visualisation.

 

[pierrejean]

Re : Enlever le 'carré' de retour à la ligne

Re

Avec ma version d'excel (9.0) et sur le fichier de christian.bedere la mise en forme est conservée ,c'est pourquoi j'ai fait cette proposition

L'idée de la police en blanc est de toute façon excellente !!