Enlever le 'carré' de retour à la ligne

pierrejean

XLDnaute Barbatruc

• 24 Août 2008

• #2

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

bonjour christian.bedere

Quelque chose comme cela

 

Pièces jointes

• Suppression.zip

  8 KB · Affichages: 261
• Suppression.zip

  8 KB · Affichages: 257
• Suppression.zip

  8 KB · Affichages: 250

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 24 Août 2008

• #3

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

bonsoir Christian, le Forum

Je ne vois pas de "petit carre" !!

bonne soiree

 

Vote positif 0 Vote négatif

christian.bedere

XLDnaute Occasionnel

• 24 Août 2008

• #4

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

 

Pièces jointes

• Suppression.zip

  9.4 KB · Affichages: 85
• Suppression.zip

  9.4 KB · Affichages: 80
• Suppression.zip

  9.4 KB · Affichages: 84

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Août 2008

• #5

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

 

Pièces jointes

• Suppressionb.zip

  8.7 KB · Affichages: 112

Vote positif 0 Vote négatif

christian.bedere

XLDnaute Occasionnel

• 24 Août 2008

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Août 2008

• #7

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

Bonsoir à tous


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

Code:

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

Code:

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

 

Dernière édition: 24 Août 2008

Vote positif 0 Vote négatif

christian.bedere

XLDnaute Occasionnel

• 24 Août 2008

• #8

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Août 2008

• #9

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

Re

Salut Staple

Une version plus concise:

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Août 2008

• #10

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,

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Août 2008

• #11

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 !!

 

Vote positif 0 Vote négatif